وعليكم السلام ورحمه الله وبركاته
اخي جرب الكود ده وقولي النتيجه
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error GoTo ErrorHandler
' حفظ السجل الحالي قبل التنقل إلى السجل التالي أو السابق
If Me.Dirty Then
DoCmd.RunCommand acCmdSaveRecord
End If
' التنقل بين السجلات باستخدام عجلة الماوس
If (Count < 0) And (Me.CurrentRecord > 1) Then
DoCmd.GoToRecord , , acPrevious
ElseIf (Count > 0) And (Me.CurrentRecord < Me.Recordset.RecordCount) Then
DoCmd.GoToRecord , , acNext
End If
Exit Sub
ErrorHandler:
MsgBox "An error occurred: " & Err.Description, vbCritical
End Sub