try this
-----------------------------------------
Private Const SPI_SETWHEELSCROLLLINES = 105
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Sub DisableScrolling()
SystemParametersInfo SPI_SETWHEELSCROLLLINES, 0, 0, 0
End Sub
--------------------------------------------------------------------------------
That first 0 after SPI_SETWHEELSCROLLLINES is the number of lines to scroll. Setting it to 0 disables scrolling. The default value is 3, so that's probably what you should set it back to when you want to re-enable the scrolling.
--------------------------------------------------------------------------------
Private Sub EnableScrolling()
SystemParametersInfo SPI_SETWHEELSCROLLLINES, 3, 0, 0
End Sub
-----------------------------------------
-----------------------------------------
I got this from a VB site.Don't know if this will work in access
HTH
Skip