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.
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
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.
.
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.
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 ;-)