criquio Sáb 16 Jul 2011, 4:56 pm
Olá, seja bem vindo ao forum.
Vamos colocar como exemplos uma tabela de nome tblClientes, uma consulta de nome cnsClientes e um formulário de nome frmClientes. A consulta foi construída tendo a tabela como origem e no formulário, você coloca um subformulário alimentado pela consulta cnsClientes. No seu formulário principal, tem o campo de nome txtData por exemplo. No critério do campo da data, na consulta, coloque:
Como Forms!frmClientes!txtData
No evento "Após atualizar" do campo txtData do formulário, coloque:
Me.NomeDosubFormulário.Requery
Com isso, ao digitar uma data e pressionar a tecla Enter, o subformulário se atualiza com os clientes nascidos naquela data.
Para clicar em um registro no subformulário e abri-lo no form principal, abra o subformulário e no evento "Ao clicar" do campo nome por exemplo, coloque:
Forms!frmClientes.SetFocus
DoCmd.GoToRecord, , acGoTo, Me.Código
O campo txtData, aonde você faz a pesquisa da data, tem que ser desacoplado, caso contrário, ao digitar uma data, ela já será inserida como novo registro na tabela.