如何将数据插入 Access 数据库字段？

Question

我创建了多个表单，每个表单都包含多个按钮。最终用户将按顺序浏览表单，然后选择一个按钮并转到下一个表单，依此类推。

我还创建了一个存储输入数据的表。例如;如果用户单击按钮 A，则指定字段的值为“A”，依此类推。换句话说，每个按钮都会将特定的数据输入到特定的字段中。

我最终想要的是在表格集完成后有一个完整的记录集（行）。

我在第一个表单的第一个按钮中使用了以下代码

Dim RS As DAO.Recordset
Set RS = CurrentDb.OpenRecordset("Data", dbOpenDynaset)
RS.AddNew
RS("WLAN") = "ARUBA"
RS.Update
Set RS = Nothing

在后面的表单（按钮）中，我使用了如下代码

Dim RS As DAO.Recordset
Set RS = CurrentDb.OpenRecordset("Data", dbOpenDynaset)
RS.Edit
RS("Security") = "WPA2-PSK"
RS.Update
Set RS = Nothing

现在发生的情况是，第一个表单序列（按钮）成功地将数据输入到我的表 [数据] 的第一行中，但是当我重新开始并选择其他按钮时，现有的行会使用新的选择进行编辑。

我想要的是添加一条新记录并将数据插入其中，而不是编辑以前的记录。

非常感谢您的帮助，很抱歉发了这么长的帖子。

谢谢你， 纳赛尔

Answer 1

创建一个变量来保存您正在处理的记录的 ID。在本例中，我将其命名为 RecId。

添加记录

Dim RS As DAO.Recordset
Set RS = CurrentDb.OpenRecordset("Data", dbOpenDynaset)
RS.AddNew
RS("WLAN") = "ARUBA"
RecId = RS("ID")
RS.Update
Set RS = Nothing

然后更新同一条记录

Dim RS As DAO.Recordset
Set RS = CurrentDb.OpenRecordset("Data", dbOpenDynaset)
RS.MoveFirst
Do Until RS.EOF
    If RD!ID= RecId Then
        RS.Edit
        RS("Security") = "WPA2-PSK"
        RS.Update
    End If
    RS.MoveNext
Loop
Set RS = Nothing

如果您不想更新任何记录而只想添加新记录，则只需使用添加代码。您需要进行一些检查，但这应该会为您提供所需的基础。