[Resolvido]ajuda com criar

Ola pessoal !quero criar um form com campo codproduto e gostaria que ao entrar com o codigo, retornase o fornecedor ,nomeproduto que estao na tblcadastro, como poderia fazer ?

Olá Agravina

faça assim:

Private Sub Código_AfterUpdate()
On Error Resume Next


' Avaliar o filtro antes ser passado para a função DLookup.
strFiltro = "Código = " & Me!Código

Me!Fornecedor = DLookup("Fornecedor", "nometabela", strFiltro)
Me!outrocampo = DLookup("outrocampo", "nometabela", strFiltro)

End Sub

Já enviei um mail ao meu colega por causa do tópico de ontem. Logo que possível ele vá retorno.

Ola Veira, agradeço sua atençao fico no aguardo . um abraço

Viera me perdoe ,mas nao consigo fazer funcinar utilizei o codigo que me enviaste ,mas nao consegui, se quiser me enviar um exemplo posso ser 2003 agradeço

Agravina

Vou-lhe enviar um exemplo, mas a função está muito clara. Presumo que você alterou o nome dos campos do exemplo para os seus. Presumo, porque é assim, que o código do produto esteja numa caixa de listagem (combinação).

De qualquer forma vou rebuscar no que tenho e postar aqui um exemplo.

Agravina

Aqui vai o exemplo. Está bem documentado e é muito simples. A caixa de combinação está ligada ao ID, ou seja à chave primária.

http://dl.dropbox.com/u/8157744/AgravinaCD.mdb
Assim:

A Origem do Controle está ligado ao Id

No formulário, se digitar as primeiras letras a caixa filtra, ou em alternativa se expandir a caixa e seleccionar um cliente os dados são inseridos automaticamente.

o Tipo de Origem da Linha é tabela/Consulta

A Origem da linha (Clique no botão da linha da instrução SQL) para ver como foi feita a consulta

Se tiver dúvidas diga, mas se olhar com atenção vai ver que é simples