Database MSAccess-更新文本框中的所有记录

我有一个接受日期的文本框，我必须用文本框中的值更新表中的所有记录，即，所有记录的日期字段中都应该更新相同的值，…如何执行？

另一种只需一行代码就可以执行无警告的更新查询的方法是执行以下操作：

CurrentDB.Execute "UPDATE tblMyTableName SET MyDateFieldInQuestion=" & MyTextBoxName.Value & ";"` 

---

CurrentDB.Execute不显示警告，因此我认为它更干净一些。这样，您就不必担心以后忘记重新打开警告（这是您想要的）。

您只需要执行一个查询，该查询将更新日期字段。所以类似于

updatetable1 SET MyDate=[Forms]！[表格1]！[MyTextBox]

。在哪里使用该查询？我在表单中有一个名为“提交”的按钮，如果我单击该按钮，文本框中的值应更新为表中所有记录的日期字段。请像在查询设计中通常那样创建查询（要在SQL中创建查询，请创建一个新查询，在查询请求时不添加任何表，然后单击设计功能区中的SQL按钮）。在按钮后面的“单击”事件代码中，输入

DoCmd.OpenQuery“QueryName”，acViewNormal

或者另一种方法是不创建查询，只输入代码

DoCmd.RunSQL“”

按钮后面。该按钮已经执行了saverecord宏。如何使该按钮也运行此查询。请删除save宏，然后添加VBA代码

If Me.Dirty Then Me.Dirty=False

将在记录需要保存时保存记录（另一种选择是

DoCmd.RunCommand acCmdSaveRecord

，它将保存记录，无论记录是否需要保存），因此将其作为第一行。然后将

DoCmd.RunSQL…

作为第二行。