Private Sub Form_Error(DataErr As Integer, Response As Integer)
Dim Message As String
If DataErr = 3314 Then 'Required field is empty
Message = "You Have Left The Field “ & Me.ActiveControl.Name & “ Empty and
It Must Have Data!”
Response = MsgBox(Message, vbExclamation, "Data Required For This Field")
Response = acDataErrContinue
End If
End Sub