[Resolvido]Mensagens de Erro

Pessoal !
vi alguns exemplos do fórum mas não encontrei resposta para minha questão.
O Access tem suas prorpias mensagens de erro como faço para descobri e alterar o texto dessas mensagens.
ex: tenho um campo data em um formulario tipo data e se eu inserir uma data que não existe surge uma mensagem :
O Valor que você inseriu não e válido para este campo
Por exemplo, talvez você tenha inserido texto em um campo numerico...
A verdade eu inseri uma data que não existe que foi 29/02/2010 em 2010 o mês de fevereiro só teve 28 dias, como posso personalizar isso ?

Obrigado.

Boa tarde

Teste Gerson

No acontecimento ao ocorrer erro do form


Private Sub Form_Error(DataErr As Integer, Response As Integer)

Response = acDataErrContinue 'inibe msg padrão do access.
Exit Sub
Response = acDataErrDisplay
Response = acDataErrContinue
Exit Sub

End Sub

Bom dia Assis ! Funcionou perfeitamente, agora eu queria realmente era mudar o texto da mensagem de erro exemplo:
A data que você digitou está Invalida ! Tente Novamente.
Obrigado pela assistência!

Olá Gerson,

Tenta assim, eliminando as linhas EXIT SUB:


Response = acDataErrContinue 'inibe msg padrão do access.
Response = acDataErrDisplay
Response = acDataErrContinue
MsgBox "Data inválida"


Pode ser que dê certo.

Nivaldo

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Response = acDataErrContinue 'inibe msg padrão do access.
MsgBox "A data que você digitou está Invalida ! Tente Novamente. ", vbQuestion, "Aviso"

Exit Sub
Me.SeuCampoData.SetFocus
Response = acDataErrDisplay
Response = acDataErrContinue
Exit Sub

End Sub

Grato, Nivaldo o Exemplo do Mestre Assis, ficou completíssimo. A todos Muito obrigado já está funcionando.
Até breve.

Obrigado pelo retorno
O forum agradeçe