I want to Access a Subform based on a selection in another form

[MattFitzgerald]

When I open my database I have a comand button "Search Orders By VOL"

This opens a form containing a dropdown list "Combo4" from here I select my order reference [VOL Ref] e.g. VOL011-0000000004 and click a command button "Open Customer Orders" which opens a form "Frm_LE_List" to the correct customer [LE ID], but I do not know how to make the Subform "Frm_VOL_References" open to the correct [VOL Ref].

Here is the code "on click" of command button "Open Customer Orders" :-

Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Frm_LE_List"
 
    stLinkCriteria = "[LE ID]=" & Me![LE ID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Command7_Click:
    Exit Sub
 
Err_Command7_Click:
    MsgBox Err.Description
    Resume Exit_Command7_Click

Please can someone help as I have spent 2 Days trying to figure this one out.

I will attach my database so you can see better the problem.

Any help is much appreciated Matt Fitzgerald

[JustJim]

When I open my database I have a comand button "Search Orders By VOL"

This opens a form containing a dropdown list "Combo4" from here I select my order reference [VOL Ref] e.g. VOL011-0000000004 and click a command button "Open Customer Orders" which opens a form "Frm_LE_List" to the correct customer [LE ID], but I do not know how to make the Subform "Frm_VOL_References" open to the correct [VOL Ref].

Here is the code "on click" of command button "Open Customer Orders" :-

Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Frm_LE_List"
 
    stLinkCriteria = "[LE ID]=" & Me![LE ID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Command7_Click:
    Exit Sub
 
Err_Command7_Click:
    MsgBox Err.Description
    Resume Exit_Command7_Click

Please can someone help as I have spent 2 Days trying to figure this one out.

I will attach my database so you can see better the problem.

Any help is much appreciated Matt Fitzgerald

Hi,

Check out NeoPa's article here

Jim