[Resolvido]Dlookup com critérios Data + Hora

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

Finformática: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1077
Registrado : 23/03/2010

Mensagem nº1

[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** 14/9/2022, 22:02

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3217
Registrado : 13/12/2016

Mensagem nº2

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

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

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

Sistemas e Tecnologia Ltda

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

Finformática

Finformática: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1077
Registrado : 23/03/2010

Mensagem nº3

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** 14/9/2022, 22:57

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3217
Registrado : 13/12/2016

Mensagem nº4

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

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

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

Sistemas e Tecnologia Ltda

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

Finformática

Finformática: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1077
Registrado : 23/03/2010

Mensagem nº5

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

ExemploAgenda.zip: Você não tem permissão para fazer download dos arquivos anexados.; (50 Kb) Baixado 7 vez(es)

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

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3217
Registrado : 13/12/2016

Mensagem nº6

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

ExemploAgenda_v2.zip: Você não tem permissão para fazer download dos arquivos anexados.; (48 Kb) Baixado 32 vez(es)

.................................................................................

Marcar tópico como Resolvido: clique aqui

Postar anexos no fórum: clique aqui

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

Sistemas e Tecnologia Ltda

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

Finformática

Finformática: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1077
Registrado : 23/03/2010

Mensagem nº7

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)