السلام عليكم ورحمة الله وبركاتة
لقد قمت بعمل طريقتين لاظهار التقدير .. الأولى وهي عندما يتم ادخال ارقم يظهر التقدير على النموذج ( علما بأنه مربع تسمية مخفي )
اما الطريقة الثانية فهي اختيار من قائمة
السؤال هنا . . هل العملية التي قمت بها في بناء الكود صحيحه ام يوجد كود افضل ؟
اتمنى الافادة يا اساتذة
تحياتي
السلام عليكم
أخي طلال حامد : لا أحد يستطيع يقول أن طريقتك خطأ ....... لكن
طريقتك طويلة .. ومرهقة .. هناك طريقة أفضل وأقصر تتلخص في قاعدة Select Case
أنظر الكود
Select Case Nz(txt) Case Is >= 90 Me.qlab.Caption = "ممتاز" Case Is >= 80 Me.qlab.Caption = "جيد جدا" Case Is >= 70 Me.qlab.Caption = "جيد" Case Is >= 50 Me.qlab.Caption = "مقبول" Case Is < 50 Me.qlab.Caption = "راسب" End Select
هذه الطريقة ستختصر عليك الكثير من الوقت في كتابة مثل كودك الطويل
المثال في المرفقات .. موفق أخي الكريم .. دائما
EKSEER
مشكور اخي EKSEER على الرد ..
لكن ممكن ان طريقتي كانت طويله حبتين لانها قائمة على شرط في مربع كومبو ..
واتمنى انك توضحلي ليش استخدمت NZ .. وماهي عملها بالضبط
تحياتي لك .. ومنكم نستفيد
اقتباسلكن ممكن ان طريقتي كانت طويله حبتين لانها قائمة على شرط في مربع كومبو ..
ربما .. أخي الكريم ..وذكرت لك أن طريقتك تؤدي المطلوب فعلا لكنها طويلة
اقتباسواتمنى انك توضحلي ليش استخدمت NZ .. وماهي عملها بالضبط
عمل دالة Nz أنها تجعل قيمة مربع النص ( الدرجة ) يساوي صفرا - إذا ترك فارغا أي Null
جرب أن تترك مربع النص فارغا وتضغط زر الامر ( شاهد التقدير ) سيعطيك راسب أي أن الدالة أعتبرت الرقم المدخل صفرا
وجرب حذف الدالة وكرر ماسبق - سيكون لديك رسالة خطأ بسبب أن الحقل فارغ .. هذا هو عمل Nz
موفق أخي الفاضل .. والسلام
شكرا جزيلا اخي الكريم
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…