Code:
Private Sub Command228_Click()
'Save
On Error GoTo Command228_Click_Err
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
If (MacroError <> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
End If
Command228_Click_Exit:
Exit Sub
Command228_Click_Err:
MsgBox Error$
Resume Command228_Click_Exit
End Sub
How do you modify the code to where it will check these 4 fields "Debarred, Restricted, CommType, and Approval_Status" are null before saving.