التحكم بتحريك سجلات النموذج بواسطة عجلة الماوس MouseWheel

[أبو سلمى]

السلام عليكم ورحمة / الاساتذة الكرام
سؤال كيف يمكن عدم تغيير سجل البيانات في نموذج عندما اقوم بتحريك بكرة الماوس فلا تتغير الى السجل التالي 
وجزاكم الله خيرا 

 

[Foksh]

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

يمكن تحقيق ذلك باستخدام حدث MouseWheel في النموذج ، كمثال :-

 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
End If

 

جربه وأخبرنا بالنتيجة .. 

[منتصر الانسي]

يبدو أنك مازلت تستخدم أوفيس 2003 أو نسخة أقدم لأن هذه المشكلة لم تعد موجودة منذ أوفيس 2007 

يوجد حل بسيط وهو تشغيل التطبيق في أكسس 2007 أو إصدار أحدث

أما لو كنت مضطراً للعمل مع أوفيس 2003 فيمكنك تجربة الحل الموجود في المرفقات وسيكون المطلوب منك مايلي

1- نسخ الملف MouseHook.dll إلى نفس المجلد الخاص بتطبيقك

2- إستيراد الوحدة النمطية mdlMouseHook إلى التطبيق الخاص بك

3- في حدث عند التحميل (OnLoad) للنموذج الذي تريد توقيف عجلة الماوس فيه إنسخ السطرين التاليين

Dim blRet As Boolean
blRet = MouseWheelOFF(True)

وفي حدث الإغلاق (OnClose) إنسخ السطرين التاليين

Dim blRet As Boolean
blRet = MouseWheelON()

تلميح : إذا أردت إيقاف عمل عجلة الماوس في جميع نماذج التطبيق الخاص بك يمكنك تشغيل الكود الأول عند فتح أول نموذج في التطبيق والكود الثاني عند إغلاق آخر نموذج 

ستجد في الملف المرفق مثال يحتوي نموذجين واحد يتم التنقل خلال سجلاته بالعجلة والاخر تم توقيف عملها أرجو منك التأكد من عمل الكود أولاً

تحياتي

إيقاف عجلة الماوس.rar

[Foksh]

3 ساعات مضت, منتصر الانسي said:

لم تعد موجودة منذ أوفيس 2007 

يوجد حل بسيط وهو تشغيل التطبيق في أكسس 2007 أو إصدار أحدث

سؤال حتى تتوضح الفكرة عندي بشكل أكبر ..

من هاتين العبارتين فهمت أن العجلة تعمل على التنقل بين السجلات بشكل تلقائي في اوفيس 2007 وما فوق ، هل هذا صحيح فعلاً ؟؟

 

أنا عندي اوفيس 2019 ولم تنجح الفكرة دون أي تدخل برمجي.

[jjafferr]

وعليكم السلام

 

في اعدادات النموذج ، بدل استعمال جميع السجلات (All Records) ، استعمل السجل الحالي (Current Record)

[Foksh]

22 ساعات مضت, أبو سلمى said:

يمكن عدم تغيير

🤦🏻‍♂️

في العجلة الندامة فعلاً ..

عدم تغيير والتنقل في السجلات عند تحريك العجلة !!!!

وكان قد تبادر لذهني هو فعلاً أن المطلوب = التنقل بين السجلات في عجلة الماوس . لأن الماوس فعلاً لا يتنقل عندي بالعجلة 😅

[منتصر الانسي]

20 ساعات مضت, Foksh said:

من هاتين العبارتين فهمت أن العجلة تعمل على التنقل بين السجلات بشكل تلقائي في اوفيس 2007 وما فوق ، هل هذا صحيح فعلاً ؟؟

ماقبل 2007 كان بالامكان التنقل بين السجلات بإستخدام عجلة الماوس وفي الإصدارات الحديثة تم معالجة هذه المشكلة ولم تعد موجودة

[أبو سلمى]

8 ساعات مضت, jjafferr said:

عليكم السلام

وعليكم السلام ورحمة الله 

للاسف المشكلة ما زالت قائمة 

[أبو سلمى]

في 14‏/5‏/2026 at 16:45, Foksh said:

مكن تحقيق ذلك باستخدام حدث MouseWheel في النموذج ،

للاسف ما زالت المشكلة كما هي
؟؟؟

[أبو سلمى]

في 14‏/5‏/2026 at 18:26, منتصر الانسي said:

نسخ الملف MouseHook.dll إلى نفس المجلد الخاص بتطبيقك

السلام عليكم ورحمة الله 

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

[jjafferr]

شو نوع النموذج عندك ؟
هل عندك نموذج مستمر او نموذج مفرد ؟

[منتصر الانسي]

2 ساعات مضت, أبو سلمى said:

ولكن في مشكلة وهي وضع هذا الملف في نفس المجلد الخاص بالتطبيق 

يمكنك كذلك نسخه الى المجلد System32 داخل مجلد Windows