Bom dia !

 

Preciso fazer uma consulta utilizando uma combo. Ao selecionar o nome do cliente na combo os outros objetos(edits) precisam ser atualizados (dados do BD).

Consegui com a ajuda de vcs preencher a combo , mas quando o nome do cliente é selecionado na combo aparece a seguinte mensagem de erro :

"Operation invalid without a current index"

Se alguém tiver uma dica.

 

Segue código abaixo :

 

 

Private Sub cmbConsulta_gotfocus()
  
    While Not Tabela.EOF
        cmbConsulta.AddItem Tabela.Fields![Nome]
        cmbConsulta.ItemData(cmbConsulta.NewIndex) = Tabela.Fields![Codigo]
        Tabela.MoveNext
    Wend
       
End Sub

Private Sub cmbConsulta_click()

    Tabela.Seek "=", cmbConsulta.ItemData(cmbConsulta.ListIndex)
    txtNome = Tabela.Fields![Nome]
    txtEndereco = Tabela.Fields![Endereco]
    txtBairro = Tabela.Fields![Bairro]
   
End Sub

Obrigado.

??