如何在 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] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何使用VBA创建空白的MS Access数据库?

来自分类Dev

如何使用VBA创建空白的MS Access数据库?

来自分类Dev

如何在MS Access中通过VBA填充文本框?

来自分类Dev

如何在ms Access中通过VBA代码更新任何字段值?

来自分类Dev

MS ACCESS VBA:Me.Dirty = False OnTimer事件还原编辑的文本框数据

来自分类Dev

MS Access VBA IF()

来自分类Dev

如何在MS Access中使用VBA将值插入数据库表

来自分类Dev

如何从MS Access 2003 VBA处理MS Excel分页符

来自分类Dev

如何在Access中为VBA中的顺序命名文本框动态分配变量

来自分类Dev

带VBA的MS Access链接表

来自分类Dev

如何使用VBA for MS Access在预先存在的表中创建字段?

来自分类Dev

MS Access:如何在筛选的搜索中筛选多个字段(文本框)

来自分类Dev

如何使用带有参数的SQL作为MS Access / VBA中的组合框行源

来自分类Dev

VBA MS Access在文本框中更改值的范围为2个字符

来自分类Dev

如何根据MS Access VBA代码中的昨天日期过滤表?

来自分类Dev

如何使用Access VBA定义要从Excel导出到MS Access表的列数?

来自分类Dev

如何在MS Access中比较两个文本框?

来自分类Dev

MS Access VBA:如何清除图像控件?

来自分类Dev

如何在MS Access中使用VBA在列表框中添加新项目

来自分类Dev

如何在MS Access中将从表单上的文本框(对象)获取的值插入到“ LIKE”查询中

来自分类Dev

通过MS-ACCESS中的vba创建新表时如何包含变量

来自分类Dev

如何在连续表单页脚中将文本框的值设置为0“零”,而表单的详细信息没有数据MS Access

来自分类Dev

MS Access 2016,VBA:如何在不按F5删除记录后更新/刷新显示#Deleted的文本框控件?

来自分类Dev

如何在 MS Powerpoint 中使用带有 VBA 的文本框?

来自分类Dev

MS Access VBA:如何在没有警告消息的情况下从表中删除一行

来自分类Dev

MS ACCESS:如何在 MS Access 的表中查找环境用户名,以便在文本框中返回全名?

来自分类Dev

MS Access VBA 查询多个表

来自分类Dev

DLookup:MS Access VBA 中的查询与表?

来自分类Dev

MS Access VBA 跳过插入表之一

Related 相关文章

  1. 1

    如何使用VBA创建空白的MS Access数据库?

  2. 2

    如何使用VBA创建空白的MS Access数据库?

  3. 3

    如何在MS Access中通过VBA填充文本框?

  4. 4

    如何在ms Access中通过VBA代码更新任何字段值?

  5. 5

    MS ACCESS VBA:Me.Dirty = False OnTimer事件还原编辑的文本框数据

  6. 6

    MS Access VBA IF()

  7. 7

    如何在MS Access中使用VBA将值插入数据库表

  8. 8

    如何从MS Access 2003 VBA处理MS Excel分页符

  9. 9

    如何在Access中为VBA中的顺序命名文本框动态分配变量

  10. 10

    带VBA的MS Access链接表

  11. 11

    如何使用VBA for MS Access在预先存在的表中创建字段?

  12. 12

    MS Access:如何在筛选的搜索中筛选多个字段(文本框)

  13. 13

    如何使用带有参数的SQL作为MS Access / VBA中的组合框行源

  14. 14

    VBA MS Access在文本框中更改值的范围为2个字符

  15. 15

    如何根据MS Access VBA代码中的昨天日期过滤表?

  16. 16

    如何使用Access VBA定义要从Excel导出到MS Access表的列数?

  17. 17

    如何在MS Access中比较两个文本框?

  18. 18

    MS Access VBA:如何清除图像控件?

  19. 19

    如何在MS Access中使用VBA在列表框中添加新项目

  20. 20

    如何在MS Access中将从表单上的文本框(对象)获取的值插入到“ LIKE”查询中

  21. 21

    通过MS-ACCESS中的vba创建新表时如何包含变量

  22. 22

    如何在连续表单页脚中将文本框的值设置为0“零”,而表单的详细信息没有数据MS Access

  23. 23

    MS Access 2016,VBA:如何在不按F5删除记录后更新/刷新显示#Deleted的文本框控件?

  24. 24

    如何在 MS Powerpoint 中使用带有 VBA 的文本框?

  25. 25

    MS Access VBA:如何在没有警告消息的情况下从表中删除一行

  26. 26

    MS ACCESS:如何在 MS Access 的表中查找环境用户名,以便在文本框中返回全名?

  27. 27

    MS Access VBA 查询多个表

  28. 28

    DLookup:MS Access VBA 中的查询与表?

  29. 29

    MS Access VBA 跳过插入表之一

热门标签

归档