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]Dlookup com critérios Data + Hora

    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Dlookup com critérios Data + Hora Empty [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Finformática 14/9/2022, 21:53

    Grande Mestres, boa noite!

    Conforme citado no título, tenho Dlookup com critérios Data + Hora. O código até a Data funciona perfeitamente:
    MsgBox DLookup("CompromissoLocalAgenda", "Agenda", "DataAgenda= #" & Format(Me.DataAgenda, "mm/dd/yyyy") & "#")

    Acrescentando o critério Hora está assim (não funciona):
    MsgBox DLookup("CompromissoLocalAgenda", "Agenda", "DataAgenda= # " & Format(Me.DataAgenda, "mm/dd/yyyy") & "#" And HoraAgenda = " & Me.HoraAgenda & ")

    Onde está o erro?

    Muito grato
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Dlookup com critérios Data + Hora Empty Re: [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Alexandre Fim 14/9/2022, 22:02

    Ola,

    Tente isso:

    Código:

    MsgBox DLookup("CompromissoLocalAgenda", "Agenda", "DataAgenda= # " & Format(Me.DataAgenda, "mm/dd/yyyy") & "# AND HoraAgenda = #" & Format(Me.HoraAgenda, "hh:mm") & "#")

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dlookup com critérios Data + Hora Setinf11
    Sistemas e Tecnologia Ltda
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Dlookup com critérios Data + Hora Empty Re: [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Finformática 14/9/2022, 22:46

    Grande Alexandre

    Muito grato por ajudar. Está dando: Erro em tempo de execução "94" - Uso de "Null" inválido.

    Abraço
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Dlookup com critérios Data + Hora Empty Re: [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Alexandre Fim 14/9/2022, 22:57

    Meu Amigo,

    Vc deve estar passando como critério algum campo com valor nulo.
    É necessário tratar antes da pesquisa, ou seja, forcar o usuário à preenchê-lo.

    Acreidot que seja isso.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dlookup com critérios Data + Hora Setinf11
    Sistemas e Tecnologia Ltda
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Dlookup com critérios Data + Hora Empty Re: [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Finformática 14/9/2022, 23:28

    Verifiquei o que você falou e nada encontrei. Na realidade esse MSGBOX é um teste para ver se o Dlookup está funcionando corretamente. Quero usar para evitar de cadastrar em uma agenda de compromissos algo na mesma Data e mesma Hora. Ocorrendo essa tentativa pelo usuário exibiria uma mensagem e retornaria para a Data (limpando os campos). Evitando também que o usuário cadastre todo o formulário e no final mostrar a mensagem padrão do Access (duplicidade da registros - Data e Hora são chaves na tabela).
    Por favor, onde foi que eu errei????
    Anexos
    [Resolvido]Dlookup com critérios Data + Hora AttachmentExemploAgenda.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Dlookup com critérios Data + Hora Empty Re: [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Alexandre Fim 14/9/2022, 23:59

    Olá,

    Criei a função "VerificaAgenda", que verifica se existe já existe agendamento cadastrado na data e hora informadas no formulário.
    Segue versão.

    Espero ter ajudado.

    Att,

    Alexandre Fim
    Anexos
    [Resolvido]Dlookup com critérios Data + Hora AttachmentExemploAgenda_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (48 Kb) Baixado 5 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dlookup com critérios Data + Hora Setinf11
    Sistemas e Tecnologia Ltda
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Dlookup com critérios Data + Hora Empty Re: [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Finformática 15/9/2022, 00:23

    Mestre

    Perfeito na crítica. Dúvida: Qual o motivo que por exemplo: Data coloco 20/02/27, Hora coloco 20:00. Aparece a mensagem corretamente e ao fechar a mensagem aparece automaticamente a Hora 20:09 e aceita continuar. De onde vem esse 20:09. É por conta da formatação nos dois campos que você colocou? Queria limpar os campos e voltar para Data.
    Tenho como adaptar, só quero entender os passos do Mestre.

    Muito grato, mais uma vez.


    Última edição por Finformática em 16/9/2022, 00:08, editado 1 vez(es)
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Dlookup com critérios Data + Hora Empty Re: [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Finformática 15/9/2022, 00:31

    Entendi a formatação. Padrão fica a Data e Hora do momento no sistema.
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Dlookup com critérios Data + Hora Empty Re: [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Finformática 15/9/2022, 00:37

    Queria limpar os campos e voltar para Data.
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Dlookup com critérios Data + Hora Empty Re: [Resolvido]Dlookup com critérios Data + Hora

    Mensagem  Finformática 16/9/2022, 00:11

    Grande Alexandre!

    Muito grato por tudo. Tudo perfeito.

    Forte abraço

      Data/hora atual: 1/10/2022, 14:54