[Resolvido]Dcount x erro 3075

Boa tarde

Estou tentando verificar em uma tabela chamada tb_Agenda a existência de registro existente para o profissional na data e horário do formulário usando o Dcount com a linha abaixo:

Código:


If DCount("*", "tb_Agenda", "id_profissional=" & Me.Id_profissional & " And agHora = " & Me.agHora & " And dtData = " & Me!dtData & "") <> 0 Then


O campo id_profissional é número, o campo agHora é Data/Hora e o campo dtData é do tipo data......, mas ao tentar executar esta linha erro 3075....

Alguém tem alguma dica de onde possa estar errando?

Desde já, agradeço

Att.
Vinicius

Boa tarde Alexandre,

Obrigado pela resposta mas mesmo formatando a data o erro 3075 persiste. Montei um breve exemplo que disponibilizo neste simulando o erro ao clicar no botão Checa Status.

Se puder dar uma olhada lhe agradeço

Muito obrigado

Att. Vinicius

Olá Alexandre,

Obrigado pela resposta, realmente, com o apóstrofe não dá mais o erro, mas, não entendi o porque, o dcount acaba "não contado" o registro existente. Testei da seguinte forma:

Código:


dCountTeste = DCount("*", "tb_Agenda", "id_medico=" & Me.Id_Medico & " And agHora = '" & Me.agHora & "' And dtData = #" & Format(Me.dtData, "dd/mm/yyyy") & "#")

MsgBox "dcountteste: " & dCountTeste

If DCount("*", "tb_Agenda", "id_medico=" & Me.Id_Medico & " And " & vbCrLf & _
                            "agHora = '" & Me.agHora & "' And " & vbCrLf & _
                            "dtData = #" & Format(Me.dtData, "dd/mm/yyyy") & "#") <> 0 Then
    MsgBox "Registro existente"
End If



Acaba sempre retornando 0....

OBS: Me desculpe mas não sei se devo ou não abrir novo tópico.

Muito obrigado pela atenção e ajuda

Att.
Vinicius

Olá Alexandre,

Muito obrigado pela ajuda, paciência e atenção....., tópico resolvido.

Desde já meus agradecimentos.

Att.
Vinicius