من یه راه مسخزه پیدا کردم ببینید شاید به دردتون خورد
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)8
8 If Count = -3 Then
8 DoCmd.GoToRecord , , acNext
8 ElseIf Count = 3 Then
8 DoCmd.GoToRecord , , acPrevious
8 End If
End Sub8
پاسخ با نقل قول