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.
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