Synchronize subform on value in primary form

[tstuve]

Hi.

I'm a rookie to Access coding and have what is probably a simple problem for you all. I have a subform that I need to synchronize with its primary form on a field in that form. Here's the code:

Private Sub Command50_Click()
On Error GoTo Err_Command50_Click

Dim stDocName As String
Dim stLinkCriteria As Integer

stLinkCriteria = [ContactID]

stDocName = "Names"
DoCmd.OpenForm stDocName, , , [ContactID] = Me.ContactID

Exit_Command50_Click:
Exit Sub

Err_Command50_Click:
MsgBox Err.Description
Resume Exit_Command50_Click

End Sub

When I invoke the form load, I get all the contact names, and only want those pertinent to the company I'm currently working with. Thanks for your help as always.

 

[gator]

If the set the Record Source for the subquery to a query where you have a statement in the where field that says:

WHERE ContactID=[FORMS].[enter form name here].[enter control name here]

Then add to your Command50_click [ form name].requery

Hope this helped!

-gator

 

[tstuve]

Not sure if I completely understood, here's the code after I modified. Still doesn't work right.


Private Sub Command50_Click()
On Error GoTo Err_Command50_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Names"
DoCmd.OpenForm stDocName, , , "'Contact ID' = Forms!form_contacts!contactid"
Form_Contacts.Requery


Exit_Command50_Click:
Exit Sub

Err_Command50_Click:
MsgBox Err.Description
Resume Exit_Command50_Click

End Sub

 

[Dugantrain]

Are you just trying to display a recordset where the subform's foreign key is equal to the primary key on the main form? If this is the case, you don't even need VBA. Just go to the subform's properties and link the foreign key Child field to the primary key of the Parent field. I don't know if this simple answer covers what you're trying to do or not.

 

[tstuve]

This sounds like it may work, but can you please educate the ignorant (i.e. ME)? How do you do this?

 

[Dugantrain]

What the Hell? I posted back yesterday, but now my post is gone. Oh well, anyway, just click on the subform, click on properties in the Toolbar, and set its Link Child and Link Master properties to the subform's foreign key and the main form's primary key, respectively. Post back and let us know if it did/didn't work.