Print specific record in subform

[falcondeer]

Hi

I have the following code for the command button to print a record in the subform which lies in the main form:

Dim strReportName As String
Dim strCriteria As String
strReportName = "rptWA2"
strCriteria = "P_ID= " & Nz(Me!P_ID, 0)
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

The problem is that if I have more than one record in the subform, it will always print the first record no matter what .

Now, how could I print specific record in the subform.

Thanks.

 

[arnelgp]

does your subform has Autonumber field on it?
that is the clue.

 

[falcondeer]

does your subform has Autonumber field on it?
that is the clue.

yes It has see the pic.

 

[arnelgp]

does your report has the PR_ID on its recordsource?
filter by PR_ID not by P_ID.

 

[falcondeer]

does your report has the PR_ID on its recordsource?
filter by PR_ID not by P_ID.

Yes it has

 

[MajP]

Assuming your button is on the main form then

Dim strReportName As String
Dim strCriteria As String
strReportName = "rptWA2"
strCriteria = "PR_ID= " & nz(Me.SubformControlName.Form.PR_ID,0)
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

 

[falcondeer]

Assuming your button is on the main form then

Dim strReportName As String
Dim strCriteria As String
strReportName = "rptWA2"
strCriteria = "PR_ID= " & nz(Me.SubformControlName.Form.PR_ID,0)
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

Thanks a lot, you made my day.

 

[falcondeer]

Yes it has

View attachment 90601

Thank you very much, you taught me something new.