F
Fie
hey,
am trying to get a form to open when i open up a report... that allows
user to enter in data range which is parameters from a query, but on
the On Open even in the report iv attached the followen code...
Private Sub Report_Open(Cancel As Integer)
' Open Sales by Year Dialog form.
' IsLoaded function (defined in Utility Functions module) determines
' if specified form is open.
Dim strDocName As String
strDocName = "frmDate"
' Set public variable to True so Sales by Year Dialog knows that
report
' is in its Open event.
blnOpening = True
' Open form.
DoCmd.OpenForm strDocName, , , , , acDialog
' If Sales by Year Dialog form isn't loaded, don't preview or print
report.
' (User clicked Cancel button on form.)
If IsLoaded(strDocName) = False Then Cancel = True
'Set public variable to False, signifying that Open event is
finished.
blnOpening = False
End Sub
but it highlights the followen lines when the code is run
Private Sub Report_Open(Cancel As Integer)
blnOpening = True
am working in access 97... has anyone any ideas how to solve this
ppppppppppppppplllllllllllllllllllllleeeeeeeeeeeeaaaaaaaasse help...
fie
am trying to get a form to open when i open up a report... that allows
user to enter in data range which is parameters from a query, but on
the On Open even in the report iv attached the followen code...
Private Sub Report_Open(Cancel As Integer)
' Open Sales by Year Dialog form.
' IsLoaded function (defined in Utility Functions module) determines
' if specified form is open.
Dim strDocName As String
strDocName = "frmDate"
' Set public variable to True so Sales by Year Dialog knows that
report
' is in its Open event.
blnOpening = True
' Open form.
DoCmd.OpenForm strDocName, , , , , acDialog
' If Sales by Year Dialog form isn't loaded, don't preview or print
report.
' (User clicked Cancel button on form.)
If IsLoaded(strDocName) = False Then Cancel = True
'Set public variable to False, signifying that Open event is
finished.
blnOpening = False
End Sub
but it highlights the followen lines when the code is run
Private Sub Report_Open(Cancel As Integer)
blnOpening = True
am working in access 97... has anyone any ideas how to solve this
ppppppppppppppplllllllllllllllllllllleeeeeeeeeeeeaaaaaaaasse help...
fie