Boa noite.
Estou trabalhando em um projeto no qual estou trabalhando em um pequeno projeto e estou tentando fazer um Dlookup e não funcionou como o previsto
Na tabela "Tab_EscalaMinistro" , possui 3 campos : Data_EscalaMinistro , Escala_Ministro1;Escala_Ministro2
No formulario Frm_EscalLeitores possuo o campo Data_EscalaLeitores e Campo Primeiro_Ministro e Segundo_Ministro.
Quando no formulario Frm_EscalLeitores, quando digitar a data desejado no campo Data_EscalaLeitores ele procura a informação na tabela Tab_EscalaMinistro e no formulario Frm_EscalLeitores o campo Primeiro_Ministro recebe Escala_Ministro1 e Segundo_Ministro recebe Escala_Ministro2
Segue a sintaxe utilizada que não funcionou
Private Sub Data_EscalaLeitores_LostFocus()
On Error Resume Next
Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro='") ' & Me.Data_EscalaLeitores & "'")
End Sub
Estou trabalhando em um projeto no qual estou trabalhando em um pequeno projeto e estou tentando fazer um Dlookup e não funcionou como o previsto
Na tabela "Tab_EscalaMinistro" , possui 3 campos : Data_EscalaMinistro , Escala_Ministro1;Escala_Ministro2
No formulario Frm_EscalLeitores possuo o campo Data_EscalaLeitores e Campo Primeiro_Ministro e Segundo_Ministro.
Quando no formulario Frm_EscalLeitores, quando digitar a data desejado no campo Data_EscalaLeitores ele procura a informação na tabela Tab_EscalaMinistro e no formulario Frm_EscalLeitores o campo Primeiro_Ministro recebe Escala_Ministro1 e Segundo_Ministro recebe Escala_Ministro2
Segue a sintaxe utilizada que não funcionou
Private Sub Data_EscalaLeitores_LostFocus()
On Error Resume Next
Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro='") ' & Me.Data_EscalaLeitores & "'")
End Sub
- Anexos
- Projeto_Liturgia.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (215 Kb) Baixado 5 vez(es)