[Resolvido]Validação de Dados

Boa tarde Mestres!!

Galera estou com problemas para fazer a validação de dados de uma tabela com campo data, já li vários tópicos aqui no fórum mas não consegui resolver meu problema:

Estou usando esta função : (Eu quero que não crie datas duplicadas, apenas um registro para cada dia)

Código:

Private Sub Data_BeforeUpdate(Cancel As Integer)
   If (Not IsNull(DLookup("Data", "Tbl_RDO", _
       "Data ='" & Me!Data & "'"))) Then
       MsgBox "Data já Cadastrada...", _
       vbInformation, "Duplicidade de Data"
       Me.Data.Undo
       DoCmd.CancelEvent
   End If

End Sub

Mas quando ela executa da o seguinte erro:

Erro no tempo de execução '3664':
Tipos de dados incompatível na expressão de critério.

Se alguém puder me ajudar ficarei imensamente agradecido.

Abraços

If (Not IsNull(DLookup("[Data]", "Tbl_RDO", "[Data] =#" & Me.Data & "#"))) Then

Pegando o gancho do Silvio, segue:

Código:



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



Boa sorte

Silvio,

Não funcionou e ele deixa cadastrar a data duplicada

Sds.

Alexandre,

Resolveu perfeitamente, éra isso mesmo que eu precisava.

Silvio e Alexandre, Muito obrigado pela força .

Bom dia..

Se resolveu, ótimo.

Abraços.

Ps. na correira esqueci do " famoso "... Format(Me.Data,"mm/dd/yyyy") & "#")

Só pra futuras consultas minhas.

Valeu,

Muito Obrigado

Valeu rogerio
O fórum agradece.

PS: Tranquilo Silvio...tamo junto !!!