فعال سازی غلطک ماوس در اکسس 2013 - 2007

ضمن سلام

یکی از تغییراتی که از بدو ایجاد نسخه 2007 اکسس با آن مواجه شده ایم , غیر فعال سازی عملکرد غلطک ماوس در خصوص گشت و گذار در بین رکوردهای ثبت شده می باشد

تا نسخه 2003 با چرخاندن غلطک ماوس , اکسس اقدام به تغییر رکورد جاری کرده و رفتاری همچون فشار بر روی دکمه های Next Record و Previous Record را از خود به نمایش می گذاشت

از آنجا که در برخی مواقع کاربر به صورت اتفاقی اقدام به گرداندن غلطک ماوس می نمود , در این حالت اکسس نیز اقدام به ثبت اطلاعات تغییر داده شده می کرد که همین امر مطلوب برخی کاربران نبود

بر همین اساس مایکروسافت اقدام به حذف این مشخصه رفتاری , از نسخه 2007 اکسس نمود

جهت فعال سازی مجدد , شما نیاز به درج چند خط کد خواهید داشت که در بخش زیرین بدان اشاره ای خواهیم داشت

اقدام به کپی نمودن کدهای زیر در داخل رویداد On Mouse Wheel فرم نمایید :

کد: 

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

کد: 

If Not Me.Dirty Then

   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

 Else

   MsgBox "لطفا اقدام به ذخيره سازي داده ورودي نماييد"

 End If