Access VBA Help! Show the Label Report Based on ID in Current Form

[Apple001]

I am having hard time finding the way to make the database below.

I have:
-Form "frmInvoice" with subform "Allocation" based on table "tblInvoice" and "tblAllocation". "invID" is auto number in tblInvoice and joins main form "frmInvoice" and subform "Allocation".

-Label report "Labels qryLabels," based on a query qryLabels. qryLabels is based on tblInvoice and tblAllocation. label report "Labels qryLabels" has "invID" field.


In form "frmInvoice," there is a command button "Command260", and when a user clicks this button, only label report that has same invID as the current form shows up.

I tried the following code and didnt work.

On Error GoTo Err_Command260_Click
 
    Dim stDocName As String
    Dim strgetinvID As String
 
    strgetinvID = Me.invID
   ' (I also tried "=Me.invID.Value)
 
    stDocName = "Labels qryLabels"
    DoCmd.OpenReport stDocName, acViewPreview, , invID = strgetinvID
 
Exit_Command260_Click:
    Exit Sub
 
Err_Command260_Click:
    MsgBox Err.Description
    Resume Exit_Command260_Click
 
End Sub

I appreciate any help.

[Jim Doherty]

I am having hard time finding the way to make the database below.

I have:
-Form "frmInvoice" with subform "Allocation" based on table "tblInvoice" and "tblAllocation". "invID" is auto number in tblInvoice and joins main form "frmInvoice" and subform "Allocation".

-Label report "Labels qryLabels," based on a query qryLabels. qryLabels is based on tblInvoice and tblAllocation. label report "Labels qryLabels" has "invID" field.


In form "frmInvoice," there is a command button "Command260", and when a user clicks this button, only label report that has same invID as the current form shows up.

I tried the following code and didnt work.

On Error GoTo Err_Command260_Click
 
Dim stDocName As String
Dim strgetinvID As String
 
strgetinvID = Me.invID
' (I also tried "=Me.invID.Value)
 
stDocName = "Labels qryLabels"
DoCmd.OpenReport stDocName, acViewPreview, , invID = strgetinvID
 
Exit_Command260_Click:
Exit Sub
 
Err_Command260_Click:
MsgBox Err.Description
Resume Exit_Command260_Click
 
End Sub

I appreciate any help.

the where clause argument of the OpenReport is not satisfied in that you have not passed it correctly, compare yours to the below
I can see that you have declared (Dim) strgetinvID as String but so that you know the difference

if your invID were a numeric value then the below would satisfy

DoCmd.OpenReport stDocName, acViewPreview, , "invID =" & strgetinvID

Your invID is a declared text based string so the below satisfies

DoCmd.OpenReport stDocName, acViewPreview, , "invID ='" & strgetinvID &"'"

As an aside to this research for your benefit the difference between the BANG and DOT operators please in how you reference controls in Access

Jim :)

[Apple001]

the where clause argument of the OpenReport is not satisfied in that you have not passed it correctly, compare yours to the below
I can see that you have declared (Dim) strgetinvID as String but so that you know the difference

if your invID were a numeric value then the below would satisfy

DoCmd.OpenReport stDocName, acViewPreview, , "invID =" & strgetinvID

Your invID is a declared text based string so the below satisfies

DoCmd.OpenReport stDocName, acViewPreview, , "invID ='" & strgetinvID &"'"

As an aside to this research for your benefit the difference between the BANG and DOT operators please in how you reference controls in Access

Jim :)

Duh! I feel so stupid. I was trying just to make this work for 3 hours! Thank you very much for your quick response & help, your advice taught me something today :-) Have a nice evening!

[Jim Doherty]

Duh! I feel so stupid. I was trying just to make this work for 3 hours! Thank you very much for your quick response & help, your advice taught me something today :-) Have a nice evening!

Haha don't feel bad about it we all make mistakes :)

You're very welcome

Jim :)