الحل الأكيد لايقاف حركة عجلة الماوس

بدون ما اطول عليكم

1- ضع الفورم المراد تطبيق الحركة عليه في وضع التصميم

2- افتح عرض من قائمة الأدوات

3- اختار تعليمات برمجية

ضع هذا الكود

Private action As Integer

Private Sub next_rec()

On Error GoTo Err_next_rec

DoCmd.GoToRecord , , acNext

Exit_next_rec:

Exit Sub

Err_next_rec:

MsgBox Err.Description

Resume Exit_next_rec

End Sub

Private Sub prev_rec()

On Error GoTo Err_prev_rec

DoCmd.GoToRecord , , acPrevious

Exit_prev_rec:

Exit Sub

Err_prev_rec:

MsgBox Err.Description

Resume Exit_prev_rec

End Sub

Private Sub Form_Current()

If action = -1 Then

action = 0

prev_rec

End If

If action = 1 Then

action = 0

next_rec

End If

End Sub

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

If Count > 0 Then

action = -1 'prev_rec

ElseIf Count < 0 Then

action = 1 'next_rec

End If

End Sub

بدون وحدات نمطية ولا ملفات ولا خرابيط

بالتوفيق خالد