كيف أظهر التقدير تلقائيا في text2 مباشرة بعد كتاب المعدل في text1

اكتب جملة select case في داخل ال text1

واجعل فيها ما تريد من خيارات

السلام عليكم أخوي

هلا منور الموضوع

أنا مش مشكلتي في التقدير أنا عاوز التقدي يضهر تلقائيا بعد كتابة المعدل

تحياتي

بسم الله الرحمن الرحيم

اكتب الكود الاتي في text1-change

private sub text1_change
if val(text1.text)<=90 then
text2.text="ممتاز"
end if

مع استخدام elseif لباقي التقديرات التي تريد اضافتها

ارجو ان تكون الاجابة المطلوبة

والسلام عليكم

السلام عليكم

هلا أخوي جزاك الله خير على مرورك الطيب

بس حبيبي لنفترض إنو عندنا 3 معدلات يعني 3 تقديرات

متلا :

من 80 إلى 100 : يكون التقدير ممتاز== يعني إدا كان 90 أو 90.50 يطلع بردو ممتاز == وكده للباقي

من 50 إلى 70 : يكون التقدير جيد

من 20 إلى 40 : يكون التقدير متوسط

في الحالة دي إيه هو الكود الصحيح

و السلام عليكم

اخي هذا جزء من المنطلوب و حاول اكمال الباقي و حدك :D

Private Sub Text1_Change()
With Text1
If Val(.Text) <= 100 And Val(.Text) >= 80 Then
Text2.Text = "very good"

ElseIf Val(.Text) < 80 And Val(.Text) >= 50 Then
Text2.Text = "good"

End If

End With

End Sub

و هناك طرق اخر

حيث يمكن وضع الكود في حدث LostFocus او timer

(h) ;)