filter

[slimjen]

Help. Trying to filter a subform from combo box on main form.

Private Sub cboSSN_AfterUpdate()

Dim strFilter As String

    strFilter = "SSNum = '" & Me.cboSSN & "'"

Forms!frmMedQ!sfrmMedCInfo.Form.Filter = strFilter
Forms!frmMedQ!sfrmMedCInfo.Form.FilterOn = True
End Sub

Not working. Any suggestions? Thanks

[RuralGuy]

Why not use the LinkMaster/ChildFields properties of the SubFormControl? That's what they are for!

[slimjen]

I am using the linkmaster/childfields?? They are linked by the SSNum. So I guess I am using the wrong code??

[RuralGuy]

If the LinkMaster/ChildFields are set properly than no filter is necessary. What do you have as the value of these two properties of the SubFormControl?

[June7]

The main form is bound? What is the RecordSource? The subform holds child records related to records of main form? The Master/Child links of the subform container control will synchronize display of related child records. No code needed.

[slimjen]

subform so that when the user select the SSN it will pull the related record in the subform. Sorry for all the confusion because I know I have worked this in event code “afterupdate” and it doesn’t seem to be working. I guess I have forgotten the steps to completing this. I’ve tried this code and it seems not to work either:

Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[SSNum] = '" & Me.cboSSN & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

I really appreciate your help.

[slimjen]

All; I got it. Must be a new day and new brain thanks for all your help!

[RuralGuy]

Are you going to use the Thread Tools at the top of the thread and mark this thread as solved?