Question

令我感到困惑。

我有一个带有列表框的userform，显示我表格中的所有内容（使用rowsource连接）

在我的表单上，我有组合框和文本框，当用户更新它们时，我希望数据覆盖表格中的内容。

当他们点击列表框中的某个帐户时，文本/组合框会填充数据，当他们更改数据时，它根本就不会保存，我不知道为什么。

在文本/组合框中，我有以下代码保存在表格中：

    RunCommand acCmdSaveRecord
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh
Me.Dirty = False

知道为什么有些人不会保存？

Answer 1

这是您拥有的代码的替代代码

Dim db As Database
Dim rec As Recordset

Set db = CurrentDb
Set rec = db.OpenRecordset("SELECT * FROM <<Insert Table Name>> WHERE <<TextBox>>= Primary Key")

rec.Edit

rec("<<Table Field Name>>") = Me.<<Form textbox etc>>
rec("<<Table Field Name>>") = Me.<<Form textbox etc>>

rec.AddNew

将数据从表单保存到表

1 个答案: