Print Report for Current Record Displayed in subform

[capndave]

How do I reference current TissueID displayed in subform in the following:

Private Sub PrintImplRec_Click()
On Error GoTo Err_PrintImplRec_Click

Dim stDocName As String

stDocName = "ImplantRecord"
DoCmd.OpenReport stDocName, acPreview, , "[TissueID]=Forms!EDITORDERRECEIPT!TissueID"


where "EDITORDERRECEIPT" is the parent and "Receipt_Child_form" is the subform. The TissueID is found only on the subform.

Thanks

 

[jebry]

Hi!

Try this:

DoCmd.OpenReport stDocName, acPreview, , "[TissueID]= " & Forms!EDITORDERRECEIPT!YourSubformControlName.Form!TissueID

Note, this will work if TissueID is numerical. If it is alphanumeric use:

DoCmd.OpenReport stDocName, acPreview, , "[TissueID]= '" & Forms!EDITORDERRECEIPT!YourSubformControlName.Form!TissueID & "'"

hth

Jeff Bridgham
Purdue University
Graduate School
Data Analyst

 

[Eupher]

What is the name of the subform control? Hint: not necessarily the same as the name of the subform itself.

[TissueID]=Me!SubformControlName.Form!TissueID

Ken S.

 

[Eupher]

Oops, jebry is right, I forgot to concatenate...

"[TissueID]=" & Me!SubformControlName.Form!TissueID

Ken S.