MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]DoLookup não exibe resultados mesmo cumprindo as condições

    Compartilhe

    EliasSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 30/09/2011

    [Resolvido]DoLookup não exibe resultados mesmo cumprindo as condições

    Mensagem  EliasSantos em Qua 25 Jul 2018, 1:45 pm

    Bom dia a todos!

     Tenho alguns controles num formulário que dependem de certas informações nos registros, ocorre que quando altero a data na busca, simplesmente o DoLookup não funciona, mesmo cumprindo todas as condições.
    Estou enviando um exemplo. Experimente colocar a data de 02/01/2019 no campo BUSCA e veja que as informações não aparecem, já com a data 25/07/2018 funciona normalmente.
    Solicito a ajuda dos amigos para solucionar este mistério. Muito obrigado!
    Anexos
    Exemplo.zip
    Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 8 vez(es)


    Última edição por EliasSantos em Dom 29 Jul 2018, 11:21 am, editado 3 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7053
    Registrado : 05/11/2009

    Re: [Resolvido]DoLookup não exibe resultados mesmo cumprindo as condições

    Mensagem  Alexandre Neves em Qua 25 Jul 2018, 4:32 pm

    Boa tarde,
    Não descarreguei a bd. Já viu se é a formatação da data?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    EliasSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 30/09/2011

    Re: [Resolvido]DoLookup não exibe resultados mesmo cumprindo as condições

    Mensagem  EliasSantos em Qui 26 Jul 2018, 12:31 pm

    Bom dia!

    Alexandre obrigado pela atenção!
    Desculpe pela demora

    O código está assim:

    Private Sub Comando4_Click()
    Me.Refresh

    Dim Y
    Dim Z
    Dim vari As String
    Dim vari_2 As Integer

    vari = "EQUIPE 3"
    vari_2 = -1

    Y = DLookup("[EQUIPE]", "TB_OPERACOES", "[EQUIPE] = '" & vari & "' And [RETIFICADA] = " & vari_2 & " And [DATA_OPER] = #" & Format(Me.DATA_OPER, "dd/mm/yyyy") & "#")
    Z = DLookup("[RETIFICADA]", "TB_OPERACOES", "[RETIFICADA] = " & vari_2 & " And [DATA_OPER] = #" & Format(Me.DATA_OPER, "dd/mm/yyyy") & "#")

    Me.Refresh
    MsgBox "Equipe: " & Y & " | " & " Retificada: " & Z


    End Sub

    O problema só ocorre quando entro com uma data de 2019 no campo DATA_OPER
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7053
    Registrado : 05/11/2009

    Re: [Resolvido]DoLookup não exibe resultados mesmo cumprindo as condições

    Mensagem  Alexandre Neves em Qui 26 Jul 2018, 12:50 pm

    Boa tarde,
    Como disse, parece-me que é da formatação da data
    Y = DLookup("[EQUIPE]", "TB_OPERACOES", "[EQUIPE] = '" & vari & "' And [RETIFICADA] = " & vari_2 & " And [DATA_OPER] = #" & Format(Me.DATA_OPER, "mm/dd/yyyy") & "#")
    Z = DLookup("[RETIFICADA]", "TB_OPERACOES", "[RETIFICADA] = " & vari_2 & " And [DATA_OPER] = #" & Format(Me.DATA_OPER, "mm/dd/yyyy") & "#")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    EliasSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 30/09/2011

    Re: [Resolvido]DoLookup não exibe resultados mesmo cumprindo as condições

    Mensagem  EliasSantos em Qui 26 Jul 2018, 1:02 pm

    Interessante que quando entro com uma data de 2018 funciona normalmente
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7053
    Registrado : 05/11/2009

    Re: [Resolvido]DoLookup não exibe resultados mesmo cumprindo as condições

    Mensagem  Alexandre Neves em Qui 26 Jul 2018, 1:05 pm

    com que data entra?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    EliasSantos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 30/09/2011

    Re: [Resolvido]DoLookup não exibe resultados mesmo cumprindo as condições

    Mensagem  EliasSantos em Qui 26 Jul 2018, 1:13 pm

    Muito grato Alexandre!

    Alterei para Format(Me.DATA_OPER, "mm/dd/yyyy") & "#") e funcionou perfeitamente.

      Data/hora atual: Qui 13 Dez 2018, 6:29 pm