[Resolvido]No Fomulário ao atualizar o campo Procurar uma Data noutra tabela

Boa tarde,

Este é o meu primeiro post, já aprendi muito com vocês, e já muito pesquisei, mas não consegui encontrar respostas.

Tenho um "Evento" que depois de preencher um campo (atualizar) e encontrar essa informação de um campo noutra tabela ele abre um outro Formulário, e  funciona tudo muito bem com texto e números, mas com data não funcionada.

Private Sub Dt_Nascimento_pass_AfterUpdate()


   On Error GoTo FIM_Erro

   If DCount("Data_Nascimento", "t_Controlo", "Data_Nascimento='" & Me.Dt_Nascimento_pass) >= 1 Then

Fazer abrir um Formulário
               
   Exit Sub
   End If

FIM_Erro:
End Sub


Exemplo da parte da outra Macro com procura de nome e que funciona bem:

 'If DCount("Nome", "t_Controlo", "Nome='" & Me.Nome_pass & "'") = 1 Then

Podem-me ajudar por favor?

Obrigado.

Olá! Vamos a duas alternativas:

1º) If DCount("Data_Nascimento", "t_Controlo", "Data_Nascimento='" & Me.Dt_Nascimento_pass & "'") >= 1 Then

2º) If DCount("Data_Nascimento", "t_Controlo", "Data_Nascimento=#" & Me.Dt_Nascimento_pass & "#") >= 1 Then

Note que, na primeira eu envolvo Dt_Nascimento_pass com aspas simples e na segunda com #.

Teste e veja se alguma funciona.

Aguardamos.

Olá Marcelo,

Acrescentei  & "'" e  & "'#", e nenhum dos dois funcionou  

O campo Data_Nascimento é mesmo data na tabela, ou é texto ?

Se for mesmo data, deverá funcionar assim;

Código:

If DCount("*", "t_Controlo", "Data_Nascimento=#" & Format(Me.Dt_Nascimento_pass, "mm-dd-yyyy") & "#") >= 1 Then

Olá Paulo,

Fantástico, já funcionou, muito obrigado pela dica

Só por curiosidade, qual a diferença entre: a ' e o #

"Data_Nascimento='" e "Data_Nascimento=#"

Aspas simples ' é para campos numericos, aspas duplas " é para campos texto e # para campos de data.