vieirasoft 9/7/2010, 16:56
Acho que agora entendi
Coloque um combobox no seu form
1- Origem do controle ID (Exemplo)
2- Origem da linha Tabela/Consulta....SELECT Cliente.Id, Cliente.NomeDaEmpresa FROM Cliente ORDER BY Cliente.NomeDaEmpresa;
3 -Private Sub Id_AfterUpdate()
On Error Resume Next
' Avaliar o filtro antes ser passado para a função DLookup.
strFiltro = "Id = " & Me!Id
' Procurar o preço unitário do produto e atribuí-lo ao controlo PreçoUnitário.
Me!Endereço = DLookup("Endereço", "cliente", strFiltro)
Me!Cpt = DLookup("Cpt", "cliente", strFiltro)
Me!Local = DLookup("Local", "cliente", strFiltro)
Me!Telefone = DLookup("Telefone", "cliente", strFiltro)
Me!Pagamento = DLookup("Pagamento", "cliente", strFiltro)
Me!Expedição = DLookup("Expedição", "cliente", strFiltro)
Me!Contribuinte = DLookup("Contribuinte", "Cliente", strFiltro)
Me!CBarra = DLookup("CBarra", "Cliente", strFiltro)
Me!AdicionarP = DLookup("AdicionarP", "Cliente", strFiltro)
End Sub
Isto é um exemplo apenas, mas tenho a certeza que isto que necessita. Se tiver dúvidas apite.