MS ACCESS vba-错误

胖男孩瘦7

我正在创建一个MS Access报告。我遇到了一个小问题,我不知道哪里出了问题。所以我想做的是

1)从查询中选择所有内容(查询需要“ TO”和“ FROM”日期。我将这些值传递给frmX,然后在查询中将其引用)。当我在打开frmX的情况下自行运行查询时-运行正常。2)我试图更改数据中的某些值3)将新值插入tempTable1

这是我的代码:

dim rs1 as DAO.Recordset
dim rs2 as DAO.Recordset
CurrentDb.Execute "DELETE FROM [tempProvider-Detail]"

'Repopulating temp table
DoCmd.OpenQuery "qryProvider-FINAL"

'Input Source
Set rs1 = CurrentDb.OpenRecordset("Select * from [qryProvider-Final]", , dbOpenSnapshot)

'Target Source
Set rs2 = CurrentDb.OpenRecordset("Select * from tempProvider-DETAIL", dbOpenDynamic)

有趣的是,它不会挂在DoCMD.OpenQuery上-但是,当我设置rs1 ......时,它告诉我它需要2个参数。我不知道为什么-因为查询已经打开-并且当我尝试自行打开它时它可以正常工作(它在查询中引用了frmX中的日期)。

请帮帮我!

所以我做到了这一点,因为海因兹(Heinzi)帮助了我。

DoCmd.OpenQuery "qryProvider-FINAL"

Set qdf = CurrentDb.QueryDefs("qryProvider-FINAL")
qdf.Parameters(0) = [Forms]![frmX]![txtFrom]
qdf.Parameters(1) = [Forms]![frmX]![txtTo]
Set rs1 = qdf.OpenRecordset

strSQL = "SELECT * FROM [qryProvider-FINAL];"

'Input Source
Set rs1 = CurrentDb.OpenRecordset(strSQL, , dbOpenSnapshot) ---this is where it hangs up
Heinzi

使用CurrentDb.OpenRecordset打开记录集时,不能引用窗体控件。只是不支持。可以在下面的MSDN文章中找到详细信息:

答案是,您在这里在不同的上下文中调用Jet引擎,而这一切都与众不同。当您从参数查询中获取数据时,该数据使用表单通过Access用户界面提供参数,如前面的示例所示,Access可以评估涉及的表达式并将值提供给Jet。当您从使用表单通过VBA(而不是通过表单)提供参数的参数查询获取数据时,管理用户界面的Access位非常重要。因此,Jet传递了字符串“ [Forms]![frmSelectCountry]![cboCountry]”,而不是cboCountry中的值。因为Jet不知道如何计算表达式,所以它无法打开记录集。

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

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

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

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

来自分类Dev

VBA (Ms-Access) 2013 溢出错误

来自分类Dev

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

来自分类Dev

MS Access VBA IF()

来自分类Dev

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

来自分类Dev

MS Access SQL错误

来自分类Dev

Int()函数MS Access VBA

来自分类Dev

MS Access VBA 运行查询

来自分类Dev

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

来自分类Dev

MS Access 2010 VBA:自定义LostFocus子程序上的神秘编译错误

来自分类Dev

调用子过程的错误处理表格-MS Access VBA

来自分类Dev

MS Access VBA DoCmd.OpenForm WhereCondition失败,找不到字段错误

来自分类Dev

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

来自分类Dev

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

来自分类Dev

MS Access VBA:出现错误“ 13”:从其他形式调用函数时,键入不匹配

来自分类Dev

尝试在 Excel VBA 中运行 MS Access 查询时出现“需要对象”错误

来自分类Dev

我的 MS ACCESS VBA 函数计算新的纬度/经度坐标的错误在哪里?

来自分类Dev

MS Access日期转换错误

来自分类Dev

PtrSafe属性错误MS Access

来自分类Dev

MS Access溢出错误

来自分类Dev

MS Access中的IIf错误

来自分类Dev

带VBA的MS Access链接表

来自分类Dev

MS Access中VBA代码的继承

来自分类Dev

多参数IsNull函数MS Access VBA

来自分类Dev

SQL语法问题MS Access VBA

来自分类Dev

MS-Access:使用vba移至NavigationControl

来自分类Dev

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

来自分类Dev

是/否字段上的MS Access VBA Dlookup

来自分类Dev

MS Access查询未从VBA接收参数

Related 相关文章

热门标签

归档