[Resolvido]Alerta de registro duplicado - conflito com formato data

Olá amigos!

Pesquisando no forum encontrei o seguinte codigo, que ja esta adaptado ao meu BD:

Private Sub txtData_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[Data]", "FeriadosFixos", _
"[Data] ='" & Me!txtData & "'"))) Then
MsgBox "Já existe um registro para " & txtData.Text & " no sistema.", _
vbInformation, "Registro Duplicado!"
Cancel = True 'cancela o evento.
Me!txtData.Undo 'desfaz a digitação.
End If
End Sub

Na tabela FeriadosFixos eu tenho o campo Data com o formato dd/mm. E no frm correspondente eu tenho o campo txtData também com o formato dd/mm. Porém, o codigo esta retornando o seguinte erro:

"Tipo de dados incompativel na expressão de critério"

Alguém sabe como resolver isso?

Pois no campo onde eu informo texto o codigo funciona perfeitamente.

Desde já, obrigado!

Amigos,

resolvi o problema...
na tabela FeriadosFixos o campo Data estava com o tipo de dados Data/Hora, então mudei o tipo de dados para
Texto mantendo as demais configurações e passou a funcionar perfeitamente.

Abraço a todos!

obrigado pelo retorno no fórum. Obrigado.

Pessoal,

eu tinha dado por resolvido esse tópico, porém, pra uma outra tabela eu preciso inserir a mesma rotina
mas não posso alterar o Tipo de Dados "Data/Hora" do campo Data para "Texto" como fiz na outra tabela citado
acima.

então, reabri o tópico e se alguém puder me ajudar ficarei agradecido.

Abraço!

Retire as aspas simples e coloque cardinal para formato datas

If (Not IsNull(DLookup("[Data]", "FeriadosFixos", _
"[Data] =#" & Me!txtData & "#"))) Then

http://dl.dropbox.com/u/26441349/Lupe_15_07_11.rar


If (Not IsNull(DLookup("[Data]", "tblData", "[Data] = #" & Format(Me.txtData, "mm/dd/yyyy") & "#"))) Then


MsgBox "Já existe um registro para " & txtData.Text & " no sistema.", _
vbInformation, "Registro Duplicado!"
Cancel = True 'cancela o evento.
Me!txtData.Undo 'desfaz a digitação.
End If



Saudações

Valeu amigos!

Agora sim posso dar por resolvido...

Da forma que o Harysohn colocou funcionou perfeitamente no meu projeto.

Muito obrigado a todos pela força.


Abraço!

O Forum agradece o retorno.

Bom trabalho