Option Compare Database
Option Explicit
'************борьба со скроллингом мыши
Dim BlockRecordChange As Boolean
Dim CurrRecord As Integer
Private Sub Form_Current()
If BlockRecordChange Then
DoCmd.GoToRecord acActiveDataObject, , acGoTo, CurrRecord
BlockRecordChange = False
End If
End Sub
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
CurrRecord = Me.CurrentRecord
BlockRecordChange = True
End Sub
|