Combo Box

[Gabriel Cabral]

olá pessoal....

tenho duas tabelas....clientes e atendimentos....

no form de cadastro d atendimentos, tenho uma combo com os nomes dos clientes cadastrados na tabela clientes...

gostaria de saber se é possivel, quando eu selecionar um cliente na combo, que o seu CNPJ apareça numa textbox do form de cadastro de atendimentos para ser gravado na tabela de atendimentos...já que o CNPJ já foi cadastrado na tabela de clientes.....

resumindo...

qro selecionar um valor de um campo de uma tabela assim que eu clicar no cliente correspondente, para poder gravar em outra tabela

alguém me ajuda pfavor !!!!

obrigado

[Gabriel Cabral]

isso deve ser algum problema de relacionamento entre as tabelas que eu não to conseguindo resolver??? :(

alguém pode me ajudar?????!!!

[Gabriel Cabral]

???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

[kuroi]

não é so, no evento click do combo, fazer um select e pegar o cnpj e então preencher a text??

[Gabriel Cabral]

não é so, no evento click do combo, fazer um select e pegar o cnpj e então preencher a text??

Então kuroi....eu fiz isso...

Private Sub cboNomeFantasia_Click()

SQL = "SELECT Cli_CNPJ FROM Clientes WHERE Cli_NomeFantasia = '" & cboNomeFantasia.Text & "'"
txtCNPJ.Text = SQL

End Sub

mas o que acontece é que o que aparece na txtCNPJ não é o cnpj do cliente que chamei na combo, mas sim a instrução SQL da primeira linha

como posso consertar isso???

obrigado

[kuroi]

sim, você tem que executar o select. você ta usando dao, ado, ta fazendo via datacontrol, etc??

[Gabriel Cabral]

sim, você tem que executar o select. você ta usando dao, ado, ta fazendo via datacontrol, etc??

To fazendo com DataControl

como se executa???

[kuroi]

sei la, não uso data control. acho é ADODC1.RecordSet.Execute, se não me engano. faz uma busca no forum ou no google, ou no site do macoratti, http://www.macoratti.net

[Macêdo]

Reveja sua instrução, olhe o que você esta mandando o VB fazer:

Private Sub cboNomeFantasia_Click()

SQL = "SELECT Cli_CNPJ FROM Clientes WHERE Cli_NomeFantasia = '" & cboNomeFantasia.Text & "'"

txtCNPJ.Text = SQL

End Sub

mas o que acontece é que o que aparece na txtCNPJ não é o cnpj do cliente que chamei na combo, mas sim a instrução SQL da primeira linha

Você está dizendo o seguinte

SQL = GABRIEL

txtCNPJ.Text = SQL

Logo:

txtCNPJ.Text = GABRIEL

Entendeu?

[Gabriel Cabral]

Reveja sua instrução, olhe o que você esta mandando o VB fazer:

Private Sub cboNomeFantasia_Click()

SQL = "SELECT Cli_CNPJ FROM Clientes WHERE Cli_NomeFantasia = '" & cboNomeFantasia.Text & "'"

txtCNPJ.Text = SQL

End Sub

mas o que acontece é que o que aparece na txtCNPJ não é o cnpj do cliente que chamei na combo, mas sim a instrução SQL da primeira linha

Você está dizendo o seguinte

SQL = GABRIEL

txtCNPJ.Text = SQL

Logo:

txtCNPJ.Text = GABRIEL

Entendeu?

Nooooooooosssssaaaaaaa

verdade.....

mas o que eu devo fazer intao???

não consigo de jeito nenhum