This is code to programmatically manipulate an Access form’s scroll control.

'===== START CODE =====

'In the Form's General Declaration Section put:

Private Const WM_HSCROLL = &H114

Private Const WM_VSCROLL = &H115

' Scroll Bar Commands

Private Const SB_LINEUP = 0

Private Const SB_LINELEFT = 0

Private Const SB_LINEDOWN = 1

Private Const SB_LINERIGHT = 1

Private Const SB_PAGEUP = 2

Private Const SB_PAGELEFT = 2

Private Const SB_PAGEDOWN = 3

Private Const SB_PAGERIGHT = 3

Private Const SB_THUMBPOSITION = 4

Private Const SB_THUMBTRACK = 5

Private Const SB_TOP = 6

Private Const SB_LEFT = 6

Private Const SB_BOTTOM = 7

Private Const SB_RIGHT = 7

Private Const SB_ENDSCROLL = 8

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

 (ByVal hWnd As Long, ByVal wMsg As Long, _

 ByVal wParam As Long, lParam As Any) As Long

Code sample to call this function:

Private Sub cmdMove_Click()

        Dim lVal As Long

        lVal = SendMessage(Me.hWnd, WM_VSCROLL, SB_PAGEDOWN, 0&)

End Sub

'==== END CODE ====