hi,
exit yout sub if the validations fails.
ex-
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
If IsNull(Me!fieldname) Then
MsgBox "Please select a fieldname", vbCritical + vbOKOnly + vbDefaultButton1, "Missing data"
Me![fieldname].SetFocus
GoTo...