Office: (Office 2007) Sql-Abfrage, Laufzeitfehler 3075, Syntaxfehler (fehlender Operator)

Hallo an alle,

ich habe folgendes Problem.
In meiner Datenbank habe ich mehrere Tabellen, unter anderem die Tabelle Teile_allgemein und Faktura.
Mit meinem Abfrageformular funktioniert folgender Code, der in der SqlAbfrage steht.
Aber nicht im meinem neu erstellten VBA-Modul, das ich verwende, um die Datenbankabfrage zu erweitern.

Code:

Sub DatenSchreiben()

 Dim datenbank As DAO.Database
 Dim ds As DAO.Recordset
 Dim SqlAbfrage As String
 Dim ArtNr As String

SqlAbfrage = "UPDATE Teile_allgemein, Faktura " & _
              " SET Teile_allgemein.Rechnungsdatum = Faktura.BESTANDDATUM " & _
              " Teile_allgemein.Nettopreis = Faktura.EKPREIS " & _
              " Teile_allgemein.Verkaufspreis = Faktura.VK1BRUTTO " & _
              " Teile_allgemein.[Lagerbestand B] = Faktura.BESTAND " & _
              " WHERE Teile_allgemein.Artikelnummer = LTrim(Faktura.ARTIKELNR);"

Set datenbank = CurrentDb
Set ds = datenbank.OpenRecordset(SqlAbfrage, dbOpenDynaset)
....

End Sub

Wenn ich im Debuggen, im Einzelmodus die Zeile
Set ds = datenbank.OpenRecordset(SqlAbfrage, dbOpenDynaset) erreiche, bekomme ich dann die Fehlermeldung: Laufzeitfehler '3075'



Hat jemand eine Idee, wo sich der Fehler verstecken könnte?

Gruß Tom

 

Guten Morgen Tom

Dir fehlen in dem Set Teil die Kommata.

Code:

SqlAbfrage = "UPDATE Teile_allgemein, Faktura " & _
             " SET Teile_allgemein.Rechnungsdatum = Faktura.BESTANDDATUM, " & _
             " ....

Und wenn ein Textfeld dabei ist, müssen diese in Anführungszeigen.

Gruß
Michael

 

Hallo Michael,

ich habe deinen Ratschlag umgesetzt und bekomme jetzt eine neue Fehlermeldung.
Fehler 3144: (Syntaxfehler in der Update-Anweisung)

Ich greife über einen Recordset auf zwei Tabbellen zu, von "Faktura" auslesen und in
"Teile_allgemein" schreiben.
Ist das so richtig, oder brauche ich für jede Tabelle einen eigenen Recordset?

Gruß Tom

 

Hallo Tom,

unabhängig von deinem Syntaxfehler, du könntest dir ja den SQL-String zur Prüfung im Direktfenster ausgeben lassen, stellt sich die Frage, warum du eine Aktualisierungsabfrage (SQL Update) mit OpenRecordset ausführen möchtest? Ein SQL Update liefert kein Recordset zurück und wird deshalb mit einer Execute-Methode ausgeführt.

Knobbi38

UPDATE-Anweisung (Microsoft Access SQL)