仅在按钮单击时添加记录

Posted 2023-05-07

【中文标题】仅在按钮单击时添加记录

【英文标题】：Add record on button click only

【发布时间】：2012-08-30 21:26:12

【问题描述】：

我有一个“数据输入”属性设置为“是”的表单。它绑定到一张桌子。当我开始填写表格时，它会自动保存它。我不希望这种情况发生。我只想在按下按钮时将表单保存到表格中。有什么简单的方法可以做到这一点？没有 vba。如果我只能用 vba 做到这一点，请告诉我该怎么做。

【参考方案1】：

最好的方法是使用未绑定的表单。当用户点击保存时，您可以运行查询以从控件更新您的表格。

使用记录集

 Dim rs As Recordset
 Set rs=CurrentDB.Openrecordset("MyTable")

 rs.AddNew
 rs!Field1 = Me.Field1
 rs.Update

如果你想更新一条你已经知道主键的记录，你可以说：

 Dim rs As Recordset
 Set rs=CurrentDB.Openrecordset("SELECT * FROM MyTable WHERE ID=" & Me.txtID)

 rs.Edit
 rs!Field1 = Me.Field1
 rs.Update

使用您在查询设计窗口中创建的查询

用于查询的 SQL

 INSERT INTO MyTable (Field1) 
 VALUES ( Forms!MyForm!Field1 )

VBA

这会给出警告

 DoCmd.OpenQuery "MyQuery"

这不会

 CurrentDb.Execute "Query2", dbFailOnError

您还可以使用动态 SQL 或带有您在代码中分配的参数的查询。

【讨论】：

我对此进行了研究，当我按下按钮运行查询时，它只会打开查询窗口。就是这样。不知道我做错了什么。

花了一段时间，但我明白了。 TY