Início
Finalmente descobri como personalizar a mensagem de máscara de entrada padrão do Access que é muito estranha para os clientes. Aqui disponibilizo um exemplo genérico que atende a qualquer erro ao digitar valor inválido em qualquer campo do form com máscara. Mas eu costumo usar um Select para tratar mais de um campo com máscara individualmente.
Private Sub Form_Error (DataErr As Integer, Response As Integer)
Const INPUTMASK_VIOLATION = 2279
If DataErr = INPUTMASK_VIOLATION Then
MsgBox "Os dados inseridos para esse campo estão incorretos. Por favor, corriga.", vbInformation, "Dados incorretos"
Response = acDataErrContinue
End If
End Sub
Private Sub Form_Error (DataErr As Integer, Response As Integer)
Const INPUTMASK_VIOLATION = 2279
If DataErr = INPUTMASK_VIOLATION Then
MsgBox "Os dados inseridos para esse campo estão incorretos. Por favor, corriga.", vbInformation, "Dados incorretos"
Response = acDataErrContinue
End If
End Sub
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
