Report Open event : Report Event « Access « VBA / Excel / Access / Word






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

Report Open event

 
Private Sub Report_Open (Cancel As Integer)
        Dim blnResultintResult      As Integer
        Dim strWarning     As String
        strWarning = "This report may take some time." & _
             " Or press Cancel to abort the operation."
        intResult = MsgBox (strWarning, vbOKCancel, "Warning")
        If intResult = vbCancel Then
              Cancel = True
        End If

End Sub








Related examples in the same category

1.Sub Report_Open(Cancel As Integer)
2.Sub Report_Close()
3.Sub Report_NoData(Cancel As Integer)
4.The Page event gives you the opportunity to do something immediately before the formatted page is sent to the printer: place a border around a page
5.Report Error Event
6.Activate toolbar with DoCmd.ShowToolbar
7.Deactivate toolbar DoCmd.ShowToolbar
8.Close form without saving