在加载或者打开窗体、报表或查询时筛选数据

    Me.Filter = 筛选条件

    Me.FilterOn = True

例   子：

    '筛选ID>50的数据

    Private Sub Form_Load()
        Me.Filter = "ID>50"

        Me.FilterOn = True
    End Sub