从访问表中检索过滤器记录

Question

我有一个表调用“TG”并过滤列调用“系统”并保留10个记录。是否有任何方法或方法可以读取过滤结果，例如“ID”（在访问表中）进行数据处理？

Dim i As Integer
Dim strSQL As String
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.Openrecordset("TG")
For i = 0 To rs.RecordCount - 1
Debug.Print rs.Fields("ID")
rs.MoveNext
Next i

rs.Close
Set rs 
db.close

Answer 1

在进入循环之前尝试这个

rs.moveLast ' thats because access won't know the total result row count until you scroll to the end.

dim TC as long
tc = nz(rs.RecordCount,0)

rs.moveFirst ' Moving back to the first result set
For i = 0 To tc - 1
Debug.Print rs.Fields("ID")
rs.MoveNext
Next i