Filter für ein Formular per VBA setzen

[compinaut]

Hallo,
ich möchte gerne einen Filter für ein Formular setzen. Dazu muss ich lt. Hilfe eine Where-Klausel ohne das Schlüsselwort Where benutzen. Folgender Code funktioniert aber nicht (Syntaxfehler):

((([Tab Telefonnummern].Nachname) Like '" & "*" & Result & "*'" & ")) OR ((([Tab Telefonnummern].Vorname) Like '" & "*" & Result & "*'" & ")) OR ((([Tab Telefonnummern].Straße) Like '" & "*" & Result & "*'" & ")) OR ((([Tab Telefonnummern].Ort) Like '" & "*" & Result & "*'" & ")) OR ((([Tab Telefonnummern].Mailadresse) Like '" & "*" & Result & "*'" & ")) OR ((([Tab Telefonnummern].Bemerkungen) Like '" & "*" & Result & "*'" & "));"

Ich habe die Where-Klausel mit der SQL einer funktionierenden Abfrage verglichen. Ich finde partout keinen Unterschied.

Wo könnte der Fehler liegen? Nach mehreren Stunden Probierens bin ich es leid und weiß nicht weiter. Auch eine Paramterabfrage mit "Wie *[Suchwort]*" kriege ich nicht mehr hin. Dann würde ich einfach die Abfrage tauschen.

Gruß
compinaut

[ebs17]

Filter für ein Formular per VBA setzen

Code [Auswählen] Erweitern

Dim sFilter As String
sFilter = "..."       ' da käme so etwas wie von Dir geschrieben hinein, gerne aber übersichtlicher und effizienter
Me.Filter = sFilter
Me.FilterOn = True    ' also auch zuweisen und anwenden

[PhilS]

ich möchte gerne einen Filter für ein Formular setzen.

Für das erforderliche Basiswissen, lies mal mein VBA-SQL-String-Tutorial, oder schau dir das korrespondierende Tutorial-Video an.

[Beaker s.a.]

Und dann gibt es auch noch die Print-Methode des Debug-Objekts.

Code [Auswählen] Erweitern

Dim sFilter as String
sFilter = "DeinAusdruck"
Debug.Print sFilterAnsehen mit Ctrl-G.