Form NOT linking to Link Criteria - HELP

[vbrookie]

I've recently created a form link from a listbox with proper link criteria. However, I had to change a form's property to 'tune' the slow reactions from linked tables over the network (the OnLoad solution and switching controls to Tag functions). This forces me to set the recordsource to Null and doing so, my previous code to automatically link the listbox value (from Form1) to Form2 to be inoperable.

Form1 Control:

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_Contract_Entry"

stLinkCriteria = "[Contract_Key]=" & "'" & Forms!main_switchboard.[List11] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Form2 OnLoad Sub
Me.RecordSource = "Contract_Main"

For Each ctl In Me.Controls
Select Case ctl.Properties("ControlType")
Case acComboBox, acListBox
ctl.RowSource = ctl.Tag
Case acSubform
ctl.Form.RecordSource = ctl.Form.Tag
Case Else
'do nothing
End Select
Next ctl

Set ctl = Nothing

Please help - If I remove the OnLoad fix and set the Form(2) with Record Source as Contract_Main, everything works fine...but very slow

PLEASE HELP

[FishVal]

Hi, vbrookie.

DoCmd.OpenForm method sets Form.Filter property before any event (Open, Load) on an opened form will be fired.
You may try to pass LinkCtiteria via OpenArgs and then on Form_Load event set Form.Filter property to Form.OpenArgs.

[vbrookie]

Hi, vbrookie.

DoCmd.OpenForm method sets Form.Filter property before any event (Open, Load) on an opened form will be fired.
You may try to pass LinkCtiteria via OpenArgs and then on Form_Load event set Form.Filter property to Form.OpenArgs.

Thanks for the tip - however, I'm not sure how to code that...can you help me out?

Thanks!

[FishVal]

Thanks for the tip - however, I'm not sure how to code that...can you help me out?

Thanks!

Something like this

Dim stDocName As String
Dim stOpenArgs As String
 
stDocName = "frm_Contract_Entry"
stOpenArgs = "[Contract_Key]=" & "'" & Forms!main_switchboard.[List11] & "'"
DoCmd.OpenForm FormName:=stDocName, OpenArgs:=stOpenArgs
 

Form2 OnLoad Sub

With Me
    .RecordSource = "Contract_Main"
    .Filter=.OpenArgs
    .FilterOn=True
End With
 
For Each ctl In Me.Controls
    Select Case ctl.Properties("ControlType")
    Case acComboBox, acListBox
        ctl.RowSource = ctl.Tag
    Case acSubform
        ctl.Form.RecordSource = ctl.Form.Tag
    Case Else
        'do nothing
    End Select
    Next ctl
 
    Set ctl = Nothing