Office: (Office 2013) INSERT INTO klappt nicht

Hallo und guten Morgen zusammen,

ich möchte den angezeigten/eingegebenen Formularinhalt in eine Tabelle speichern, erhalte jedoch den Laufzeitfehler '3075': Synaxfehler (fehlender Operator) in Abfrageausdruck angezeigt.

Ich komme einfach nicht drauf woran es liegt. *frown.gif*
Danke für Deine Hilfe im Voraus.


Private Sub btn_save_Click()

CurrentDb.Execute _
"INSERT INTO Checkliste2 (Datum, Shipment, PAL, CRT, ADR, PAL_all, CRT_all, Containernummer, Spediteur, Kennzeichen, Ladezeit_von) " _
& "SELECT " & "'" & Me.Controls("Text7").Value & ", " _
& "'" & Me.Controls("Text13").Value & ", " _
& "'" & Me.Controls("Text5").Value & ", " _
& "'" & Me.Controls("Text9").Value & ", " _
& "'" & Me.Controls("Text15").Value & ", " _
& "'" & Me.Controls("Text35").Value & ", " _
& "'" & Me.Controls("Text36").Value & ", " _
& "'" & Me.Controls("Text30").Value & ", " _
& "'" & Me.Controls("Text33").Value & ", " _
& "'" & Me.Controls("Text33").Value & ", " _
& "'" & Me.Controls("Text29").Value & ", ", dbFailOnError

End Sub

:)

 

Baue Dir erst mal den String einzeln zusammen und lass ihn mal per debug.print ausgeben.

Du beginnst vor jedem Control mit einem Hochkomma, beendest das aber nicht.
(Text mit Hochkommata, Zahlenfelder ohne)

 

Hallo Jan,

mal andersrum gefragt.

Meine Zieltabelle enthält mehr Spalten, als ich mit dem INSERT INTO übergeben will. Gibt es dabei ggf. noch etwas zu beachten ?

 

Nein,
Du gibst die Zielspalten der Tabelle ja explizit an!
Wenn Du da 11 Felder hast, müssen auch 11 - in der richtigen Reihenfolge - übergeben werden.
Aber schauen, welches Textfelder, Zahlenfelder oder Datumsfelder sind.
Dementsprechend korrekt übergeben.

 

PS: Das Feld "Datum" auf jedenfall umbenennen!

 

Ok, gut zu wissen.

Ich hab es jetzt auch mal mit folgendem Code probiert:

Dim strSQL As String
strSQL = "INSERT INTO tbl_Checkliste2 ( Datum, Shipment, PAL, CRT, ADR, Containernummer, Spediteur, Kennzeichen, Ladezeit_von )"
strSQL = strSQL & " SELECT Text7, Text13, Text5, Text9, Text15, Text30, Text32, Text33, Text29"
CurrentDb.Execute strSQL, dbFailOnError

Jedoch erscheint nun Laufzeitfehler 3061
9 Parameter wurden erwartet, aber es wurden zu wenige Parameter übergeben.

Versteh ich nicht .. wobei die Anzahl an Feldern übereinstimmt ... *frown.gif*

 

Hab den ersten Code entsprechend Deiner Angaben korrigiert ... jedoch erscheint hier auch (ähnlich):

Laufzeitfehler 3346: Anzahl der Abfragewerte und Zielfelder stimmt nicht überein

CurrentDb.Execute _
"INSERT INTO tbl_Checkliste2 (Ladedatum, Shipment, PAL, CRT, ADR, Containernummer, Spediteur, Kennzeichen, Ladezeit_von) " _
& "SELECT " & "" & Me.Controls("Text7").Value & ", " _
& "" & Me.Controls("Text13").Value & ", " _
& "" & Me.Controls("Text5").Value & ", " _
& "" & Me.Controls("Text9").Value & ", " _
& "" & Me.Controls("Text15").Value & ", " _
& "'" & Me.Controls("Text30").Value & ", " _
& "'" & Me.Controls("Text32").Value & ", " _
& "'" & Me.Controls("Text33").Value & ", " _
& "" & Me.Controls("Text29").Value & ", ", dbFailOnError

 

Wenn Daten nicht von einer Tabelle ausgewählt werden, dann nimmt für das INSERT eigentlich die VALUES-Anweisung.
Und "Datum" ist noch immer ein reserviertes Wort, weswegen du eigentlich eckige Klammern drum packen müsstest. Aber umbenennen ist in dem Fall einfach besser.

 

In meinem Fall werden nur die rot markierten Felder per Hands ins Formular eingegeben. Die anderen werden teilweise durch eine Formel erzeugt, bzw. werden von einem anderen Formular heraus angezeigt.

Wie müsste das denn dann mit dem VALLUES aussehen ?

