On Error Resume Next
DoCmd.OpenForm "frmReportDateRange", _
WindowMode:=acDialog, _
OpenArgs:="rptProjectBillingsbyWorkCode"
If Not IsLoaded("frmReportDateRange") Then
MsgBox "Criteria Form Not Successfully Loaded, " & _
"Canceling Report"
Cancel = True
End If
End Sub