Access培訓
網站公告
·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access數據庫-模塊/函數/VBA

將篩選的所有數據按照指定順序排序

時 間:2020-06-13 21:17:47
作 者:楊雪   ID:42182  城市:南京
摘 要:分享一個將篩選的所有數據按照指定順序排序的示例。
正 文:

源   碼:

'篩選記錄并對篩選結果進行排序
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


附   件:

點擊下載此示例學習


動畫圖:



Access軟件網QQ交流群 (群號:252407829)       access源碼網店

最新評論 查看更多評論(0)

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助