CurrentDb.Execute _
"INSERT INTO tbl_Checkliste2 ([Ladedatum], [Shipment], [PAL], [CRT], [ADR], [Containernummer], [Spediteur], [Kennzeichen], [Ladezeit_von]) " _
& " SELECT " & "" & Me.Controls("Text7").Value & ", " _
& "" & Me.Controls("Text13").Value & ", " _
& "" & Me.Controls("Text5").Value & ", " _
& "" & Me.Controls("Text9").Value & ", " _
& "" & Me.Controls("Text15").Value & ", " _
& "'" & Me.Controls("Text30").Value & ", " _
& "'" & Me.Controls("Text32").Value & ", " _
& "'" & Me.Controls("Text33").Value & ", " _
& "" & Me.Controls("Text29").Value & ", ", dbFailOnError

 

Code:

 

Hallo Jens,
Es wurde schon mehrfach darauf hingewiesen; - du musst die Datentypen der
Felder, die du beschreiben willst beachten, und die VALUES entsprechen formatieren.
Beispiel Ladedatum (ist ja wohl vom Typ Datum)
Code:

bei Textfeldern
Code:

beim Datentyp "Zahl" braucht es gar keine Hochkommata.
Code:

gruss ekkehard

edit:
PS: Ob die Daten dabei per SELECT oder VALUES übergeben werden spielt
dabei erstmal keine Rolle.

 

Ich habe kürzlich ein sehr ausführliches Video-Tutorial veröffentlicht, das dir weiterhelfen könnte.

Ein paar konkrete Punkte die du beachten/prüfen solltest:

• Die Text-Begrenzer (') für die Felder sind in deinem SQL nicht konsistent.
• Datumsfelder müssen mit # begrenzt werden und explizit im ISO- oder US-Format formatiert werden.
• Steuerelemente einfach als TextXY zu benennen ist eine schlechte Idee.

 

Es ist doch viel einfacher mit einem Recordset zu arbeiten.
Dann musst du dich weder um Datentypen kümmern noch einen String zusammenstückeln. Wenn du den Textfeldern dann noch sinnvolle Namen gibst - In der Regel nimmt man die Namen der Tabellenfelder, gibts auch keine Fehler.

LG Markus

 

Das wäre nur problematisch, wenn die unberücksichtigten Felder Pflichtfelder sind. Etwas Kenntnis der Tabellendefinition hilft da weiter.

Wenn die Anzahl der Feldauflistung für die Zieltabelle mit den zugeordneten Werten übereinstimmt und trotzdem dieser Fehler auftritt, hat man es wahrscheinlich mit Dezimalzahlen zu tun, das Komma als Dezimaltrenner in deutschen Einstellungen wird als Feldtrenner interpretiert und lässt den SQL-Interpreter weitere Felder vermuten. Folglich sollte man auf passende Wertformatierungen nicht nur bei Texten und Datumswerten achten, sondern generell. Siehe auch Grundlagen - SQL ist leicht (5) - Datentypbehandlung für VBA

Try & Error kann sehr langwierig und ermüdend sein. Sinnvoller dürfte es sein, systematisch zu arbeiten.

Da mir nur einfaches Denken gegönnt ist, verfahre ich da nach folgender Weise: Auch wenn man eine SQL-Anweisung in VBA-Code einbettet und irgendwie zusammensetzt, muss am Ende eine ausführbare Anweisung an die Datenbankmaschine übergeben werden. Also nimmt man die gewünschte ausführbare Anweisung (Prüfung per Syntaxkenntnis zzgl. praktischer Ausführungstest) und vergleicht diese mit dem Ergebnis der Codezusammensetzerei in VBA, was sich über ein Debug.Print strSQL ins Direktfenster ausgeben lässt.
Hier zeigt sich auch, dass es vorteilhaft ist, die Stringzusammensetzung in einer Variablen vorzunehmen, weil man hier über die Prüfung eine Mehrverwendung des Inhaltes hat, womit dann eine Variable als Verweis auf diesen Inhalt vorteilhaft ist.

Wenn man nun eine fertige funktionierende Anweisung mit dem Ergebnis seiner Code-Tätigkeit vergleicht, leiten sich dann bei Unterschieden automatisch notwendige Korrekturmaßnahmen ab.

 

Danke an dieser Stelle für Eure Tipps.
Hab es nun mal mit nur 1 TEXT-Feld probiert und bin mit beiden Codes gescheitert ... versteh nu gar nix mehr. *frown.gif*

CurrentDb.Execute _
"INSERT INTO tbl_Checkliste2 (Kennzeichen) " _
& "SELECT " & "'" & Me.Controls("Text33").Value & ", ", dbFailOnError


Laufzeitfehler 3075
Syntaxfehler in Zeichenfolge in Abfrageausdruck "123ABC"

------------------------------------------------------------------------

Dim strSQL As String
strSQL = "INSERT INTO tbl_Checkliste2 ( Kennzeichen )"
strSQL = strSQL & " SELECT Text33"
CurrentDb.Execute strSQL, dbFailOnError


Laufzeitfehler 3061
1 Parameter wurden erwartet, aber es wurden zu wenige Parameter übergeben.