[Resolvido] ComboBox

[gabrieldb 5]

Boa tarde pessoal estou com um problema que parece ser fácil mais não é, eu tenho um BD com diversos clientes aqui da empresa.

Eu queria o seguinte quando a pessoa escolhesse o Posto(cliente) preenchesse os outros campos em vermelho conforme na imagem abaixo com os dados dos respectivos clientes que escolhessem que está no tabela Clientes do meu BD.

 

 

Alguém pode me ajudar a fazer isso ?

Abraço!

[scorpio 7]

O combobox tem um evento Change. Tente utilizá-lo.

[gabrieldb 5]

Como assim, você quis dizer fazer o select direto no combobox ?

[scorpio 7]

No evento Change do ComboBox você faz o select e preenche os campos da tela.

[gabrieldb 5]

No evento Change do ComboBox você faz o select e preenche os campos da tela.

 

Ok, vou tentar fazer aqui qualquer coisa eu posto novamente.

valeu!

[gabrieldb 5]

Não deu certo meu select ele não aparece nada nocombo.

Dá uma olhada no meu código.

 

Private Sub cboPosto_Change()
Call conexao
Conex.CursorLocation = adUseClient
rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic
    cboPosto = rs("nome")
End Sub

[scorpio 7]

Calma lá!

 

Você quer selecionar um item do combobox e preencher o resto da tela, ou você quer colocar no combobox o cliente ?

[gabrieldb 5]

Calma lá!

 

Você quer selecionar um item do combobox e preencher o resto da tela, ou você quer colocar no combobox o cliente ?

 

Então vai ser mais ou menos assim nesse combobox eu quero que liste todos os meus clientes salvos no banco,e quando o usuario escolher um cliente preencha os campos com os dados do cliente selecionado.Entendeu ?

[scorpio 7]

Ah sim.

 

No load do form:

Call conexao
Conex.CursorLocation = adUseClient
rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic
while Not rs.Eof
    cboPosto.AddItem(rs("nome"))
    cboPosto.ItemDate(cboPosto.NewIndex) = rs("CODIGO")
    rs.MoveNext
Wend

Depois no Change do combo você recupera o valor do combo

MsgBox cboPosto.ItemData(Combo1.ListIndex)

[gabrieldb 5]

Blza scorpio deu certo mais não entendi essa parte aki

 

cboPosto.ItemDate(cboPosto.NewIndex) = rs("CODIGO")

Se eu não coloca uma ' ele dá esse erro: Method or data member not found

 

E como eu faço agora pra quando eu clicar no cliente ele preencher os outros campos ? select novamente ?

[scorpio 7]

Está ItemDatE, troca para ItemData.

 

 

 

 

Depois no Change do combo você recupera o valor do combo

MsgBox cboPosto.ItemData(Combo1.ListIndex)

E faz o select pegando os dados do cliente.

[gabrieldb 5]

Deu esse erro

Run-time error '3265':

O item não pode ser encontrado na coleção correspondente ao nome

ou ao ordinal solicitado.

 

Aponta pra essa linha

 

cboPosto.ItemData(cboPosto.NewIndex) = rs("CODIGO")

[scorpio 7]

O que é chave na sua sua tabel ade clientes?

 

Eu coloquei um exemplo, o campo código.

[gabrieldb 5]

O campo nome, seria bom eu criar um campo código ?

[scorpio 7]

Sim. Quando você cadastrar o cara você informa CPG/RG. A chave pode ser um dos dois.

 

Mas vai do seu modelo ede dados. De uma analisada.

[gabrieldb 5]

Sim. Quando você cadastrar o cara você informa CPG/RG. A chave pode ser um dos dois.

 

Mas vai do seu modelo de dados. De uma analisada.

 

O que seria o CPG/RG ?

[scorpio 7]

Ops... escrevi errado.

 

CPF e RG.

 

O nome do cliente não é o dado mais correto para utilizar como chave.

[gabrieldb 5]

Então eu vou criar um campo código e posto aqui o que deu.

[gabrieldb 5]

Então criei o campo codigo no meu bd mais surgiu outro problema...eu criei o campo "codigo" como serial tipo ele auto insere o codigo do cliente mais na hora do insert no antigo ele pede pra digitar o código na textbox....eu penso que seria assim deixava a textbox em branco e ele auto-inserisse o numero e não precisasse digitar ele na text.

[scorpio 7]

Não precisa. Ou você passa o código no INSERT 0, ou no INSERT você não coloca o campo código.