MS ACCESS - VBA 中的错误运行时 3141 SQL

实践

我在尝试基于组合框更改子表单记录源时在 ms access 中遇到错误

The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

这是我的代码

Private Sub Text4_AfterUpdate()
If (Me.Text4.Value = "(ALL)") Then
    filterORIGIN_COD = "SELECT SUMMARY.DEST_CITY, SUMMARY.DESTINATION, Count(SUMMARY.CNOTE_NO) AS CountOfCNOTE_NO1" & _
                "FROM SUMMARY" & _
                "WHERE (((SUMMARY.ORIGIN_CODE) Like " & "'" * "'" & ")))" & _
                "GROUP BY SUMMARY.DEST_CITY, SUMMARY.DESTINATION, SUMMARY.TGL_DATA, SUMMARY.ORIGIN_CODE, SUMMARY.ORIGIN, SUMMARY.DEST_CODE;"


Else
    filterORIGIN_COD = "SELECT SUMMARY.DEST_CITY, SUMMARY.DESTINATION, Count(SUMMARY.CNOTE_NO) AS CountOfCNOTE_NO1" & _
                "FROM SUMMARY" & _
                "WHERE (((SUMMARY.ORIGIN_CODE)=" & """Me![Text4]""" & ")))" & _
                "GROUP BY SUMMARY.DEST_CITY, SUMMARY.DESTINATION, SUMMARY.TGL_DATA, SUMMARY.ORIGIN_CODE, SUMMARY.ORIGIN, SUMMARY.DEST_CODE;"

End If
Me![OUTBOUND_DETAIL].Form.RecordSource = filterORIGIN_COD
Me![OUTBOUND_DETAIL].Requery


End Sub

附加实际上我正在尝试过滤子表单(查询记录源),有人可以告诉我更好的方法吗?:)

完美的

如果尝试在触发器事件中过滤子表单,只需使用DoCmd.ApplyFilterDoCmd.SetFilter (对于 Access 2010+)方法,这些方法也可在宏中使用:

Private Sub Text4_AfterUpdate() 
   DoCmd.ApplyFilter , "[SUMMARY.ORIGIN_CODE]='" & Me![Text4] & "'"
End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

Access 2010中的VBA-运行时错误430

来自分类Dev

MS Access中VBA代码的继承

来自分类Dev

运行时错误'3001':在Access VBA中创建表时,参数无效

来自分类Dev

通过VBA在MS Access中编辑当前对象的SQL

来自分类Dev

SQL VBA运行时错误3075:查询表达式中的语法错误(缺少运算符)

来自分类Dev

从VBA SQL语法错误将MS EXCEL转换为MS ACCESS .accdb数据库

来自分类Dev

MS Access vba,使用参数打开选择查询,运行时3065无法执行选择查询

来自分类Dev

MS Access SQL错误

来自分类Dev

SQL语法问题MS Access VBA

来自分类Dev

VBA Excel-Access 3251运行时错误

来自分类Dev

SQL查询中的MS Access VBA数据类型不匹配错误

来自分类Dev

SolidWorks 2016 SaveAs Access VBA运行时错误438

来自分类Dev

VBA运行时错误3129 SQL语句非法

来自分类Dev

MS ACCESS VBA运行时错误“ 3021”;与.MoveNext

来自分类Dev

访问VBA / SQL“运行时错误'424':必需对象”

来自分类Dev

MS Access 2013/365中的ActiveGantt Activex控件-对象方法上的VBA运行时错误

来自分类Dev

带子查询的SQL查询上的MS Access VBA运行时错误3075

来自分类Dev

SQL VBA运行时错误3075:查询表达式中的语法错误(缺少运算符)

来自分类Dev

MS Access vba,使用参数打开选择查询,运行时3065无法执行选择查询

来自分类Dev

MS Access日期在VBA SQL查询中不起作用

来自分类Dev

访问VBA SQL运行时错误3134 INSERT INTO

来自分类Dev

MS Access VBA,SQL脚本:In(),<>和AND语法

来自分类Dev

Access VBA中的运行时3464。尝试使用SQL select语句打开记录集

来自分类Dev

MS ACCESS vba-错误

来自分类Dev

MS-Access 2007查询运行时错误

来自分类Dev

在 VBA 中执行 SQL 时出现运行时错误

来自分类Dev

MS Access VBA 运行查询

来自分类Dev

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

来自分类Dev

MS Access VBA SQL 查询运行,但不插入

Related 相关文章

  1. 1

    Access 2010中的VBA-运行时错误430

  2. 2

    MS Access中VBA代码的继承

  3. 3

    运行时错误'3001':在Access VBA中创建表时,参数无效

  4. 4

    通过VBA在MS Access中编辑当前对象的SQL

  5. 5

    SQL VBA运行时错误3075:查询表达式中的语法错误(缺少运算符)

  6. 6

    从VBA SQL语法错误将MS EXCEL转换为MS ACCESS .accdb数据库

  7. 7

    MS Access vba,使用参数打开选择查询,运行时3065无法执行选择查询

  8. 8

    MS Access SQL错误

  9. 9

    SQL语法问题MS Access VBA

  10. 10

    VBA Excel-Access 3251运行时错误

  11. 11

    SQL查询中的MS Access VBA数据类型不匹配错误

  12. 12

    SolidWorks 2016 SaveAs Access VBA运行时错误438

  13. 13

    VBA运行时错误3129 SQL语句非法

  14. 14

    MS ACCESS VBA运行时错误“ 3021”;与.MoveNext

  15. 15

    访问VBA / SQL“运行时错误'424':必需对象”

  16. 16

    MS Access 2013/365中的ActiveGantt Activex控件-对象方法上的VBA运行时错误

  17. 17

    带子查询的SQL查询上的MS Access VBA运行时错误3075

  18. 18

    SQL VBA运行时错误3075:查询表达式中的语法错误(缺少运算符)

  19. 19

    MS Access vba,使用参数打开选择查询,运行时3065无法执行选择查询

  20. 20

    MS Access日期在VBA SQL查询中不起作用

  21. 21

    访问VBA SQL运行时错误3134 INSERT INTO

  22. 22

    MS Access VBA,SQL脚本:In(),<>和AND语法

  23. 23

    Access VBA中的运行时3464。尝试使用SQL select语句打开记录集

  24. 24

    MS ACCESS vba-错误

  25. 25

    MS-Access 2007查询运行时错误

  26. 26

    在 VBA 中执行 SQL 时出现运行时错误

  27. 27

    MS Access VBA 运行查询

  28. 28

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

  29. 29

    MS Access VBA SQL 查询运行,但不插入

热门标签

归档