[Resolvido]Comparar dois campos

Bom dia gente.

Eu tenho um campo no meu subformulário que se chama DATA DO CADASTRO (pelo que o próprio nome sugere, nesse campo o usuário deve entrar com a data em que o registro foi efetuado - dd/mm/aaaa).

Gostaria de saber se tem como fazer uma macro (ou comando) que compare a data atual do sistema com a data digitada pelo usuário e, se elas forem diferentes, aparecer uma msg informando* a diferença.

*Se DATA DO CADASTRO diferente da data atual, aparecer msg informando que o usuário. (mesmo as datas sendo diferentes, o registro é salvo. A msg é única e exclusivamente para "alertar" o usuário).

Se tiver como, por favor indiquem a maneira de fazer tal macro ou comando.

No aguardo.

Tente isso no evento "Após atualizar" do campo da data:

If Me.NomeCampoData.Value <> Format(Now, "dd/mm/yyyy") Then
MsgBox "A data digitada é diferente da data atual", , "Datas diferentes"
End If

criqui,

o comando funcionou em partes...

Mesmo qdo eu digito a data de hoje (29/06/2010) aparece a msg.

O código ficou assim:

Private Sub DATA_DO_CADASTRO_AfterUpdate()
If Me.DATA_DO_CADASTRO.Value <> Format(Now, "dd/mm/yyyy") Then
MsgBox "A data digitada é diferente da data atual (hoje).", , "ATENÇÃO!"
End If
End Sub

Informação adicional: o campo DATA DO CADASTRO está formatado como:
Formato: data abrevida
Casas decimais: automático
Máscara de entrada: 99/99/9999

O que será que houve de errado? Será que a data do programa está diferente da data de hoje? (onde eu posso consultar a data do access?)

Nota: qdo eu digito a data de hoje, ao dar tab o que eu digitei (29/06/2010) fica assim: 29/6/2010. Será esse o motivo da inconsistência do comando?

Private Sub DATA_DO_CADASTRO_Exit(Cancel As Integer)
If Me.DATA_DO_CADASTRO.Value <> Date() Then
MsgBox "A data digitada é diferente da data atual (hoje).", , "ATENÇÃO!"
DoCmd.CancelEvent
Else
Exit Sub
End If
End Sub

criquio o JPaulo resolveu o meu problema.

Obrigado aos dois pela ajuda.

Tópico resolvido.

Beleza. Se está resolvido, resolvido está. Ia tentar outras fórrmulas, começando por essa do grande JPaulo, até chegarmos à solução. É que às vezes formatação de campo diferente requer solução diferente, rsrsrs.

Só não consigo perceber o porquê de se complicar o simples.

Formatar o Agora() para data, é mais complicado que o Data() diretamente, certo ?

Isto Format(Now, "dd/mm/yyyy") é mais ou menos isto Date(), mas não é igual.

Então, JPaulo, eu ia sugerir exatamente isso Date() mas imaginei que a caixa de texto dele estivesse formatada, por isso formatei tambem, rsrsrs.

Grande criquio sempre a surpreender..... rsrsrsrs

Você estava a formatar o Now() e não a caixa de texto.

Formatar o campo como você diz seria;

If Format(Me.NomeCampoData,"dd/mm/yyyy") <> Format(Now, "dd/mm/yyyy") Then

KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK
Acho que tem hora que falamos a mesma coisa mas por razão do modo de usar as palavras, não nos entendemos. Será a diferença de nacionalidade? huahuahuahuahua.