更改后数据不保存

Question

我正在使用列表框在文本框和组合中显示我的数据。当我更改数据时，它不会保存在我的 table 中，只是无法弄清楚为什么。

我附上了数据库的简单副本，以便您了解我在做什么

https://www.dropbox.com/s/qkndka198tmqc62/Database7.accdb?dl=0

提前致谢

Answer 1

问题是这样的：

您的表单已绑定到 table test_table；您通过单击列表框中的项目将数据显示到一堆绑定字段中 - 但您永远不会更改 table 的当前记录，因此您总是使用当前显示的任何值更新第一条记录.

不要使用列表框，而是使用表单启用的导航按钮来获取您要更新的记录，然后您的示例可能会起作用。

或者，如果您将 ID 添加到列表框的行源，当您想要保存时，您可以执行如下操作：

DoCmd.RunSQL "UPDATE Test_Table SET [Business Area] = '" & Combo2 & "' WHERE ID = " & List8.Column(4)

更好的是，（除上述之外）取消绑定表单和控件，并在列表框中选择记录时使用记录集将字段的当前值显示到表单上。然后数据不需要在列表框的行源中，因此您可以将行源更改为 "SELECT ID, Dates FROM Test_Table" 并将列宽属性设置为“0cm;3cm”以隐藏显示的 ID。那么任何对List8的引用都是对当前记录ID的引用，并且

List8 = 4

会将List8的选定索引设置为ID = 4的行。

然后保存后就可以

List8.Requery
List8 = 4
List8_Click

将重新显示数据库中的数据。

希望对您有所帮助

更改后数据不保存

Data not saving after changing it

ms-access

vba

ms-access-2010