源   码：

'筛选记录并对筛选结果进行排序
Private Sub cmd_筛选排序_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sch As String
    '获取记录集
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Q_员工工资", dbOpenDynaset)
    '判断是否输入筛选条件
    If IsNull(txt_工资) Then
        MsgBox "请输入欲查询的工资下限"
        txt_工资.SetFocus
    '判断是否输入排序关键字
    ElseIf IsNull(cmb_部门) Then
        MsgBox "请选择排序的字段"
        cmb_部门.SetFocus
    Else
        '所有条件都输入后，获取筛选条件
        sch = "[实得工资]>=" & txt_工资
        '筛选
        rs.Filter = sch
        '排序
        rs.Sort = cmb_部门
        '将结果保存至当前窗体中
        Set rs = rs.OpenRecordset
        Set Me.Recordset = rs
        Me.Requery
    End If
    Set rs = Nothing
    Set db = Nothing
End Sub

附   件：

点击下载此示例学习

动画图：