access子窗體數據移動的代碼(第一條,上一條,下一條,最後一條)

2018-08-18 16:18:00
黃善超
原創
257

在access中,我們喜歡用子窗體來顯示數據集。繫統也自帶瞭記録導航按鈕。非常方便。


隻需要設置窗體航按鈕屬性爲“是” 卽可


但是自帶的導航是固定的。如果想修改一下樣式,位置。那麽我們就需要自定義導航按鈕瞭。如何自定義呢:

在窗體中添加4箇按鈕。分彆是“第一條”,“上一條”,“下一條”,“最後一條”。這裡以圖片的形式顯示


詳細源碼:

'第一條記録
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





通過點擊按鈕,自動跳轉記録

    分享