Help with report / print from form with query??

[Aftershock]

I have looked on the groups but can't seem to find an answer. I have a
parameter query that uses a form for its input. This form then opens
up a search result form based on the query. It is from this form that
I want to print via a report all of the returned records shown on the
form.

I can print off a single current record shown in the form (say record
3 of 5) using this code:

Private Sub cmdPrintCurrent _Click()
Dim strReportName As String
Dim strCriteria As String
strReportName = "report1"
DoCmd.OpenRepor t strReportName, acViewPreview, , Wherecondition: ="id =
" & Me.id
End Sub

How can I use this as a basis for printing off all of the returned
records on the form from the query?

I am resonable with Access but not that good with VBA (yet!).

Many thanks

[Larry Linson]

What you need is the WHERE clause (criteria) used to open the Form, not the
current record's ID. Where you would find that and how you would use it will
depend on the exact method you used to open the Form. If you used the Where
Condition or Filter of DoCmd.OpenForm, you may find the criteria you need in
the current Form's Filter property. If that's not the case, clarify and
someone will likely have a suggestion for you.

Larry Linson
Microsoft Access MVP
"Aftershock " <ra*****@jamesw hittaker.com> wrote in message
news:a5******** *************** ***@posting.goo gle.com...

I have looked on the groups but can't seem to find an answer. I have a
parameter query that uses a form for its input. This form then opens
up a search result form based on the query. It is from this form that
I want to print via a report all of the returned records shown on the
form.

I can print off a single current record shown in the form (say record
3 of 5) using this code:

Private Sub cmdPrintCurrent _Click()
Dim strReportName As String
Dim strCriteria As String
strReportName = "report1"
DoCmd.OpenRepor t strReportName, acViewPreview, , Wherecondition: ="id =
" & Me.id
End Sub

How can I use this as a basis for printing off all of the returned
records on the form from the query?

I am resonable with Access but not that good with VBA (yet!).

Many thanks