البحث في الموقع

:: بسم الله الرحمن الرحيم :: ** السلام عليكم ورحمة الله وبركاته ** .. أما قبل .. فالصورة التالية تحكي لكم الفكرة باختصار : .. أما بعد : .. فإليكم الطريقة كما هداني إليها رب العالمين 🙂 : أولا :: تقوم بتصميم جدولك وإضافة حقول نعم/لا بالطريقة العادية ثانيا :: تصمم استعلام يكون مصدره جميع حقول جدولنا الجميل 🙂 ثالثا :: تضيف حقول جديدة في الاستعلام ( حقل مقابل كل حقل من نوع (نعم/لا) في الجدول ) نسميه بنفس اسم العقل مع إضافة رقم2 لتفنيده عن الحقل الأصلي وتضيف له هذه الدالة : .. NewFeildName: IIf([TrueOrFalseFeild]=-1;ChrW(10004);ChrW(10008)) وتقوم بتغيير اسم الحقل لكل واحد من حقول الجدول ملاحظة : ChrW(10004) تعطيك الرمز ✔ و ChrW(10008) تعطيك الرمز ✘ لتكون التيجة النهائية هكذا : وعند حفظ الاستعلام وعرضه يظهر لنا هكذا : رابعا :: تقوم بإنشاء نموذج جديد مبني على الاستعلام الظريف وتنسقه بالطريقة التي تحبها .. وتنتبه أنك ستدرج الحقول الجديدة التي أنشأناها في الاستعلام بدلا عن الحقول الأصلية .. ستكون الحقول البديلة عبارة عن حقول نصية عادية غير قابلة للتعديل ( لأنها حقول محسوبة ) .. لذلك سيسهل عليك تنسيقها باللون والشكل الذي تحبه تماما كما تنسق أي حقل نصي آخر 🙂 خامسا :: فقط بقي علينا أن نظيف أمر تغيير قيمة حقول (نعم/لا) الأصلية عند النقر على الحقول البديلة .. ولعمل ذلك نضع الأمر (الكود) البسيط التالي في حدث عند النقر على لكل خانة ( IsActive كمثال ) : Private Sub IsActive2_Click() IsActive = Not IsActive x.SetFocus End Sub وتكرر نفس العملية لكل واحد مع تغيير أسماء الحقول .. لاحظ أنني أضفت هذي للكود ( x.SetFocus ) في النهاية ، وهي باختصار حركة تجميلية .. حيث قمت بإضافة مربع نص (غير منظم) للنموذج وسميته x وجعلت لونه ولون حدوده نفس لون خلفية النموذج ، وجعلت حجمه صغيييييييييييييييير جدا 🙂 يعني الطول x العرض بمقدار = 0.01 تقريبا ..( الهدف أنه ما يظهر للمستخدم) وبعدها خليت الأمر ينقل التركيز لهذا المربع الصغير .. فكانت النتيجة كما شاهدتم سيداتي وسادتي 😊 ونكون بذلك قد انتهينا من عمل مربعات صح أو خطأ كبيرة وجميلة وتنفتح لها النفس 😉👌 وبعدها ينفتح لكم باب الخيال الواسع للإبداع والزيادة كما تشتهي أنفسكم وتلذ أعينكم 😊 ولا تنسونا من صالح دعواتكم وزكواتكم وهداياكم 😅 :: وختامها رابط المثال للتحميل (مجاناً) 😁 :: صح أو خطأ.accdb