[Resolvido]Localizar dados em uma tabela e aparecer em uma caixa de texto

ERS2011 Sex 03 Fev 2012, 07:50

ERS2011

ERS2011: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 27
Registrado : 10/09/2011

Mensagem nº1

Localizar dados em uma tabela e aparecer em uma caixa de texto

Mensagem ERS2011 Sex 03 Fev 2012, 07:50

Ola colegas estou precisando de uma ajuda.

Tenho uma tabela de nome “TblCadPbl” com 3 colunas com os nomes Carro, Responsável e Inicio da montagem nesta tabela cadastros os carros através de um formulário “FrmCadPbl”. Gostaria de fazer o seguinte quando eu abrir o FrmFiltrosseqüenciais e filtrar no campo veiculo(fmCarro) um determinado veiculo ele me mostra-se na caixa de texto do formulário Inicio da Montagem(IniMont) e na caixa de texto Responsável (Resp) os dados que eu cadastrei na “TblCadPbl” referente ao carro selecionado no filtro.

Em anexo esta o arquivo que estou desenvolvendo. http://www.sendspace.com/file/5166wg

Agradeço desde já qualquer ajuda.

Convidad Sex 03 Fev 2012, 08:17

Convidad

Convidad: Convidado

Mensagem nº2

Re: [Resolvido]Localizar dados em uma tabela e aparecer em uma caixa de texto

Mensagem Convidad Sex 03 Fev 2012, 08:17

Private Sub fmCarro_AfterUpdate()
Me.IniMont = DLookup("[Inicio da montagem]", "TblCadPbl", "Carro = Me.fmCarro")
Me.Resp = DLookup("[Responsável]", "TblCadPbl", "Carro = Me.fmCarro")
End Sub

Obs: não vi seu aplicativo, então:
Precisa substituir os Nomes se não estiverem iguais aos seus, e corrigir a sintaxe do critério se for campo texto.

É sempre importante informar o Nome e o Tipo exato dos objetos.