عدم التعديل وعدم الاضافة الا بكلمة مرور ومنع استخدام عجلة الماوس

الاخت الغالية زهرة

أعتقد أن هناك خطأ ما في الاكواد انظري المرفق !

في انتظار الرد

error.rar

يا خبر ابيض

نسيت تصريح بحاله

Dim Y As String

اشكرك اخي محمد فؤاد على التنبيه مع ان الاكسيس يتعرف على القيمة مباشرة لانه يعتبرها قيمه عدديه وسواء تم التصريح عنها ام لم يتم التصريح عنها فسوف يقبلها ولكن يظهر التنبيه بالخطأ ( وهذا لا يعتبر خطأ بحد ذاته ) ولكن للتنبيه فقط انه لم يتم التصريح عن المتغير Y

وقد تم تعديل الملف السابق

اختكم

زهره

شكرا لك اختي الفاضله زهرة

جميل هذا العمل

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

وشكر لك ولأهتمامك

شكرا على الجهود المبذولة

تحياتي

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

نرجو منك ولا أمر عليك .. أن تفصلي المثالين عن بعض أي

المثال الأول لعدم التعديل وعدم الاضافة الا بكلمة مرور

المثال الثاني منع حركة عجلة الماوس من التنقل بين السجلات

لأن الامر التبس علينا وفقك الله

تفضل اخي الكريم

تم الفصل بين الاجرائين كل اجراء في قاعدة بيانات منفصله

عدم التعديل والاضافة الا برقم سري

NO_EDIT_ADD.rar

منع تحريك الماوس برمجيا بالكود وليس بواسطة اداه dll

zaNOMouseWheel_UP.rar

ملاحظة : تم تعديل المثال السابق لوجدود خطأ بسيط في دالة الـ Class

ملاحظة هامة : اثناء استخدام البرنامج لا تحاول فتح الوحدات النمطية ثم تفتح النموذج مباشرة لان البرنامج سوف يعلق والسبب في ذلك ان كود ايقاف عجلة الماوس لازال في الذاكرة ولم يتم تحريره منها لهذا بجب عليك بعد فتح الوحدة النمطية سواء الخاصة بالوظائف او الخاصة بالنموذج فيجب اغلاق النموذج والاكسيس ثم ثم فتحه من جديد

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

شكرا جزيلا .. وفقك الله

اخي ekseer

بارك الله فيك على هذا البرنامج الجميل والرائع واقولها بدون مجامله فهو من حيث الاخراج رائع ومن خلال المعلومات التي به رائع .

هناك بعض الملاحظات حاول تلافيها

1. بعض الاسئلة تتكرر اكثر من ثلاث مرات بين فتره واخرى مثل سؤال " ما هي الدولة التي لا تحتفل بعيد الاستقلال " ( بريطانيا ) واعتقد ان عدد الاسئلة قليل والا لكان اختار الاختيار العشوائي الغير متكرر سؤال لكل مره

2. زر اغلاق القاعدة يغلق النموذج فقط ولا يغلق القاعدة كامله لانك استخدمت امر DoCmd.CLOSE والنفروض استخدام امر DoCmd.Quit

ختاما مشكور على البرنامج ولو انه بصيغة MDE ولكن ماشي في المرات القادمة سأضع جميع ملفاتي MDE :) :)

امزح معاكم كل الملفات التي اضعها مفتوحة المصدر

أختي الغالية زهرة

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

سويت برنامج هلى قدي لاني والله اريد اتعلم

وشكرا لك

بارك الله فيك على هذه البرامج الجميلة والمفيدة

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

الأخت زهرة .. شكرا لك وهذه والله شهادة أعتز بها من خبيرة في هذا المجال

وملاحظاتك محل أهتمام مني دائما .. ولقد استخدمت كود رول الماوس المحرر في هذا الموضوع في برنامجي

والفضل يعود لكم ( وراء كل تلميذ نجيب معلم نجيب )

بالنسبة للملاحظة الاولى - تكرار الاسئلة فقد فشلت فشلا ذريعا في الوصول للحل إذ أن كل دوال Randomize لم تفلح معي ربما لجهلي

بالنسبة للملاحظة الثانية فما كانت تخفى على لكن واجهت مشكلة أن البرنامج يعللق إذا استخدمتها ربما للأوامر التي أستخدمتها لإخفاء شاشة الأكسس علاقة والله مادري :o ففضلت تركها على حالها

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

