MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

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

    avatar
    RegisBorda
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 07/02/2014

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

    Mensagem  RegisBorda 5/10/2021, 03:02

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7337
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira 5/10/2021, 11:38

    avatar
    RegisBorda
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 07/02/2014

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

    Mensagem  RegisBorda 5/10/2021, 12:05

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7337
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira 6/10/2021, 15:57

    Olá Regis Borda,

    Obrigado pelo retorno, o fórum agradece.


    Abraço

      Data/hora atual: 16/10/2021, 21:56