VBa 插入快捷方式答案

【问题标题】：VBa insert shortcutVBa 插入快捷方式
【发布时间】：2010-11-10 15:17:24
【问题描述】：

我打算将 vba 访问表单文本框中的值插入到同一个访问文件中的表中

这里我会写一个关于提交按钮点击事件的插入查询

有没有什么快捷的方法可以将值添加到表格中？

就像为文本框设置数据源并通过单击按钮在表单中插入所有文本框的值

没有插入查询????

哪个更好？

【问题讨论】：

标签： sql ms-access forms vba

【解决方案1】：

不确定你问的是什么。

要在 VBA 代码中向表中添加行，您可以像这样使用 DAO 记录集：

Dim rs As DAO.Recordset
Set rs= CurrentDb.OpenRecordset("TableName", dbOpenDynaset)

rs.AddNew
rs![ColumnName1] ="Some Value"
rs![ColumnName2] ="Some Value"
rs.Update
rs.Close

或者在 VBA 中运行附加查询，将 SQL 语句构建到一个字符串中并像这样执行语句：

CurrentDb.Execute strSQLText, dbFailOnError

【讨论】：

FWIW 我使用 currentdb 而不是调暗和设置 db 变量。
最后一个代码示例无论如何都不起作用，因为 db 变量还没有被实例化。我自己不太使用 CurrentDB，因为我的 dbLocal() 函数会自动缓存并返回一个用 CurrentDB 实例化的变量。
OK 修改答案以使用 CurrentDb