Fehlerhafte Prozedurdeklaration für eine Ereignisprozedur inkl SQL

[freshbenne]

Hallo zusammen,

ich möchte in meinem Formular per Button-Klicken folgende Ereignisse auslösen bzw. kombinieren. Leider kommt beim SQL Teil ein Fehler. Was habe ich hier vergessen? Vielen Dank für ein kurzes Feedback.

Code (vb) [Auswählen] Erweitern

Private Sub cmdAbfahrt_Click()
   
   
    'temporärer Markierer in Quelldatei zur Auswahl und zum Transfer des Datensatzes. Wird am Ende zurückgesetzt.
    Me.tempmarker.Value = True
   
    'Archivieren des Datensatzes nach LKW-Abzug in Archiv-Tabelle
    INSERT INTO tblLKWlog ( Spediteur, Ankunft, Tor, [Nutzer-ID] )
    SELECT tblTOR.Ladereferenz, tblTOR.Aktualisierung, tblTOR.Tor, tblTOR.Nutzer
    FROM tblTOR
    WHERE (((tblTOR.tempMarker)=True));
       
    'Zürücksetzen der Eingabewerte im Formular des Torbelegung. Danach kann die Neuzurodnung von LKW zu Tor erfolgen.
    Me.xtLadereferenz.Value = ""
    Me.xtBelegungswert.Value = "frei"
    Me.tempmarker.Value = False
 

End Sub

[DF6GL]

Hallo,

vergessen ist:

1) Speichern des Form-Recordsets.
2) die Zuweisung des SQL-Statement syntaktisch korrekt an eine String-Variable.
3) Ausführen des SQL-Statements.

Code [Auswählen] Erweitern

.
Dim strSQL As String
.

Me.tempmarker.Value = True
Docmd.Runcommand acCmdSaveRecord
.
strSQL = "INSERT INTO tblLKWlog ( Spediteur, Ankunft, Tor, [Nutzer-ID] ) " & _
    " SELECT tblTOR.Ladereferenz, tblTOR.Aktualisierung, tblTOR.Tor, tblTOR.Nutzer FROM tblTOR " & _
    " WHERE (((tblTOR.tempMarker)=True));"

CurrentDb.Execute strSQL, dbFailOnError
.
.

Falls das Form auf Tabelle tblTor basiert, wäre auch eine Übergabe in der Anfügeabfrage mittels "Values"  anstatt "Select" denkbar.

[freshbenne]

Klasse. Vielen lieben Dank für die Nachhilfe und die Lösung. Es klappt nun alles und ich kann mich endlich mit einem gelösten Problem zusammen auf die Couch setzen ;-)