[Resolvido]Dlookup em formulario

Boa noite.

A função dlookup quando digita uma data que seja abaixo do dia 10 (exemplo 07/08/2021) as informações não é retornada.
Como proceder.
Fiz a alteração abaixo porém não funcionou

Private Sub Data_EscalaLeitores_LostFocus()
On Error Resume Next
Dim dData As Date

dData = Format(Me.Data_EscalaLeitores, "dd/mm/yyyy")
  'Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Escala_Ministro1='" & Me.Data_EscalaLeitores & "'")
  'DLookup("Campo" , "Tabela" , "CampoFiltro= 'abcd'")
   Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro=#" & dData & "#")
   Me.Segundo_Ministro = DLookup("Escala_Ministro2", "Tab_EscalaMinistro", "Data_EscalaMinistro=#" & dData & "#")
End Sub

Olá Roberto,

Neste caso, utilize a formatação MM/DD/YYYY.

Sempre que possível, utilize o tratamento de erros, pois assim vc vai saber se a sua rotina está com erro ou não quando for executada.

A declaração "On Error Resume Next" irá desconsiderar qualquer erro que existir na sua rotina.

Segue:

Código:



Private Sub Data_EscalaLeitores_LostFocus()
On Error GoTo trata_erro
Dim dData As Date

    dData = Format(Me.Data_EscalaLeitores, "mm/dd/yyyy")
    'Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Escala_Ministro1='" & Me.Data_EscalaLeitores & "'")
    'DLookup("Campo" , "Tabela" , "CampoFiltro= 'abcd'")
    Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro=#" & dData & "#")
    Me.Segundo_Ministro = DLookup("Escala_Ministro2", "Tab_EscalaMinistro", "Data_EscalaMinistro=#" & dData & "#")
   
    Exit Sub

trata_erro:
   
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
    Exit Sub
   
End Sub




É isso.

[]'s

FIM

Ok, porém quando clico no formulario está dando esta mensagem " Erro gerado 13 - Tipos incompativeis"

Roberto,

Disponibilize uma cópia do teu bd, somentes objetos pertinentes à sua duvida.

[]'s

FIM

Arquivo em anexo

Roberto,

Eu mudei o evento do campo para "Após Atualização", ou seja "AfterUpdate", e também coloquei uma condição caso a data não for preenchida.

Segue versão.

[]'s


FIM

Vou fazee os testes, e dou um retorno