Olá pessoal.

Anote no caderno minha dúvida..

Tenho um banco de dados com a tabela "Representantes" , Campos "Codigo" e "Nome" , e outra tabela chamada "Modificacao" com os campos "Mod" e "Codigo" Sendo que o campo "Codigo" da tabela "Modificacao" tem os mesmos valores do campo "codigo" usado para o Representante. Estou carregando uma combo com o  campo "nome" , da tabela "Representantes" , como faço para quando eu selecionar um representante através do código do representante ele busque todo os campos "Mod" na tabela "Modificacao" de acordo com os respectivos códigos? 

OBRIGADO.

tá usando o q? DAO ou ADO

Colega, não estou podendo abrir o VB agora para testar para você, mas acho que é por aí:

' aqui você carrega a Combo com os Representantes
Private Sub CmbNomeRepres_DropDown()
    sqlrepres = " Select codrepres, nomerepres From Representantes Order By nomerepres"
    Set rsrepres = db.OpenRecordset(sqlrepres)
    CmbNomeRepres.Clear
    Do Until rsrepres.EOF
        CmbNomeRepres.AddItem rsrepres("nomerepres") & ""
        CmbNomeRepres.ItemData(CmbNomeRepres.NewIndex) = rsrepres("codrepres")
        rsrepres.MoveNext
    Loop
    Set rsrepres = Nothing
End Sub

' aqui, quando você clicar na combo, irão ser preenchidos as TextBox1, 2 e 3 (apenas um exemplo)
Private Sub CmbNomeRepres_Click()
    On Error Resume Next
    If CmbNomeRepres.ListIndex = -1 Then
        Exit Sub
    Else
        sqlrepres = "Select * From Representantes Where codrepres = " & CmbNomeRepres.ItemData(CmbNomeRepres.ListIndex)
        Set rsrepres = db.OpenRecordset(sqlrepres)
        sqlmod = "Select * From Modificacao Where codigo = " & rsrepres("codigo")
        Set rsmod = db.OpenRecordset(sqlmod)
        TxtCampo1.Text = rsmod("campo1")
        TxtCampo2.Text = rsmod("campo2")
        TxtCampo3.Text = rsmod("campo3")
    End If
End Sub

Faça o teste e depois me informe se está correto e se é isso que você quer.

Até mais.

Use a dica abaixo para carregar a combo com o campo NOME e ao mesmo tempo carregar o campo CODIGO no itemdata da combo

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=57&Classificacao=

 

Depois incremente um select no evento que achar mais conveniente para quando escolher o nome na combo pegar pelo valor do campo CODIGO que está gravado no ItemData da combo e chamar os campos da tabela MODIFICAÇÃO que são iguais aos do ItemData.

 

Qualquer dúvida fala aê . . .