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