أبو سلمى قام بنشر مايو 14 قام بنشر مايو 14 السلام عليكم ورحمة / الاساتذة الكرام سؤال كيف يمكن عدم تغيير سجل البيانات في نموذج عندما اقوم بتحريك بكرة الماوس فلا تتغير الى السجل التالي وجزاكم الله خيرا
Foksh قام بنشر مايو 14 قام بنشر مايو 14 وعليكم السلام ورحمة الله وبركاته .. يمكن تحقيق ذلك باستخدام حدث 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 جربه وأخبرنا بالنتيجة ..
منتصر الانسي قام بنشر مايو 14 قام بنشر مايو 14 يبدو أنك مازلت تستخدم أوفيس 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 قام بنشر مايو 14 قام بنشر مايو 14 3 ساعات مضت, منتصر الانسي said: لم تعد موجودة منذ أوفيس 2007 يوجد حل بسيط وهو تشغيل التطبيق في أكسس 2007 أو إصدار أحدث سؤال حتى تتوضح الفكرة عندي بشكل أكبر .. من هاتين العبارتين فهمت أن العجلة تعمل على التنقل بين السجلات بشكل تلقائي في اوفيس 2007 وما فوق ، هل هذا صحيح فعلاً ؟؟ أنا عندي اوفيس 2019 ولم تنجح الفكرة دون أي تدخل برمجي.
jjafferr قام بنشر الجمعة at 06:52 قام بنشر الجمعة at 06:52 وعليكم السلام في اعدادات النموذج ، بدل استعمال جميع السجلات (All Records) ، استعمل السجل الحالي (Current Record)
Foksh قام بنشر الجمعة at 11:59 قام بنشر الجمعة at 11:59 22 ساعات مضت, أبو سلمى said: يمكن عدم تغيير 🤦🏻♂️ في العجلة الندامة فعلاً .. عدم تغيير والتنقل في السجلات عند تحريك العجلة !!!! وكان قد تبادر لذهني هو فعلاً أن المطلوب = التنقل بين السجلات في عجلة الماوس . لأن الماوس فعلاً لا يتنقل عندي بالعجلة 😅
منتصر الانسي قام بنشر الجمعة at 14:51 قام بنشر الجمعة at 14:51 20 ساعات مضت, Foksh said: من هاتين العبارتين فهمت أن العجلة تعمل على التنقل بين السجلات بشكل تلقائي في اوفيس 2007 وما فوق ، هل هذا صحيح فعلاً ؟؟ ماقبل 2007 كان بالامكان التنقل بين السجلات بإستخدام عجلة الماوس وفي الإصدارات الحديثة تم معالجة هذه المشكلة ولم تعد موجودة 1
أبو سلمى قام بنشر الجمعة at 15:34 الكاتب قام بنشر الجمعة at 15:34 8 ساعات مضت, jjafferr said: عليكم السلام وعليكم السلام ورحمة الله للاسف المشكلة ما زالت قائمة
أبو سلمى قام بنشر الجمعة at 15:41 الكاتب قام بنشر الجمعة at 15:41 في 14/5/2026 at 16:45, Foksh said: مكن تحقيق ذلك باستخدام حدث MouseWheel في النموذج ، للاسف ما زالت المشكلة كما هي ؟؟؟
أبو سلمى قام بنشر الجمعة at 15:49 الكاتب قام بنشر الجمعة at 15:49 في 14/5/2026 at 18:26, منتصر الانسي said: نسخ الملف MouseHook.dll إلى نفس المجلد الخاص بتطبيقك السلام عليكم ورحمة الله كلام جميل وصحيح ولكن في مشكلة وهي وضع هذا الملف في نفس المجلد الخاص بالتطبيق فغالبا مستخدم القاعدة لا يفهم ذلك وغالبا سيقوم بحذف الملف وقد يظن أنه فيرس أو ليس له أهمية هل ممكن اضعه داخل القاعدة جزاكم الله خيرا وشكرا على سعة صدركم
jjafferr قام بنشر الجمعة at 16:19 قام بنشر الجمعة at 16:19 شو نوع النموذج عندك ؟ هل عندك نموذج مستمر او نموذج مفرد ؟
منتصر الانسي قام بنشر الجمعة at 18:02 قام بنشر الجمعة at 18:02 2 ساعات مضت, أبو سلمى said: ولكن في مشكلة وهي وضع هذا الملف في نفس المجلد الخاص بالتطبيق يمكنك كذلك نسخه الى المجلد System32 داخل مجلد Windows
أبو سلمى قام بنشر السبت at 11:21 الكاتب قام بنشر السبت at 11:21 19 ساعات مضت, jjafferr said: شو نوع النموذج عندك ؟ أستاذنا الكريم ... نموذج مفرد في 14/5/2026 at 18:26, منتصر الانسي said: يبدو أنك مازلت تستخدم أوفيس 2003 فعلا هو أوفيس 2003
أبو سلمى قام بنشر الأحد at 13:41 الكاتب قام بنشر الأحد at 13:41 الاساتذة الكرام / كل عام وانتم بخير أولا بمناسبة شهر ذو الحجة وقرب عيد الاضحى المبارك هل لا يوجد حل لهذه المشكلة جزاكم الله خيرا
منتصر الانسي قام بنشر الأحد at 14:28 قام بنشر الأحد at 14:28 42 دقائق مضت, أبو سلمى said: هل لا يوجد حل لهذه المشكلة جزاكم الله خيرا الم يعجبك هذا الحل ؟؟ في 15/5/2026 at 21:02, منتصر الانسي said: يمكنك كذلك نسخه الى المجلد System32 داخل مجلد Windows بهذه الطريقة ستحصل على ميزتين الأولى أن ملف MouseHook.dll سيكون بعيداً عن أنظار المستخدمين والميزة الثانية أنه يمكنك إستخدام كود إيقاف العجلة في أي تطبيق على مستوى الجهاز
أبو سلمى قام بنشر الأحد at 15:09 الكاتب قام بنشر الأحد at 15:09 38 دقائق مضت, منتصر الانسي said: بهذه الطريقة ستحصل على ميزتين جزاكم الله خيرا ولكن المشكلة أن بعض المستخدمين لا يستحبون وضع ملفات على الويندوز الخاص بهم كذلك لو قاموا بتحميل ويندوز مرة ثانية لا يتذكرون هذا الملف وبالتالي القاعدة لا تعمل لديهم ويسبب لهم مشكلة فكنت أفضل حل يكون داخل القاعدة نفسها فيكون أفضل وأبعد عن أي مشكلة مستقبلا عموما جزاكم الله خيرا للاستجابة وسعة الصدر
منتصر الانسي قام بنشر الأحد at 15:37 قام بنشر الأحد at 15:37 8 دقائق مضت, أبو سلمى said: فكنت أفضل حل يكون داخل القاعدة نفسها فيكون أفضل وأبعد عن أي مشكلة مستقبلا اخي الكريم الان الحل قائم أساساً على الملف MouseHook.dll والذي يجب أن يكون موجود على القرص الصلب والحقيقة أني أستغرب من تخوفك هذا فأغلب من كانوا يستخدمون أكسس 2003 (وانا منهم) كانوا يستخدمون هذا الملف بدون أي مشاكل عموما لو اردنا تطبيق الحل الذي تطلبه أي بإستخدام الجداول فسيكون ذلك ممكناً عبر إضافة هذا الملف إلى حقل من نوع مرفقات داخل جدول بحيث يتم إستخراجه عند فتح التطبيق وحذفه عند إغلاقه ولكن في اكسس 2003 لا يوجد هذا النوع من الحقول فقد ظهر إبتداءً من اكسس 2010 على ما اعتقد وأذا قمنا بتنصيب أوفيس 2010 أو أحدث فلن نكون بحاجة لهذا الحل أصلاً لأنه تم معالجة المشكلة فيها (وكأنها حلقة مفرغة 😅) سيكون أفضل حل لك هو تنصيب اوفيس حديث ولن تحتاج إلى أي أكواد
jjafferr قام بنشر الأحد at 19:16 قام بنشر الأحد at 19:16 3 ساعات مضت, منتصر الانسي said: ولكن في اكسس 2003 لا يوجد هذا النوع من الحقول تفضل يا سيدي ، يمكنك عمل هذا : . وحسب صلاحيات المستخدم ، اذا لم تستطع نسخه الى مجلد System32 ، فيمكن نسخه الى المجلد الخاص بالتطبيق في 15/5/2026 at 22:02, منتصر الانسي said: في 15/5/2026 at 19:49, أبو سلمى said: ولكن في مشكلة وهي وضع هذا الملف في نفس المجلد الخاص بالتطبيق يمكنك كذلك نسخه الى المجلد System32 داخل مجلد Windows 1
منتصر الانسي قام بنشر الإثنين at 18:00 قام بنشر الإثنين at 18:00 (معدل) 22 ساعات مضت, jjafferr said: تفضل يا سيدي ، يمكنك عمل هذا : كما يقول المثل (تاهت ولقيناها) بإستخدام المثال الخاص بالأخ @jjafferr قمت بتعديل الحل كما ستجد في المرفق لاحظ أنه عند فتح المجلد ستجد أنه لايحتوي إلا على التطبيق قم بفتحه وتجربة إيقاف العجلة ستجده يعمل بشكل صحيح وعند إغلاق التطبيق لن يكون هناك أي ملف إلى جواره أعتقد بهذه الطريقة لن يلاحظ المستخدم أي شيئ إيقاف عجلة الماوس.rar تم تعديل الإثنين at 18:05 بواسطه منتصر الانسي 2
أبو سلمى قام بنشر بالامس في 14:49 الكاتب قام بنشر بالامس في 14:49 20 ساعات مضت, منتصر الانسي said: كما يقول المثل (تاهت ولقيناها) تمام أستاذي الكبير ... فتح الله عليكم وزادكم علما هذا هو ولكن عندي سؤال أرجو أن يتسع صدركم له هل يمكن جعل هذا الملف في مجلد الويندوز كما وضحت لي فينطبق ذلك على جميع النماذج في القاعدة وليس نموذج واحد أعتقد سيكون ممتاز وأفضل بكثير زادكم الله علما مجرد اقتراح
أبو سلمى قام بنشر بالامس في 16:42 الكاتب قام بنشر بالامس في 16:42 (معدل) اسف عندي سؤال اخر حضرتك لما قلت ممكن تضع هذا الكود في أول نموذج والكود الآخر في اخر نموذج ماذا تقصد لاول واخر نموذج ؟ هل حسب تاريخ انشاء النموذج ؟ ام ماذا تم تعديل بالامس في 16:43 بواسطه أبو سلمى
jjafferr قام بنشر بالامس في 17:28 قام بنشر بالامس في 17:28 اول نموذج = اول نموذج يتم فتحه في قاعدة البيانات ، او اول نموذج يتم فتحه و تحتاج الى ايقاف عجلة الماوس ، أخر نموذج = آخر نموذج يتم به اغلاق البرنامج.
منتصر الانسي قام بنشر بالامس في 18:09 قام بنشر بالامس في 18:09 3 ساعات مضت, أبو سلمى said: هل يمكن جعل هذا الملف في مجلد الويندوز كما وضحت لي فينطبق ذلك على جميع النماذج في القاعدة وليس نموذج واحد أعتقد سيكون ممتاز وأفضل بكثير انا قلت في 17/5/2026 at 17:28, منتصر الانسي said: والميزة الثانية أنه يمكنك إستخدام كود إيقاف العجلة في أي تطبيق على مستوى الجهاز بمعنى يمكن إستخدامه من داخل أي تطبيق موجود على الجهاز دون الحاجة لأن يكون الملف إلى جوار هذا التطبيق اما طريقة تعميمه على النماذج فهو بتطبيق التلميح في 14/5/2026 at 18:26, منتصر الانسي said: تلميح : إذا أردت إيقاف عمل عجلة الماوس في جميع نماذج التطبيق الخاص بك يمكنك تشغيل الكود الأول عند فتح أول نموذج في التطبيق والكود الثاني عند إغلاق آخر نموذج وفيما يخص سؤالك منذ ساعه, أبو سلمى said: ماذا تقصد لاول واخر نموذج ؟ فقد قام الأخ @jjafferr مشكورا بالرد عليه رداً كافياً ووافياً تحياتي
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان