Print only selected record of a sub form

[falahsalih]

I have a

data entry form

which consists of three forms


1-

Main

form (customer) 2- Sub form (order) 3- Sub form (order details)
the order details sub form is

linked

to order sub form, also the order sub form is linked to the

customer form

. I created a report by wizard with customer record set, and then dragged the order records to the report by using "from existing table". Finally, i created a sub report for the order details. From the data entry form, when i click the order sub form record, the corresponding fields of the order details shown only, and that fits my need. Well, I created a command button to print the selected records. I built. The command button has the following code

Private Sub cmdPrint_Click()

Dim
 strWhere As String

If Me.Dirty Then    'Save any edits.
    Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
    MsgBox "Please select a record"
Else
    strWhere = "[CustomerID] = " & Me.[CustomerID]
    DoCmd.OpenReport "rptcustomers", acViewPreview, , strWhere
End If
End Sub

However, when i select the the second row of the order in the data entry form which is refer to the second order of a customer, the report show all the orders and their details of that customer. I want only the selected order and its details printed. Can any help please. I explained what i did step by step just to be clear to the reader.

[June7]

Is the command button on the main form or subform?

You need to include the OrderID in the criteria, not the CustomerID

[falahsalih]

Is the command button on the main form or subform?

You need to include the OrderID in the criteria, not the CustomerID

The command button in the main form

[June7]

Try:

strWhere = "[OrderID] = " & Me.subformcontainername.[OrderID]

[falahsalih]

Try:

strWhere = "[OrderID] = " & Me.subformcontainername.[OrderID]

I tried it , it shows me this error

[ItsMe]

Tell us what happens when you hit the Debug Button. Post the latest code you are using.

[falahsalih]

Tell us what happens when you hit the Debug Button. Post the latest code you are using.

this is the code that I'm used

Private Sub Command28_Click()
'DoCmd.OpenReport "rptcustomers", acViewPreview, , "[CustomerID] = " & [CustomerID]

Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Please select a record"
Else
strWhere = "[OrderID] = " & Me.ordersubform.[OrderID]
DoCmd.OpenReport "rptcustomers", acViewPreview, , strWhere
End If
End Sub

and this is what ahappend when i pressed debug

[amrut]

Does this works ?

strWhere = "[OrderID] = " & Me.ordersubform.Form![OrderID]

[falahsalih]

Does this works ?

strWhere = "[OrderID] = " & Me.ordersubform.Form![OrderID]

Amazing, but it works partially, it returns the right order but with no order details.
Note, I have another sub form contains the corresponding details of each order and have to appear with selected order

[falahsalih]

Does this works ?

strWhere = "[OrderID] = " & Me.ordersubform.Form![OrderID]

Sorry Armut,
yessssssss, your code works, Thanks alot

[ItsMe]

Amazing, but it works partially, it returns the right order but with no order details.
Note, I have another sub form contains the corresponding details of each order and have to appear with selected order

I was going to suggest to add more criteria to your strWhere but it sounds like your subreport is not using the correct Link Main/Child Fields property. Perhaps include OrderID as the only field or add it to the properties as a compound key to work with the existing Main Child Link.