(تمت الاجابة) مطلوب كود في التكست بوكس يعطي تقدير بناء على قيمة في تكست بوكس آخر

[أبوســـارة1973]

السلام عليكم جميعا

المطلوب كود يعطي تقدير ( حسب المبين أدناه ) في تكست بوكس رقم 36 بناء على القيمة المجموعة في تكست بوكس رقم 35 داخل الفورم

يرجي ذكر المكان الذي سيكتب فيه هذا الكود ( هل في تكست بوكس 35 أو 36 ؟

معايير التقدير :

اكثر من 90% الى 100% مـمـــــتــــــاز

اكثر من 80% الى 90% جــيـــد جـــــداً

اكثر من 70% الى 80% جـــــــيـــــــد

اكثر من 50% الى 70% مـــرضـــــــي

50% وأقل غير مرضي

Abusarah73.rar

تم تعديل يونيو 26, 2012 بواسطه أبوســـارة1973

[عبدالله باقشير]

السلام عليكم

انسخ الكود هذا وحطه بين اكواد الفورم

Private Sub TextBox35_Change()

Dim Tgdeer As String

Select Case Val(Me.TextBox35)

Case 90.0001 To 100: Tgdeer = "مـمـــــتــــــاز"

Case 80.0001 To 90: Tgdeer = "جــيـــد جـــــداً"

Case 70.0001 To 80: Tgdeer = "جـــــــيـــــــد"

Case 50.0001 To 70: Tgdeer = "مـــرضـــــــي"

Case Else: Tgdeer = "غير مرضي"

End Select

Me.TextBox36.Text = Tgdeer

End Sub

ودمتم في حفظ الله

[أبوســـارة1973]

أحسنت يا بطل المنتدى

أنا ممتن لك كل الامتنان أستاذي الفاضل

أدعو لك بقضاء حوائجك في الدنيا والأخرة