في هذا المثال كيف اجبر المستخدم عدم ترك الحقل text2 فارغ عند الاغلاق وارجاع مؤشر الفاره الى الحقل نفسه ولكم جزيل الشكر
عدم ترك حقل فارغ
تفضل أخي ابو عمر: المثال علي الخانة الاولي Text0 ، قم بعمل نفس الكود علي الخانة الثانية ملحوظة: أنا أيضا أبو عمر
Toty_Retos
(المبرمج الصغير)
بارك الله فيك اخي طه ابو عمر وربنا يحفظ لك عمر
شكرا على اهتمامك ولكن المطلوب عندما اغلق الفورم تاتيني هذه الرساله ويرجع التركيز على الحقل
ارجو ان اكون وضحت المطلوب
السلام عليكم ورحمة الله وبركاته
بارك الله فيك اخي طه وجزاك خير الجزاء
اذا سمحت لي بالمساهمة في الحل ....
اخي ابو عمر
بفي معظم البرامج يتم الإستغناء عن زر الإغلاق ويستخدم زر امر او امر بقائمة لإغلاق النموذج ( هذا فقط توضيح والأمر راجع لك ) .. عموماً
النموذج Form1 به زر امر للخروج وبه اضافة بيسطة للكود الذي تفضل به اخي طه مشكوراً .. حيث يتم اظهار رسالة تخير المستخدم من المغادرة او عدمها اذا كان مربع النص فارغ .. ايضاً هذا النموذج تم اخفاء مربع الإغلاق به
النموذج Form2 به كود بحدث On Unload
ارجو ان يكون هو مطلوبك ..
بالتوفيق للجميع
تم تعديل هذه المشاركة بواسطة يوسف احمد في 8 فبراير 2010 في 18:28
السلام عليكم ورحمة الله وبركاته
بارك الله فيك أخي يوسف احمد
وجزاك الله عنا كل خير
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
الاخ يوسف احمد شكرا جزيلا الف شكر ياامير
هل ممكن تعدل المثال بدون نعم يعني لااريد اغلاق الفورم الا بعد تعبئة الحقل الفارغ اجباري
الخ الكريم mnoo2000 الف شكر هذا هو المطلوب جزاك الله خيرا
الشكر موصول لمشرفنا القدير يوسف
الشكر موصول لاخينا المحترم طه
السلام عليكم:حيرتنا معاك يا أبو عمرلقد كان طلبك في البداية هو (كيف اجبر المستخدم عدم ترك الحقل text2 فارغ عند الاغلاق وارجاع مؤشر الفاره الى الحقل نفسه )وعلي فكرة:كل ما قام به الزملاء جميل جداً ويصلح في أي برنامج - كل ما عليك هو كيفية تطبيق الكود حسب رغبتك وحسب ما تراه يصلح في البرنامج الذي تصنعه.سواء كان عند الاغلاق إذا ما نسيت ملأ حقل بالبيانات أو يمكنك بطريقة اخري وهي عن طريق خصائص الجدول وان تجعل هذا الحقل (مطلوب)فتعددت الطرق والهدف واحدفاختر ما تراه مناسبا لك
Toty_Retos
(المبرمج الصغير)
hالاخ العزيز طه ابو عمر اعذرني ممكن انا لم اشرح سؤالي جيدا لان المطلوب اجبار المستخدم عدم ترك الحقل فارغ وكنت ناوي اغلق الموضوع
لكن اطمع من كرمكم شرح هذا الكود الذي اتا بمثال الاخ يوسف بالتفصيل الممل
If IsNull(Text2) Then
If MsgBox("اتترك هذا الحقل فارغ", vbExclamation + vbMsgBoxRight + vbYesNo, "حقل فارغ") = vbYes Then
DoCmd.Close
تم تعديل هذه المشاركة بواسطة ابوعمر75 في 9 فبراير 2010 في 14:18
If IsNull(Text2) Then هذا السطر معناه أنه إذا كانت الخانة المسماه (text2) فارغة وهي معني كلمة (isnull)If MsgBox("اتترك هذا الحقل فارغ", vbExclamation + vbMsgBoxRight + vbYesNo, "حقل فارغ") = vbYes Then هذالسطر معناه أنه إذا كانت الرسالة التي سوف تظهر لك بها زر (yes) وزر (no) - إذا ضغطت علي زر yes وهذا معناه انك موافق علي ترك هذه الخانة فارغة وبالتالي سوف ينتقل إلي الأمر التالي وهو: DoCmd.Close ومعناه اغلق النموذج الحالي - وإذا ضغطت علي زر no فمعناه انك لا توافق علي ترك الحقل او الخانة text2 فارغة وبالتالي سوف يرجع التركيز عليها ووضع المؤشر بها وهذ ا معني الكود التالي: Text2.SetFocus
تم تعديل هذه المشاركة بواسطة طه محمد حامد في 11 فبراير 2010 في 01:05
Toty_Retos
(المبرمج الصغير)
الاخ العزيز طه بارك الله فيك وجعل لك في كل حرف حسنه
شكرا ياغالي
تحية طيبة للجميع وبعد
اضف حقل منطقي True/Falseالى الجدول وليكن مثلاً MZ
القيمة الافتراضية MZ= False
ضع مفتاح تخزين ومفتاح خروج
عند الضغط على مفتاح تخزين MZ=True
وعند الضغط على مفتاح خروج يتم حذف جميع السجلات التي تأخذ القيمة False
بالتوفيق
[يمين]
إذا كـان تـرك الـدين يعــنــي تقــدمــاً
فـيا نفــس مـوتــي قبــل أن تتقـدمــي
[/يمين]