Sub Report_Open(Cancel As Integer) : Report Event « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Report Event

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

 

Related examples in the same category