please help me i'm sure this is not complicate..)
i have a form that permits me to select the good option to filter the data.
i have a frame with some options
for each frame options at the end i have a query that give me the filter
when i want to enter the form with the filtered data, i click a buton :
****************************
Private Sub Command17_Click()
On Error GoTo Err_Command17_Click
Select Case framFilter
Case 1
'select * from orders,order_details ;
Case 2
'select * from orders,order_details where orders.id_order = "id text from the form";
Case 3
'select * from orders,order_details where orders.supplier = "supplier text from the form";
End Select
Dim stDocName As String
Dim stLinkCriteria As String
'open this form with the data from the framFilter
'''''''''''''''''''''''''''''''''''''''''''''''
stDocName = "see_order"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command17_Click:
Exit Sub
Err_Command17_Click:
MsgBox Err.description
Resume Exit_Command17_Click
End Sub
**************************
i know what are all my queries
the single problem is how to send to the form "see_order " that i want to open, the data relevent after the filter??
please help me
i am really stuck and i'm sure this is not hard thing!!
i can send the code if someone accept to help me...
i have a form that permits me to select the good option to filter the data.
i have a frame with some options
for each frame options at the end i have a query that give me the filter
when i want to enter the form with the filtered data, i click a buton :
****************************
Private Sub Command17_Click()
On Error GoTo Err_Command17_Click
Select Case framFilter
Case 1
'select * from orders,order_details ;
Case 2
'select * from orders,order_details where orders.id_order = "id text from the form";
Case 3
'select * from orders,order_details where orders.supplier = "supplier text from the form";
End Select
Dim stDocName As String
Dim stLinkCriteria As String
'open this form with the data from the framFilter
'''''''''''''''''''''''''''''''''''''''''''''''
stDocName = "see_order"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command17_Click:
Exit Sub
Err_Command17_Click:
MsgBox Err.description
Resume Exit_Command17_Click
End Sub
**************************
i know what are all my queries
the single problem is how to send to the form "see_order " that i want to open, the data relevent after the filter??
please help me
i am really stuck and i'm sure this is not hard thing!!
i can send the code if someone accept to help me...