VBa插入快捷方式

Question

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

中的表中

这里我将在提交按钮点击事件

上写一个插入查询

是否有任何快捷方法可以将值添加到表中？

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

没有插入查询????

哪个更好？

Answer 1

不确定你要问的是什么。

要在VBA代码中向表中添加行，您可以使用DAO Recordset，如下所示：

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