معاينة سجلات النموذج

[أبو سلمى]

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

 

[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)