[Resolvido]Função DLookup não faz a busca correta

Prezados,

Estou utilizando a função Dlookup para buscar uma data que é informada.

Ex: Busco na tabela de Cadastro de Consultas no campo "DtadaConsulta" a data informado no formulário FormMontaAgenda no campo "DtEmissaoInicial"

neste caso DtEmissaoInicial = #01/01/2021# (todo o mês de Janeiro de 2021 não existe na tabela de Cadastro de Consultas)

Teoricamente o campo "CurDtConsulta" da função DLookup teria que dar VAZIO para todos os dias de Janeiro de 2021 porém isso não acontece, tem dias de Janeiro como por exemplo dias 01, 15, 16 ... de janeiro de 2021 que ele não dá VAZIO ele busca uma data que não é a Data informada no Critério. (FormMontaAgenda campo "DtEmissaoInicial")

Dim rstD As DAO.Recordset
Dim DtAgenda As Date
DtAgenda = Forms!FormMontaAgenda!DtEmissaoInicial
CurDtConsulta = Nz(DLookup("[DtadaConsulta]", "Cadastro de Consultas", " [DtEmissaoInicial]=#" & DtAgenda & "#"))
If CurDtConsulta = 0 Then

A função dá VAZIO para alguns dias de Janeiro e em outros dias a função tráz a última data da Tabela de Cadastro de Consultas que é 09/11/2021.

Já fiz de tudo para tentar acertar e não estou conseguindo.

Alguém poderia me dar uma luz.

Muito Grato,

Abs,

Regis Borda

Olá Regis Borda,

Creio ser a mesma situação:
https://www.maximoaccess.com/t23702-resolvidoformato-de-data-troca-dia-por-mes
https://www.maximoaccess.com/t29899-resolvido-contar-registos-dos-ultimos-30-dias
https://www.maximoaccess.com/t31898-resolvidoerro-ao-fazer-update-em-campo-de-data
https://www.maximoaccess.com/t27705-resolvidoajuda-no-criterio-entre-datas

Será uma questão de testar

Abraço

Prezados,

Resolvi utilizando consulta e me parece que resolveu.

Segue o Código :

Código:

              Dim horaAtual As Date
              Dim rstD As DAO.Recordset
              Dim rst As DAO.Recordset
              DoCmd.SetWarnings False
              DoCmd.OpenQuery "ConsBuscaDataMontaAgenda", acViewNormal
              Set db = CurrentDb()
              Set rst = db.OpenRecordset("TbBuscaDataAgenda")
              If rst.RecordCount = 0 Then

Grato a Todos.

Abs,

Regis Borda

Olá Regis Borda,

Obrigado pelo retorno, o fórum agradece.


Abraço