تحياتي للجميع والسلام

كملي جميلك وضيفي كود منع استخدام زري

بيج اب

بيج داون

لانهم يحلون محل عجلة الماوس - فياليت اذا لهم طريقة

وايضا اذا مافيها ازعاج كود منع استخدام زر (الحذف للخلف) الزر اللي فوق مفتاح الادخال

وشكرا

اخي ابو عبدالله

يمكن الغاء مفتاحي الصفحة لأعلى PageUp والصفحة لأسفل PageDown وكذلك مفتاح الرجوع للخلف Backspace بهذه الطريقة

1. عند حدث مفتاح للاسفل OnKeyDown نضع هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 33, 34,8
KeyCode = 0
End Select
End Sub

2. سنجد ايضا من ضمن اجراءات تبويب الحدث اجراء وهو

مفتاح العرض التمهيدي : نضعه على نعم KeyPreview: Yes

بارك الله فيكي أخت زهرة

بسم الله الرحمن الرحيم

بارك الله فيك اختى الكريمة

واكثر من امثالك

شكرا جزيلا :)

اكواد ومعلومات رائعة استفدت منها كثيرا

بالنسبة لكود ايقاف عجلة الماوس - فهو رائع وقوي جدا

لاني كنت استخدم بالسابق كود مع dll

ولكن بمجرد فتح النموذج ونقل الماوس الى اي حقل تالي - يتم تحريك السجلات للاعلى والاسفل بعجلة الماوس

اما الان فلا يمكن ذلك

اختي زهره بارك الله فيك

اخر طلب واسف على الازعاج

في احدى النماذج عندي

اقوم بالترقيم التلقائي بمجرد الكتابة في احد الحقول - وهو عادة عندي اول حقل في النموذج

مثلا نموذج تسجيل بيانات متدرب جديد (حقل الاسم الاول)

المشكلة هي انه حينما نعود للخلف في نفس النموذج الى هذا الحقل ونكتب اي حرف اضافي او تعديل - يتم اضافة رقم تلقائي اضافي

فارغب الاستفسار - هل بالامكان اعطاء امر بحساب رقم تلقائي واحد للنموذج دون اي اضافة في حال الكتابة مرة اخرى بنفس الحقل

او منع الرجوع لهذا الحقل فقط في حال الخروج منه

انا عارف اني ازعجتك كثير بس بحاول يكون هذا اخر استفسار

اخي ابو عبدالله

بارك الله فيك

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

ارجوا المعذرة

فانا اجهل الكثير والكثير من الامور - رغم انني اعتقد بان هذا القانون واضح جدا لكل مبتدأ

فلن اكرر هذا الخطأ

كما انني احترم قوانين المنتدى من حيث عدم توجيه السؤال لشخص معين

اكتب هذا الرد للتذكير لي ولغيري من الاعضاء اللذين استفادوا منكم

شكرا لك أخت زهرة على هذا المجهود العظيم

لكن المشكلة عند استخدام سكرول الماوس للأمام و الخلف الوضع تمام

ولكن عند إغلاق النموذج وفتحه مره أخرى و استخدام السكرول بعدها

الأكسس والبرنامج يصك و يعلق ( لا يعمل ) فما الحل ،،،

شكرا لكم

كلام الاخ lena_kkkkk صحيح

كنت اتوقع بان المشكلة من عندي فقط

بارك الله فيكم جميعا على هذه الملاحظات

تم تعديل المرفقات جميعا الخاص بإيقاف عجلة الماوس لوجود خطأ بسيط في دالة الـ Class

وهناك ملاحظة هامة : اثناء استخدام البرنامج لا تحاول فتح الوحدات النمطية ثم تفتح النموذج مباشرة لان البرنامج سوف يعلق والسبب في ذلك ان كود ايقاف عجلة الماوس لازال في الذاكرة ولم يتم تحريره منها لهذا بجب عليك بعد فتح الوحدة النمطية سواء الخاصة بالوظائف او الخاصة بالنموذج فيجب اغلاق النموذج والاكسيس ثم ثم فتحه من جديد

قم بالتجربة الان واذا كان هناك اي ملاحظة فلا تتردد في ذكرها

zaNOMouseWheel_UP.rar