السلام عليكم ورحمة الله وبركاته
في احد المواقع الاجنبية الشهيرة في تعليم اكسس Everything Access وجدت طريقة حسب الكاتب جديدة تخطت مشكلات الحلول السابقة
الحل الاول وضع ملف DLL وهذا يتطلب زرعه مع البرنامج او توزيعه والطلب الى المستخدم لعمله "طبعا برامج كثيرة لعمل سيت اب تحل هذا الاشكال"
والحل الثاني بالكود وهو ما يعرف ب SubClassing وهنا وحسب الموقع وكذلك مايكروسوفت ..تسبب هذه الطريقة مشاكل في عرض النماذج وتسبب تلفا في مشروع فيجوال بيسك وغيرها ...
هذا الرابط به شرح باللغة الانجليزية وفوائد اخرى كثيرة
هام جدا ... هذا المثال يعمل مع نسخ 2000+2002+2003 ....
اكسس 2007 و 2010 يوقف عجلة الماوس تلقائيا في النماذج المفردة
الان اترككم مع المثال ... وهو سطر واحد فقط من الكود يستدعى في الحدث المناسب
NewMouseHook.Scroll = False
طبعا الكود الموجود في الوحدة النمطية معقد جدا ويتعامل مع اوامر الذاكرة ... لست على دراية كاملة بالفعل ما قد يسببه الا انه من خلال التجربة لم يحصل اي خلل والمثال يعمل بكل سلاسة