Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMissingInfo As String
Dim strMsg As String
If IsNull(Me.[Debarred]) Then
Cancel = True
strMissingInfo = strMissingInfo & "Debarred"
End If
If IsNull(Me.[Restricted]) Then
Cancel = True
strMissingInfo = strMissingInfo & "Restricted"
End If
If IsNull(Me.[CommType]) Then
Cancel = True
strMissingInfo = strMissingInfo & "CommType"
End If
If IsNull(Me.[Approval_Status]) Then
Cancel = True
strMissingInfo = strMissingInfo & "Approval_Status"
End If
If Len(strMissingInfo) <> "" Then
strMsg = "The following are required: " & strMissginInfo
MsgBox strMsg
End If
End Sub