如何实现“将窗体中通过系统自带筛选得到的结果记录进行加工"

fmt00

access表格里自带了筛选功能，这省去了自己再写查找控件了。
但是筛选出结果后如何加工，比如打印，导出，勾选等功能。
在此请教。

tmtony

可将当前的recordsetclone 传递给报表 或将 当前的Filter 当成条件参数传递给报表（docmd.openreport ) 也是可行的

fmt00

受站长启发，在网上找了很久，都只找到传递给报表，而没有直接作用在窗体的。
自己经过了反复尝试，解决了这个问题。
反馈给大家：
（在主窗体中设置一个全选的选择框，在子窗体筛选后，对当前界面上的数据进行全选）
Private Sub CHK_全选是否_Click()
    Dim strwhere As String
    strwhere = Me.子窗体.Form.Filter
    strwhere = Replace(strwhere, "[子窗体名].", "") '获得的filter会保留子窗体的名字，如果不去掉，在主窗体运行时sql出错
    strwhere = Replace(strwhere, """", "'") '还要去掉双引号
    If strwhere <> "" Then
        strwhere = "where" & strwhere
    End If
    Me.子窗体.Form.RecordSource = "select * from 表  " & strwhere
    If Me.CHK_全选是否 = True Then
        CurrentDb.Execute "update 表 set 批量选择=true " & strwhere
        Me.子窗体.Requery
    Else
        CurrentDb.Execute "update 表 set 批量选择=false " & strwhere
        Me.子窗体.Requery
        Me.子窗体.Form.Filter = Me.子窗体.Form.Filter
    End If
End Sub