وعليكم السلام ورحمه الله وبركاته 
 
	اخي جرب الكود ده وقولي النتيجه 
 
	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