MS Access:如果我只想将我更改/修改的记录插入到新表中，我的插入语句必须是什么样子?

Question

我有一个连续表单，用户可以在其中直接编辑存储在表中的数据。 在用户可以关闭窗体或编辑其他记录之前，系统会询问他是否要保存更改。 我为此使用更新前事件：

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

当表单加载时，我使用以下方法获取文本字段的当前值：

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

现在，如果用户更改此文本字段，则记录(使用 txtStatus 的旧值(应保存在新表中。 这段没有"Where"部分的代码将我表中的所有记录复制到新表中：

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

使用"Where"部分，我尝试仅将我在表单上更改的记录插入到新表中，但代码不起作用。我收到此错误代码：运行时错误'3061' 1 个参数是预期的，但传递的参数太少。有人知道我做错了什么吗？

Answer 1

查询引擎无法"看到"txtStatus.Value。您必须向查询添加参数，或者将文本框的值连接到查询文本中：-

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 "