فروم تخصصی - پشتیبانی CPSD
فعال سازی غلطک ماوس در اکسس 2013 - 2007 - نسخه‌ی قابل چاپ

+- فروم تخصصی - پشتیبانی CPSD (http://cpsd.ir/forum)
+-- انجمن: آموزش (/forumdisplay.php?fid=9)
+--- انجمن: عمومی (/forumdisplay.php?fid=21)
+---- انجمن: توابع و کدهای مفید (/forumdisplay.php?fid=28)
+---- موضوع: فعال سازی غلطک ماوس در اکسس 2013 - 2007 (/showthread.php?tid=305)



فعال سازی غلطک ماوس در اکسس 2013 - 2007 - CPSD Admin - ۳ آذر ۱۳۹۱ ۰۶:۵۱ عصر

ضمن سلام

یکی از تغییراتی که از بدو ایجاد نسخه 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

موفق باشید