S
Sophia
I would like some advise on what to do with my situation. I have a form
Frm_LkkpAnimals that is based on a query with parameters to choose a date
range to display records. I am trying to put the parameters on another form
(named FrmLkkpPSbyDate) to make it more user friendly. I followed
instructions on how to use a pop up calendar to populate the cboStartDate and
cboEndDate boxes, but I can't get it to open the form with the date range and
the parameter box opens for each parameter before the input form is opened.
These dates are used in the record source for the Frm_LkkpAnimals
Between [Forms]![FrmLkkpPSbyDate]![cboStartDate] And
[Forms]![FrmLkkpPSbyDate]![cboEndDate]
Private Sub Form_Load()
'Set public variable to true to indicate that the report
'is in the Open event
bInReportOpenEvent = True
'Open form
DoCmd.OpenForm "FrmLkkpPSbyDate", , , , , acDialog
'Cancel Report if User Clicked the Cancel Button
If IsLoaded("FrmLkkpPSbyDate") = False Then Cancel = True
'Set public variable to false to indicate that the
'Open event is completed
bInReportOpenEvent = False
End Sub
Is there a simplier way to accomplish this? Also, can I use a combo box to
specify the date range as well as another criteria in the query?
Help would be greatly appreciated.
Sophia
Frm_LkkpAnimals that is based on a query with parameters to choose a date
range to display records. I am trying to put the parameters on another form
(named FrmLkkpPSbyDate) to make it more user friendly. I followed
instructions on how to use a pop up calendar to populate the cboStartDate and
cboEndDate boxes, but I can't get it to open the form with the date range and
the parameter box opens for each parameter before the input form is opened.
These dates are used in the record source for the Frm_LkkpAnimals
Between [Forms]![FrmLkkpPSbyDate]![cboStartDate] And
[Forms]![FrmLkkpPSbyDate]![cboEndDate]
Private Sub Form_Load()
'Set public variable to true to indicate that the report
'is in the Open event
bInReportOpenEvent = True
'Open form
DoCmd.OpenForm "FrmLkkpPSbyDate", , , , , acDialog
'Cancel Report if User Clicked the Cancel Button
If IsLoaded("FrmLkkpPSbyDate") = False Then Cancel = True
'Set public variable to false to indicate that the
'Open event is completed
bInReportOpenEvent = False
End Sub
Is there a simplier way to accomplish this? Also, can I use a combo box to
specify the date range as well as another criteria in the query?
Help would be greatly appreciated.
Sophia