VBA如何获取access现有查询表数据

绿涧　发表于：2010-07-03 17:06:07 　

我事先建立了一个查询，我现在想用VBA代码获取其数据，我只知道用OpenRecordset的一个参数是sql文本，但是这个查询的sql条件太多太复杂，不知有没有简单的方法，谢谢

煮江品茶发表于：2010-07-03 17:11:38

条件复杂可以分几行写：

ssql="select * from 表 "

ssql=ssql & "where 校名 like '*" & me.校名.value & "*' "

ssql=ssql & " and 姓名 like '" & me.姓名.value & "*' "

......

绿涧发表于：2010-07-03 17:35:07

谢谢版主，那有没有办法像Open “表名”一样，直接获取这个查询表的数据呢？

煮江品茶发表于：2010-07-03 18:27:09

有呀，看你用到什么地方，很多地方是可以直接用表或查询名称的。

绿涧发表于：2010-07-04 14:11:24

我想根据查询表中的数据，经过代码筛选计算后添加到另一个表中，谢谢版主，请指点具体方法

绿涧发表于：2010-07-09 11:30:24

版主，既然有很多方法直接用查询名称，那就请告诉我一两个学习下，谢谢

王樵民发表于：2010-07-09 12:07:09

Dim db As Database
Dim rs As Recordset

dim tj,sql1

Set db = CurrentDb

tj="条件表达式"

sql1="select * from 查询1 Where " & tj

Set rs = db.OpenRecordset(sql1, 2)

While Not rst.EOF
变量1 = Nz(rs("字段名1"))

变量2 = Nz(rs("字段名2"))

........

If Not rs.EOF Then

rs.MoveNext
End If

wend

Set db = Nothing
Set rs = Nothing

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

Access交流中心