PLZ in UFO über VBA abfragen

[SG05]

Hallo zusammen,

über mehrere Felder in einem Formular wird ein UFO abgefragt.

Für Felder mit Text und Zahl:

Dim strkrit As String
If Not IsNull(Me!MeinFeldText) Then strkrit = strkrit & " and [MeinFeldText] ='" & Me!MeinFeldText& "'"

If Not IsNull(Me!MeinFeldZahl) Then strkrit = strkrit & " and [MeinFeldZahl] =" & Me!MeinFeldZahl

If Len(strkrit) > 0 Then strkrit = Mid(strkrit, 6)

Me!For_Kunden_1.Form.Filter = strkrit
Me!For_Kunden_1.Form.FilterOn = True[/size]

Das funktioniert alle perfekt.

Nun möchte ich ein Feld mit PLZ abfragen, wobei der User nicht immer die ganze PLZ eingeben muss, um auch nach PLZ-Bereichen abzufragen. Die Daten im Feld sind wie folgt:

D -12345

Das Feld PLZ1 beinhaltet die Länderkennung ( D -;F -;NL - usw.)
Das zweite Feld PLZ2 soll die Zahl sein

Meine VBA:

If Not IsNull(Me!PLZ2) Then strkrit = strkrit & " and [PLZ] '" & Me![PLZ1] & Me!PLZ2 & "*" & "'"


Die Fehlermeldung: Syntaxfehler (fehlender Operator.....

Ich hoffe, ich konnte Problem verständlich rüberbringen.Ist das, was ich vorhabe, möglich?

Wenn ja, danke ich für Eure Unterstützung

Gruß aus HH

[MaggieMay]

Hallo,

so sollte es klappen:

Code [Auswählen] Erweitern

If Not IsNull(Me!PLZ2) Then strkrit = strkrit & " and [PLZ] LIKE '" & Me!PLZ2 & "*'"Es ist übrigens schon lange nicht mehr üblich, das Länderkennzeichen vor die Postleitzahl zu setzen.
Und Teil der Postleitzahl sollte es schon erst recht nicht sein.

Und benutze doch bitte auch die Code-Tags.