Office: (Office 2016) VBA Abfrage Problm mit Hochkommas

Hallo,

ich möchte folgende Abfrage per VBA ausführen, bekomme aber die Fehlermeldung, dass Kriterien fehlen. Die Abfrage ist aber korrekt denn sie funzt ja als normale Sql. Demnach bin ich mir fast sicher, dass es etwas mit den Hochkommas und Gänsefüßenzu tun hat, komme dem aber leider nicht auf die Schliche.

Code:

Kann mir da vielleicht jemand einen guten Tipp geben. Danke im Voraus für die Hilfe.

:)

 

Moin, versuch's so. Den zur Kontrolle im Direktfenster ausgegebenen SQL-String kannst du entweder direkt zur Fehlersuche nutzen oder im Abfragentwurf testen.
Code:

maike

 

Danke für die schnelle Antwort.

Im Abfrageentwurf gibt es keinen Fehler, wie gesagt dort läuft die Abfrage sauber. Im VBA bekomme ich als Fehler wie vermutet die Gänsefüßen angezeigt.
Allerdings fehlt mir hier das Fachwissen um diesen Fehler zu korrigieren.

 

Hast du meinen Vorschlag ausprobiert?
Was steht dann im Direktfenster?
maike

 

Moin,

der Unterschied zur Abfrage besteht in den umfassenden Hochkommata. Was Du dem RunSQL als String anbietest, ist gar keiner.

Bau einen String auf und füttere mit diesem den RunSQL.

 

Ein String in VBA muss in Gänsefüßchen eingeschlossen werden, also auch eine SQL-Anweisung.
Enthält die SQL-Anweisung selber Gänsefüßchen, kollidieren sie mit den anderen, sprich der String ist für VBA viel schneller beendet, danach kommen für VBA unauswertbare Zeichenfolgen ... genug Fehlerpotential.
Also müssen diese inneren Gänsefüßchen speziell behandelt werden,
über Ersatz durch einfache Hochkommata wie das maike zeigt, oder Verdopplung, oder Ersatz durch Chr(34) oder ...

Das ist aber ein Basic, was einem in 10 Jahren Beschäftigung mit Access schon öfters über den Weg gelaufen sein sollte. Grund genug, es mal verstehen zu wollen und nicht gleich wieder zu vergessen.

 

Direkfenster sagt:
UPDATE tbl_Kalenner SET TotalP = DCount('*','tbl_Memberen_Presenzen','[IDK] = ' & [IDK] & ' AND [Status] = 'P') WHERE IDK = 90
Synthaxfehler 3075

 

\@ebs17
"Ersatz durch einfache Hochkommata wie das maike zeigt, oder Verdopplung, oder Ersatz durch Chr(34) oder .."

Denke dass ich die problematik verstehe, und habe ich auch mehrmals versucht, allerdings kriege ich das diesmal einfach nicht hin und weiss nicht wieso

 

Weiterüben. Mit einfachen Konstellationen beginnen.

 

Danke werde ich machen *upps

 

Hallo Daniel,
Du musst die Aggregat-Funktion aus dem String lassen, die soll ja vom Ausdrucksdienst ermittelt werden
Code:

gruss ekkehard

 

\@ekkehard: Nein, muss er nicht, aber es wäre eine zusätzliche Variante.

Bei den vielen Varianten wäre es dann sinnvoll, eine einfache und gut merkbare für den üblichen Gebrauch für sich zu entdecken. Ich würde zu maikes Variante tendieren, oder aber, wenn es um nur einen Datensatz geht, ein Recordest-Edit verwenden, Pur-VBA ist dann übersichtlicher.

 

Können doch'n paar &-Zeichen entfallen:
Code:

Ich hoffe, dass klappt mit den zwei Hochkomma am Ende der Aggregatfunktion ... Solche Konstrukte finde ich auch nicht so einfach *wink.gif* .

Brauche ich auch nie in der Form - wozu speichern was sich in einer simplen Auswahlabfrage immer aktuell ermitteln lässt ...
maike

 

Hallo Eberhard,
Danke für Belehrung.
Ganz sicher war ich mir auch nicht, aber wenigstens hab' ich nix Falsches gesagt.
gruss ekkehard

 

Danke für deine Antwort Maike,

bekomme leider noch immer die gleiche Fehlermeldung:

Fehler 3075
Synthaxfehler Operateur absent, müsste auf Deutsch so viel heissen wie Datentyp fehlend.

Habe die Datenbank seit kurzem auf MS Azure ausgelagert und seit dem drehen solche Abfragen sehr sehr viel langsamer und bremsen das gesamte Formular. Deshalb will ich so viele Werte in die Tabellen schreiben.