Code:
Dim strMissingInfo As String
Dim strMsg As String
On Error GoTo Command228_Click_Err
On Error Resume Next
If IsNull(Me.[Debarred]) Then
MsgBox "You Must make a Selection in the Debarred Field"
Else
If IsNull(Me.[Restricted]) Then
MsgBox "You Must make a Selection in the Resticted Field"
Else
If Me.[CommType].Value = "NA" Then
MsgBox "You Must make a Selection in the Commodity Type Field"
Else
If Me.[Approval_Status].Value = "NA" Then
MsgBox "You Must make a Selection in the Approval Status Field"
Else
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , "", acNewRec
End If
End If
End If
End If
Thank you for your respond. I have come up with this code. However, my goal is to get it to check all the required fields and then will have message box in the end to list which required fields are not filled yet before saving. Do you know what changes can i make to my code to achieve that goal. Thank you for your help.