مشكلة فى كود عجلة الماوس فى اوفيس ٢٠١٠ وما فوق

[figo82eg]

ارجو من حضرتكم المساعدة حيث لدى قاعدة بيانات استخدم هذا الكود لتشغيل عجلة الماوس ولكن يقابلنى مشكلة هى عند تحديث اى بيانات على السجل وعند استخدام عجلة الماوس للأمام وللخلف لا يقوم البرنامج بحفظ اى تعديل ولابد من الضغط على زر حفظ .

مع اننى كنت استخدم قاعدة البيانات على اوفيس ٢٠٠٣ وعند تحديث اى بيانات على السجل اقوم بتحريك عجلة الماوس يحفظ السجل والكود هو : 

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

فهل هناك حل

[M.Abd Allah]

وعليكم السلام ورحمه الله وبركاته 

اخي جرب الكود ده وقولي النتيجه 

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

[figo82eg]

بارك الله فيك وجعل علمك فى ميزان حسناتك هو المطلوب

[M.Abd Allah]

الله امين وإياكم

تحت امرك