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
I have this code to get the users to enter all required fields, and if it's not all filled out, the data cannot be saved and the message box will pop up. However, it's giving me error on the Len() function. Can you please look at the code to see where is the error in my code? Thank you!