kentwoodjean
Technical User
I have a problem that I thought was solved but has popped up again. My report is made up of 3 sub-reports, but only 1 of the sub reports uses the date parmater, while the other 2 are real time as of the current date.
Following is the entry on my parameter query:
Between [Forms]![DateForm]![Begin Date] And [Forms]![DateForm]![End Date]
From the switchboard, by button Opens the DateForm. I make my 2 date entries that populate unbound text boxes. My preview report button on this form is as folows:
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim stDocName As String
stDocName = "SummPendCombined"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Close acForm, "DateForm"
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
Everything works great up to this point. When I hit the print box and OK, a second box with the Parameter Details as on the Query appears and unless it is filled in, I do not get my information on the 1 subreport.
I could have sworn it was working but maybe I just imagined it. Any Ideas??
Following is the entry on my parameter query:
Between [Forms]![DateForm]![Begin Date] And [Forms]![DateForm]![End Date]
From the switchboard, by button Opens the DateForm. I make my 2 date entries that populate unbound text boxes. My preview report button on this form is as folows:
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim stDocName As String
stDocName = "SummPendCombined"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Close acForm, "DateForm"
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
Everything works great up to this point. When I hit the print box and OK, a second box with the Parameter Details as on the Query appears and unless it is filled in, I do not get my information on the 1 subreport.
I could have sworn it was working but maybe I just imagined it. Any Ideas??