如何将TextBox注释值输入设置为上的表数据插入
如何将TextBox注释值输入设置为上的表数据插入
提问于 2018-10-11 15:27:28
根据表单和其他表数据的许多输入，我有一个主要的“最终表”正在通过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。
问题：是否有一种方法可以将要插入数据库中的文本框值作为所添加的所有数据的字段数据，或者是否应该使用另一种方法来完成此操作？
最后一个表格的例子：
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-10-11 15: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;"这就是说，使用参数来避免连接。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/52763783
复制相关文章
相似问题
腾讯云开发者
