office交流網(wǎng)--QQ交流群號(hào)及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

微信交流群(請(qǐng)用微信掃碼)

        

access子窗體數(shù)據(jù)移動(dòng)的代碼(第一條,上一條,下一條,最后一條)

2018-08-18 16:18:00
tmtony8
原創(chuàng)
11843

在access中,我們喜歡用子窗體來(lái)顯示數(shù)據(jù)集。系統(tǒng)也自帶了記錄導(dǎo)航按鈕。非常方便。


只需要設(shè)置窗體導(dǎo)航按鈕屬性為“是” 即可


但是自帶的導(dǎo)航是固定的。如果想修改一下樣式,位置。那么我們就需要自定義導(dǎo)航按鈕了。如何自定義呢:

在窗體中添加4個(gè)按鈕。分別是“第一條”,“上一條”,“下一條”,“最后一條”。這里以圖片的形式顯示


詳細(xì)源碼:

'第一條記錄
Private Sub cmdFirst_Click()
    
    On Error Resume Next
    
    Me.sfmsub.Form.Recordset.MoveFirst
    
End Sub


'上一條記錄
Private Sub cmdPrevious_Click()
    On Error Resume Next
    
    With Me.sfmsub.Form.Recordset
        .MovePrevious
        If .BOF Then .MoveNext
    End With
End Sub


'下一條記錄
Private Sub cmdNext_Click()
    
    On Error Resume Next
    
    With Me.sfmsub.Form.Recordset
        .MoveNext
        If .EOF Then .MovePrevious
    End With
    

End Sub


'最后一條記錄
Private Sub cmdLast_Click()
    
    On Error Resume Next
    
    
    Me.sfmsub.Form.Recordset.MoveLast
    
End Sub





通過(guò)點(diǎn)擊按鈕,自動(dòng)跳轉(zhuǎn)記錄

    分享
    文章分類
    聯(lián)系我們
    聯(lián)系人: 王先生
    Email: 18449932@qq.com
    QQ: 18449932
    微博: officecn01
    移動(dòng)訪問(wèn)