I tried using this code:
Private Sub cmdprint_Click()
Dim strCriteria As String
strCriteria = "[UserID] = " & Me![UserID]
If gfReportHasNoData1 = True Then
MsgBox "There are no records to report", vbExclamation, "No Records"
Cancel = True
Else
MsgBox gfReportHasNoData1, vbExclamation...