Office中国论坛/Access中国论坛

标题: dbs.OpenRecordset 参数不足 [打印本页]

作者: yrlxm 时间: 2004-11-23 15:42
标题: dbs.OpenRecordset 参数不足
请看以下代码,执行到最后一句时  出现错误:提示运行时错误3061 , 参数不足,期待的是1

奇怪我以前也这样用都好好的.



sql = "........"

'以下开始计算将数据通过综合查询  写入report表

Dim dbs As Database

Dim TableA  As Variant

Dim qdf As QueryDef



Set dbs = CurrentDb()

CurrentDb.QueryDefs.Refresh                '刷新当前数据库中的查询对象



For Each qdf In CurrentDb.QueryDefs             '遍历查询，如果存在

      If qdf.Name = "~reportSet" Then             '数据”查询则删除

         CurrentDb.QueryDefs.Delete qdf.Name

      End If

Next qdf

Set qdf1 = dbs.CreateQueryDef("~reportSet", sql)

Set TableA = dbs.OpenRecordset("~reportSet", dbOpenSnapshot)  '打开查询快照

作者: zipgirl 时间: 2004-11-23 16:29
我猜，如果以前都用得好好的话，并且你前面用了ON ERROR RESUME NEXT 的话，是不是SQL语句有问题？因为这样的话，Set qdf1 = dbs.CreateQueryDef("~reportSet", sql)这句就被跳过了，也就是说你的~reportSet查询根本就不存在

作者: yrlxm 时间: 2004-11-23 17:31
谢谢,真的是sql的问题.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)