Office: (Office 2003) Laufzeitfehler 3075,Syntaxfehler (Fehlender Operator) im Abfrageausdruck

Solaris71 · 14. Mai 2008

Hallo,
ich versuche gerade ein Suchformular zu erstellen, bei dem ich während des Eintippen in das Textefeld die Liste des Unterformulars auf den eingegebenen Suchbegriff reduziere. Den Code dafür habe ich in einem anderem Beitrag hier im Forum gefunden. Das hat auch geklappt. Dann habe ich versucht, den Code auf zwei Kriterien zu erweitern um die Suchfunktion in meiner Datenbank zu optimieren. Als dieses nicht gelang, habe ich versucht, den Ursprung wieder herzustellen in dem ich die neu eingefügten Codes gelöscht habe. Leider bekomme ich seitdem die Fehlermeldung
Laufzeitfehler 3075,Syntaxfehler (Fehlender Operator) im Abfrageausdruck '[Country] AND ()'

Da der Code identisch mit dem Code ist, den ich vorher benutzt hatte, kann ich mir den Fehler nicht erklären. Wo übersehe ich was? Kennt jemand das Problem? Bin für jede Hilfe dankbar.

Gruß
Peter

Hier der Code:

Code:

Private Sub Text55_Change()

Dim sSuchbegriff As String
Dim sSQL As String
Dim I As Integer
Dim Pos1 As Integer

sSuchbegriff = Trim$(Text55.Text)

If sSuchbegriff = "" Then Exit Sub

sSQL = "SELECT [Country], [Company], [Company Loan], [Maximum Amount], [Condition terms], [Approved by] FROM [Abfrallcompanyloan] WHERE [Country] AND ("

I = 0
Pos1 = InStr(sSuchbegriff, " ")
While Pos1 > 0
I = I + 1

sSQL = sSQL & " (" & " [Country] & [Company] & [Maximum Amount] & [Condition terms] & [Approved by] Like '*" & Left$(sSuchbegriff, Pos1 - 1) & "*') AND "

sSuchbegriff = Right$(sSuchbegriff, Len(sSuchbegriff) - Pos1)
Pos1 = InStr(sSuchbegriff, " ")
Wend

SQL = sSQL & "(" & " [Country] & [Company] & [Maximum Amount] & [Condition terms] & [Approved by] Like '*" & sSuchbegriff & "*') "

sSQL = sSQL & ") ORDER BY [Abfrallcompanyloan.Country] DESC; "

Debug.Print sSQL

Me!Unterformular.Form.RecordSource = sSQL
Me!Unterformular.Requery
Me!Text55.SetFocus

Exit_Text55_Change:
Exit Sub

Err_Text55_Change:
MsgBox Err.Description
Resume Exit_Text55_Change

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Josef P. · 7. Januar 2021

von Solaris71

Leider bekomme ich seitdem die Fehlermeldung
Laufzeitfehler 3075,Syntaxfehler (Fehlender Operator) im Abfrageausdruck '[Country] AND ()'

Da der Code identisch mit dem Code ist, den ich vorher benutzt hatte, kann ich mir den Fehler nicht erklären. Wo übersehe ich was? Kennt jemand das Problem?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Naja, Access kann mit " AND ()" nichts anfangen.
Irgendwo im Code fehlt der Teil, der zwischen die Klammern gehört. Oder anders formuliert ein "AND ()" ist zuviel. *wink.gif*

Solaris71 · 16. Mai 2008

Ja, soweit war ich auch schon. Aber selbst das Löschen von "AND" hat mich nicht zu meinem Ergebnis geführt.

Josef P. · 16. Mai 2008

Zeige einmal die zusammengesetzte SQL-Anweisung her. Vielleicht ist dort das Problem besser erkennbar.

/edit:
Code:

...SELECT ...
FROM [Abfrallcompanyloan] WHERE [Country] AND ( ....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wozu soll der [COUNTRY] ohne Vergleichswert dienen?

Solaris71 · 18. Mai 2008

Sorry das ich mich mit Verspätung zurück melde.

Der oben abgebildete Code ist alles. Mehr habe ich nicht. Der hatte vorher einwandfrei geklappt.

Anne Berg · 18. Mai 2008

Hallo,

offensichtlich ist da ein leerer Datensatz vorhanden, den es möglicherweise vorher noch nicht gab.
Das solltest du berücksichtigen oder besser noch vermeiden...

Solaris71 · 19. Mai 2008

Hurra,

ich habs. Der leere Datensatz ist gefunden. Nach der Ergänzung hat es dann wieder wie vorher funktioniert.

Vielen Dank euch.

Gruß
Peter

Office: (Office 2003) Laufzeitfehler 3075,Syntaxfehler (Fehlender Operator) im Abfrageausdruck

Laufzeitfehler 3075,Syntaxfehler (Fehlender Operator) im Abfrageausdruck

Laufzeitfehler 3075,Syntaxfehler (Fehlender Operator) im Abfrageausdruck

Laufzeitfehler 3075,Syntaxfehler (Fehlender Operator) im Abfrageausdruck

Laufzeitfehler 3075,Syntaxfehler (Fehlender Operator) im Abfrageausdruck - Similar Threads - Laufzeitfehler 3075 Syntaxfehler

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

[VBA] .Documents.Open -> Laufzeitfehler 91

Laufzeitfehler 3075 Syntaxfehler (fehlender Operator)!!!