[Resolvido]Erro ao Inserir 99/99/9999 em um campo de Data/Hora

Boa tarde galera, gostaria de colocar uma mensagem que não seja padrão do Access no campo Data/Hora


Aparece assim:

o Valor que você inseriu não é válido para este campo

Por exemplo, talvez você tenha inserido texto em um campo númerico ou um número maior que o permitido pela configuração Tamanho do Campo.

Assunto já tratado no fórum
https://www.maximoaccess.com/t5034-mensagem-personalizada-ao-digitar-valor-diferente-da-mascara-de-entrada
https://www.maximoaccess.com/t854-resolvidopersonalizar-mensagem-do-campo-data

Basta inserir os códigos no evento "ao ocorrer erro" do formulário.

Segue abaixo código de outros possíveis erros

Código:

Dim strMensagem As String
   
    'erro formato de data
    If DataErr = 2113 Then
        Select Case Screen.ActiveControl.Name
            Case Me!txtData.Name
                strMensagem = "A data informada não está em um formato válido."
            Case Else
                strMensagem = "O valor inserido não é válido para este campo."
        End Select
   
    'erro de item informado não constar na lista
    ElseIf DataErr = 2237 Then
        Select Case Screen.ActiveControl.Name
            Case Me!cboProdutos.Name
                strMensagem = "Selecione um produto disponível na lista ou digite um que coincida com uma das opções listadas."
            Case Else
                strMensagem = "Selecione uma das opções da lista ou digite uma que coincida com uma das opções listadas."
        End Select

    'erro de máscara de entrada
    ElseIf DataErr = 2279 Then
        Select Case Screen.ActiveControl.Name
            Case Else
                strMensagem = "A máscara de entrada violada ocorreu no controle " & Screen.ActiveControl.Name & "!"
        End Select
    End If
   
    Response = acDataErrContinue
    Call fncMensagem(strMensagem, vbExclamation, "Atenção !!!")

Bom dia tudo bem amigo, eu copiei e colei o codigo e não deu certo, da um erro dizendo "Erro de compilação" Sub ou Function não definida...

eu fui em formulário e coloquei no evento "Ao Ocorrer Erro"...

Troque a linha
Call fncMensagem(strMensagem, vbExclamation, "Atenção !!!")

por
Call Msgbox(strMensagem, vbExclamation, "Atenção !!!")

mfmaiafilho, como anda essa questão? Resolveu?

Aguardamos...

Bom dia Mestre!

Perdão eu esqueci de por resolvido nessa questão!

Consegui estou usando o Me.ActiveControl.Name pra outras coisas também facilita muito na programação!

Obrigado!!!