Access VBA Code für Suchformular geht nicht?
Hey, ich habe in einem Formular "Hauptmenü" ein Unterformular "InstallationskeysFormular", in dem Hauptformular habe ich ein Textfeld "txtSuche" und einen Button "btnSuche", mit folgendem Code:
Private Sub btnSuche_Click()
Dim strFilter As String
If Not IsNull(Me!txtSuche) Then
strFilter = "Produkt LIKE '*" & Me!txtSuche & "*' OR Beleg LIKE '*" & Me!txtSuche & "*' OR Kundennummer LIKE '*" & Me!txtSuche & "*'"
Me.Filter = strFilter
Me.FilterOn = True
End If
End Sub
Mithilfe dessen möchte ich das Unterformular sowohl nach Produkt, Beleg oder Kundennummer durchsuchen können und nur die passenden Datensätze sollen im Unterformular angezeigt werden.
In einem anderen Formular, welches kein Unterformular hat, funktioniert das einwandfrei.
Deshalb habe ich folgendes versucht, ich habe bei den Me.Filter und Me.FilterOn, den Namen des Unterformulares ergänzt, aber funktionieren tut es immer noch nicht, kann mir bitte wer sagen woran das liegt, dankeee.
Private Sub btnSuche_Click()
Dim strFilter As String
If Not IsNull(Me!txtSuche) Then
strFilter = "Produkt LIKE '*" & Me!txtSuche & "*' OR Beleg LIKE '*" & Me!txtSuche & "*' OR Kundennummer LIKE '*" & Me!txtSuche & "*'"
Me.InstallationskeysFormular.Filter = strFilter
Me.InstallationskeysFormular.FilterOn = True
End If
End Sub