MS Access：如果我只想将我更改/修改的记录插入到新表中，我的 Insert Into Statement 应该是什么样子？

Question

I have a continues form where the user can edit data, stored in the table, directly. Before the user can close the form or edit a different record he is asked if he wants to save his changes. I use the Before Update Event for that:

Private Sub Form_BeforeUpdate(Cancel As Integer)
'Msg Box Nachricht bestimmen.
    strMsg = "M?chten Sie die ?nderungen speichern?" & Chr(10)
    strMsg = strMsg & "Dr?cken Sie Ja um zu speichern oder Nein um die ?nderungen zu verwerfen."

    'Msg Box anzeigen.
    iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "Speichern?")

    'Nutzer Antwort pruefen
    If iResponse = vbNo Then

        'Aenderungen verwerfen.
         Me.Undo
        'Update abbrechen.
         Cancel = True
    End If
End Sub

When the form loads i get the current value of the text field by using this:

Private Sub Form_Load()
TempVars("Status") = txtStatus.Value
End Sub

Now if the User changes this text field the record (with the old value for txtStatus) should be saved in a new table. This code WITHOUT the "Where"-Part copies all the records in my table, into the new table:

Dim Status As String
Dim Counter As Integer
Counter = 0

If txtStatus.Value <> TempVars("getStatus") Then
Status = txtStatus.Value
Counter = Counter + 1
End If

Dim sql As String
Dim dbs As DAO.Database
Set dbs = CurrentDb()

    sql = "Insert into tblStatusFahrzeugeHistory (F_ID, Status, seit, bis, von, an, Bemerkung, Datenbank_Nutzer, Eintrag_erstellt_am, Eintrag_erstellt_um)" & _
"Select tblStatusFahrzeuge.F_ID, tblStatusFahrzeuge.Status, tblStatusFahrzeuge.seit, tblStatusFahrzeuge.bis, tblStatusFahrzeuge.von, tblStatusFahrzeuge.an, tblStatusFahrzeuge.Bemerkung, tblStatusFahrzeuge.Datenbank_Nutzer, tblStatusFahrzeuge.Eintrag_erstellt_am, tblStatusFahrzeuge.Eintrag_erstellt_um " & _
"From tblStatusFahrzeuge Where txtStatus.Value = Status "

dbs.Execute sql, dbFailOnError
dbs.Close
Set dbs = Nothing
    End If

WITH the "Where"-Part i attempted to insert only the record i changed on the form into the new table but the code does'nt work. I get this error code: runtime error'3061' 1 parameters were expected, but too few parameters were passed.Does someone know what im doing wrong?

Answer 1

The query engine cannot "see" txtStatus.Value. You will either have to add parameters to your query, or concatenate in the value of the text box into the query text:-

    sql = "Insert into tblStatusFahrzeugeHistory (F_ID, Status, seit, bis, von, an, Bemerkung, Datenbank_Nutzer, Eintrag_erstellt_am, Eintrag_erstellt_um)" & _
"Select tblStatusFahrzeuge.F_ID, tblStatusFahrzeuge.Status, tblStatusFahrzeuge.seit, tblStatusFahrzeuge.bis, tblStatusFahrzeuge.von, tblStatusFahrzeuge.an, tblStatusFahrzeuge.Bemerkung, tblStatusFahrzeuge.Datenbank_Nutzer, tblStatusFahrzeuge.Eintrag_erstellt_am, tblStatusFahrzeuge.Eintrag_erstellt_um " & _
"From tblStatusFahrzeuge Where '" & txtStatus.Value & "' = Status "