It works BUT THE PROBLEM:
I have to put in the date for each report so it will print. I want to put the date in once and all 5 reports prints
Query:
Field: Last Service Record
Criteria: [last service date].[text]
Expand|Select|Wrap|Line Numbers
- Private Sub btn_prnt_rpt_date_Click()
- On Error GoTo Err_btn_prnt_rpt_date_Click
- Dim stDocName As String
- stDocName = "rpt_Date_Crew_Cheif"
- DoCmd.OpenReport stDocName, acNormal
- stDocName = "rpt_Date_FM"
- DoCmd.OpenReport stDocName, acNormal
- stDocName = "rpt_Date_Label"
- DoCmd.OpenReport stDocName, acNormal
- stDocName = "rpt_Date_Service"
- DoCmd.OpenReport stDocName, acNormal
- stDocName = "rpt_Date_Work"
- DoCmd.OpenReport stDocName, acNormal
- Exit_btn_prnt_rpt_date_Click:
- Exit Sub
- Err_btn_prnt_rpt_date_Click:
- MsgBox Err.Description
- Resume Exit_btn_prnt_rpt_date_Click
- End Sub