根据表单和其他表数据的许多输入,我有一个主要的“最终表”正在通过VBA进行更新。我试图将存在于表单中的TextBox对象值标注到VBA代码中,这样用户就可以将注释添加到插入到最终表中的所有数据中。
Dim strComment As String
strComment = TextBox_Comment.Value
strSQL = "INSERT INTO Main_Table (Period, Monthp, Order, Comment)"
strSQL = strSQL & "SELECT ""Weekly"" AS Period, [001_SelectedMonth].Monthp, [001_OrderTable].Order, strComment AS Comment FROM 001_SelectedMonth, 001_OrderTable;"
CurrentDb.Execute strSQL, dbFailOnError
当我从主表插入点中移除“注释”和代码的"strComment作为注释“部分时,代码工作得很好。否则,我得到运行时错误'3061',太少的参数。预期1。
问题:是否有一种方法可以将要插入数据库中的文本框值作为所添加的所有数据的字段数据,或者是否应该使用另一种方法来完成此操作?
最后一个表格的例子:
发布于 2018-10-11 07:43:58
您需要一个空间和适当的连接:
strSQL = "INSERT INTO Main_Table ([Period], Monthp, [Order], [Comment]) "
strSQL = strSQL & "SELECT 'Weekly' AS [Period], [001_SelectedMonth].Monthp, [001_OrderTable].Order, '" & strComment & "' AS [Comment] FROM 001_SelectedMonth, 001_OrderTable;"
这就是说,使用参数来避免连接。
https://stackoverflow.com/questions/52763783
复制相似问题