Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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