如何依据查询结果，进行二次查询？

小冉　发表于：2015-07-11 22:46:59 　

现在想依据查询结果，批量提取原表中的部分数据，编写了以下程序，但运行总是提示“无效的操作”，不知哪里出了问题，请不吝赐教

Set qry = Db1.CreateQueryDef("车辆刷卡数据归类", "select 车号,count([车号]) as 刷卡记录数 from 刷卡数据整体 group by 车号 order by count([车号]) desc")
    Application.RefreshDatabaseWindow
    Do While qry.Fields("刷卡记录数") > 800
        a = CStr(qry.Fields("车号"))
        b = qry.Fields("车号")
        Set qry1 = Db1.CreateQueryDef(a, "select 刷卡数据整体.ID,刷卡数据整体.线路号,刷卡数据整体.车号 from 刷卡数据整体 where 刷卡数据整体.车号=b")
        Application.RefreshDatabaseWindow
        qry1.Close
    Loop

Top

煮江品茶发表于：2015-07-12 08:58:46

b写在引号外

Top

小冉发表于：2015-07-17 16:43:29

我用断点检查了一下，发现问题主要出在qry.Fields("刷卡记录数")，是不是"刷卡记录数"是个后起的名字，程序无法识别呀

Top

金宇发表于：2015-07-29 09:18:50

b是字符型变量，需要加单引号

Set qry1 = Db1.CreateQueryDef(a, "select 刷卡数据整体.ID,刷卡数据整体.线路号,刷卡数据整体.车号 from 刷卡数据整体 where 刷卡数据整体.车号= '"& b &"'")

可以参考这篇文章

http://www.accessoft.com/article-show.asp?id=8013 变量符号用法,文本型变量.日期型变量,数字型变量,数值型变量的符号表示法

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何依据查询结果，进行二次查询？