Ms access 从access表中检索筛选器记录

我有一个表调用“TG”，过滤一个列调用“system”，剩下10条记录。是否有任何方法或方式读取过滤结果，如“ID”（在access表中）以进行数据处理

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

---

在进入循环之前，请尝试此操作

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

---

本网站的目的不是让其他人为您编写代码。如果您提出与此相关的问题，请提供您已经考虑过的代码或选项，并关注您遇到的具体问题。opps。很抱歉我的错。我实际上写了一些代码。1测试可以打印出ID。但是，它不会打印过滤后的结果。有什么想法吗？Dim i As Integer Dim strSQL As String Dim db As Database Dim rs As Recordset db=CurrentDb Set rs=db.Openrecordset（“TG”）For i=0 To rs.RecordCount-1 Debug.Print rs.Fields（“ID”）rs.MoveNext下一个i rs.Close Set rs=Nothing db.Close通过编辑此信息修改问题。