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
Hallo,
so sollte es klappen: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.