Laufzeitfehler 2448 - Sie können dem Objekt keinen Wert zuweisen

[accessy]

Ich habe ein Formular. In diesem befindet sich dieser Code, der bei Eingabe in der TextBox (SAF), ausgelöst wird.
Das ist eine Art Universal-Schnellsuche.
Das funktioniert prima.

Code [Auswählen] Erweitern


Private Sub SAF_Change() 'Universalsuche
  Me.Filter = "Kunde & Adresse & PLZ & Ort & Tel & Fax & KNR & Bemerkung  like '*" & Me!SAF.Text & "*'"
  Me.FilterOn = True
End Sub


Jetzt habe ich noch ein anderes Formular, in dem sich auch eine TextBox befindet.
Nur hier funktioniert das nicht.

Code [Auswählen] Erweitern


Private Sub Search_Result_Change()
  Me.Filter = "Resultat & Kunde & like '*" & Me!Search_Result.Text & "*'"
  Me.FilterOn = True
End Sub


Wenn ich die Hilfe aufrufe, kommt was über Sperrungen von Feldern. Hier ist nichts gesperrt.
Hat jemand eine Idee, was hier falsch sein kann?

Gruß Achim

[database]

Hallo,

spontan fällt mir auf, dass ein Leerzeichen fehlt bzw das eine & nach 'Kunde' zu viel in deinem Filterstring ist ...

Me.Filter = "Resultat & Kunde  like '*" & Me!Search_Result.Text & "*'"

[accessy]

Mist aber auch.
Kann da wegen des überflüssigen "&" nicht ein Syntaxfehler kommen?

Dann hätte ich es gleich gesehen. Na egal,

ich danke dir für den - für mich etwas peinlichen - Hinweis.
Schönes Weekend noch

Gruß Achim