Public Const errNoDuplicates = 3022 
Public Const errNoNulls = 3314
...
Private Sub Form_Error(DataErr As Integer, Response As Integer) 
	Select Case DataErr
	Case errNoDuplicates
		MsgBox "That company name already exists.", vbExclamation
	 	Response = acDataErrContinue
	Case errNoNulls
		MsgBox "Company name is a required field.", vbExclamation
	 	Response = acDataErrContinue
	Case Else
	 	Response = acDataErrDisplay
	End Select
End Sub