filter na verandering recordsource

Status
Niet open voor verdere reacties.

klablabla

Gebruiker
Lid geworden
28 apr 2008
Berichten
116
Met de volgende code selecteer ik een andere tabel waar hij naar moet kijken.
Wat er nu nog fout gaat is na mijn eerste keer een tabel te selecteren filterd hij hem netjes.
De tweede en daarop volgende tabellen die ik selecteer filtert hij niet meer automatisch.

Code:
Me.SubFrm1.Form.RecordSource = Me.CmbdbSelector.Value
Me.SubFrm1.Form.Requery

    Dim strFilter As String, strOldFilter As String
    strOldFilter = Me.SubFrm1.Form.Filter

    strFilter = strFilter & _
                    " AND ([Complete Date] is Null)"
    strFilter = strFilter & _
                    " AND ([St]<'97')"
    
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.SubFrm1.Form.Filter = strFilter
        Me.SubFrm1.Form.FilterOn = (strFilter > "")
    End If
 
Code:
Dim temp As String
 temp = ""
 temp = SubFrm1.SourceObject
 SubFrm1.SourceObject = temp

Dit is de oplossing.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan