如何在 MS Access VBA 上将文本框注释值输入设置为表数据插入
GL
我有一个主要的“决赛桌”，正在根据表单和其他表格数据的许多输入通过 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 AS 注释”部分时，代码工作正常。否则我会收到运行时错误“3061”，参数太少。预期 1。
问题：有没有办法让我标注要插入数据库的文本框值作为所有添加数据的字段数据，还是应该使用另一种方法来执行此操作？
决赛桌示例：
古斯塔夫
您需要一个空格和适当的串联：
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;"
也就是说，使用参数来避免串联。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如何在MS Access中使用VBA将值插入数据库表
- 2
如何在MS Access中通过VBA填充文本框？
- 3
如何在连续表单页脚中将文本框的值设置为0“零”，而表单的详细信息没有数据MS Access
- 4
VBA MS Access在文本框中更改值的范围为2个字符
- 5
如何在MS Access中使用VBA在列表框中添加新项目
- 6
如何在ms Access中通过VBA代码更新任何字段值？
- 7
如何使用VBA创建空白的MS Access数据库？
- 8
如何使用VBA创建空白的MS Access数据库？
- 9
如何在MS Access中将从表单上的文本框（对象）获取的值插入到“ LIKE”查询中
- 10
MS Access VBA：如何清除图像控件？
- 11
MS Access 2016，VBA：如何在不按F5删除记录后更新/刷新显示#Deleted的文本框控件？
- 12
如何从MS Access 2003 VBA处理MS Excel分页符
- 13
带VBA的MS Access链接表
- 14
MS Access VBA 查询多个表
- 15
DLookup：MS Access VBA 中的查询与表？
- 16
如何使用Access VBA定义要从Excel导出到MS Access表的列数？
- 17
MS Access VBA：如何在没有警告消息的情况下从表中删除一行
- 18
MS Access VBA IF（）
- 19
MS ACCESS VBA：Me.Dirty = False OnTimer事件还原编辑的文本框数据
- 20
如何在Access中为VBA中的顺序命名文本框动态分配变量
- 21
MS Access VBA 跳过插入表之一
- 22
如何在 MS Powerpoint 中使用带有 VBA 的文本框？
- 23
MS ACCESS：如何在 MS Access 的表中查找环境用户名，以便在文本框中返回全名？
- 24
如何使用带有参数的SQL作为MS Access / VBA中的组合框行源
- 25
MS Access：如何在筛选的搜索中筛选多个字段（文本框）
- 26
如何在MS Access中比较两个文本框？
- 27
如何使用VBA for MS Access在预先存在的表中创建字段？
- 28
如何根据MS Access VBA代码中的昨天日期过滤表？
- 29
通过MS-ACCESS中的vba创建新表时如何包含变量
我来说两句