源   码:

'在报表中显示当前窗体中筛选出的记录
Private Sub cmd_报表_Click()
    '打开报表"R_生活健康用品"
    DoCmd.OpenReport "R_生活健康用品", acViewPreview
    '设置打开的报表的筛选条件
    Reports!R_生活健康用品.Filter = Me.Filter
    Reports!R_生活健康用品.FilterOn = True
End Sub

Private Sub cmd_筛选_Click()
    Me.Filter = "[商品名称] like " & " '*" & txt_商品名称 & "*'"
    Me.FilterOn = True
End Sub

附   件:

点击下载此示例学习

演示图：