| |
|
|
| | пойдёт ли такое решение
Private Sub Form_Current()
DoCmd.GoToRecord , , acFirst
End Sub
|
Вроде бы решил просто, но
Нет ли каких подводных камней? | |
| |
| |
| |
|
|
| |
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
|
Такой вот код юзаю | |
| |
| |
