أعزائي أعضاء ومشرفي المنتدى
السلام عليكم ورحمة الله وبركاته
مطلوب التعديل على المرفق كما هو موضح في النموذج ولكم خالص التقدير
قيمة تلقائية لمربع النص بناءا على شرط في مربع قائمة
مغلق
اسأل الله العظيم ان يجزيك خير الجزاء وان يرفع قدرك في الجنة .. حل رائع يا أخي العمري بن .
الاخ الفاضل الحل غير مكتمل ولا يعطى النتيجة المطلوبة رجاء المراجعة
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
عذرا الأخ الكريم
الكود الصحيح للإجراء Change للعنصر s1 يجب أن يكون كالتالى
Private Sub s1_Change() Select Case s1 Case "متعثر", "منقطع", "يحضر احيانا" s2 = "يتابع" Case "منتظم" s2 = "جيد" Case Else End Select End Sub
فيكون الملف المرفق هو كالتالى
وفى الواقع أخ همام أستخدمت العبارة Select لأضع أمام الإخ faife متسع ليضع إختيارته وليغيرها كيفما يشاء (لكنى لم أتعمد الخطأ فقد أخطأت بالفعل)
والعبارة Select بالنسبة لى أقل تعقيداً من عبارة If الشرطية وأوضح
فشكراً على إهتمامك
تم تعديل هذه المشاركة بواسطة العمرى بن في 23 أغسطس 2007 في 18:54
الأخ الكريم الله ينور عليك هكذا الكلام
اخى الهمام كما عهدناك بارك الله فيكما اللهم آمين
هذا الموضوع مغلق.