السلام عليكم و رحمة الله
إخواني الاعزاء المرجو تعديل هاذا المثال بحيث وضع شرطين في زر البحث
- الشرط الاول فيما يخص( العمر) التسكت بوكس 5 إذا كان العمر يتجاوز العدد 25 أو أقل يكون في الشرط إنذارإما بتغير لون التسكت بوكس أوبأي شيء
- الشرط الثاني فيما يخص(المعلومات) التسكت بوكس6 يكون إنذار إذا كان جزء من كلمة خروج
جزاكم الله كل خير 
السلام عليكم
تم التعديل حسب طلبكم . لكن فيما يخص الفقرة الاولى وهي (اذا كان يتجاوز 25 او اقل ) ما المقصود باقل؟ هل تريد ان يكون العمر فقط 25 ؟ ارجو التوضيح ! لذا وضعت شرط اذا كان العمر اكبر من 25 فان لون خلفية النص يتغير
مشكور السيد غالي على التعديل أقصد 25 فقط
وجزاكم الله كل خير
اذن ضع الكود التالي
If Val(Text5) = 25 Then Text5.BackColor = &HFF&
بدل
If Val(Text5) > 25 Then Text5.BackColor = &HFF&
مشكورين ألف شكر أخي الغالي
السلام عليكم السيد الغالي
كيف حالك السيد غالي عندي طلب الله يعافيك في تعديل هاذا المثال مرتا أحرى
لأنني أدخلت عليه [b]الأداة SKINCRAFTER فأصبح شرط تغيير [b][b]اللون[/b] [b]في التيكست بوكس5 لايعمل[/b] [b] عندما يكون العمر أكثر من 25 سنة [/b] [/b][/b]
[b]جراك الله كل خير [/b]
السلام عليكم ورحمة الله وبركاته
أهلا أخي الكريم , المشكلة في الأداة SKINCRAFTER لأنها تغير ستايل جميع الأداوت بما فيها التكست بوكس وأيضا النص في التكست لايظهر بشكل سليم هذا سبب المشكلة .
السلام عليكم أستاذنا المحترم شكرا على الرد
أعلم ذالك أخي أحمد وهل في حل لهاذه المشكلة
أهلا أخي الكريم ، سأرى إذا كان من ضمن أوامر أو إجراءات أداة الskin أوامر نستطيع من بواستطها إستثناء أدوات من تطبيق الستايل عليها عندها تنحل المشكله أم إذا كان لايوجد ذلك فالمشكله ستظل ، أنا الآن لست بجانب الكمبيوتر لكي أجرب ما ذكرته لك سأجرب لاحقاً إن شاء الله إذا لم يقم أحد الإخوة الأعضاء بذلك أو جرب أنت أخي العزيز .
مشكور أخي أحمد بالتوفيق إن شاء الله