Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Sub Report_Open(Cancel As Integer)

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