i have to replace the message box from Access on error 3314 for a message box with a custom message. I tried on the Private Sub Form_Error the following without results:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
'Dim Msg As String
On Error GoTo 0
On Error Resume Next
DoCmd.SetWarnings False
If DataErr = 3314 Then
'Msg = MsgBox("Ha dejado de llenar algun campo obligatorio en amarillo. Por favor coloque la información solicitada para poder continuar", vbCritical)
'SendKeys "{ESC}"
[Reporte #].SetFocus
End If
End Sub
But I still have the error message..
Please help...