[Abdalazim19]

اشكرك اخي ابراهيم علي المجهود
ولكن رفعت لك صورة من الفورم لتقريب المطلوب
ارغب في ادخال الدرجة فيتم ملي التقديرات باختيار من حرف مثلا(A B C D F) حسب درجة الطالب ثم يظهر قيمة النقاط حسب الحرف حيث لكل حرف وزن معين يتم ضربة في ساعات المقرر ثم وضع الناتج في تكست النقاط
المعدل الفصلي يتم بقسمة مجموع النقاط علي الساعات الكلية
كل هذة الحقول مربوطة بجدول النتائج علي قاعدة البيانات و الذي يتم فتحة من شاشة التسجيل لادخال المقررات وساعاتها
وفي هذة الشاشة يتم ادخال الدرجات وحساب المعدل ومن ثم الحفظ...المشكلة انه حقل المعدل لا يتم حفظة علي قاعدة البيانات
ارجو ا الحل مع الشكر

مرفق الكود عند حدث تغير محتوي حقل الدرجة والتقدير للمقرر الاول

Private Sub TxtDeg1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtDeg1.TextChanged

       If TxtDeg1.Text <> "" Then

           Try

               Select Case TxtDeg1.Text

                   Case Is >= 80

                       TextGr1.Text = "A"

                   Case Is > 70

                       TextGr1.Text = "B+"

                   Case Is >= 65

                       TextGr1.Text = "B"

                   Case Is >= 60

                       TextGr1.Text = "C+"

                   Case Is >= 55

                       TextGr1.Text = "C"

                   Case Is >= 50

                       TextGr1.Text = "D"

                   Case Is < 50

                       TextGr1.Text = "F"

               End Select

                    Select Case TextGr1.Text

                   Case Is = "A"

                       Textpo1.Text = Val(H1.Text) * 4

                   Case Is = "B+"

                       Textpo1.Text = Val(H1.Text) * 3.5

                   Case Is = "B"

                       Textpo1.Text = Val(H1.Text) * 3

                   Case Is = "C+"

                       Textpo1.Text = Val(H1.Text) * 2.5

                   Case Is = "C"

                       Textpo1.Text = Val(H1.Text) * 2

                   Case Is = "D"

                       Textpo1.Text = Val(H1.Text) * 1.5

                   Case Is < 50 > 0

                       Textpo1.Text = 0

               End Select

           Catch ex As Exception

               MsgBox("يرجي مراجعة البيانات المدخلة")

           End Try

       End If

   End Sub

---

اخي ابراهيم كل عام و انت بخير
معليش اتعبتك معاي
رفعت لك المشروع الذي اعمل علية يمكن الدخول الي شاشة التسجيل و اختيار تسجيل جديد لادخال تسجيل طالب
ومن الشاشة الرئيسية اختار الموقف الاكاديمي و منه النتيجة الحالية
حيث الشاشة الخاصة بادخال النتائج 
المطلوب تعديل زر الحفظ ليقوم بتحديث الجدول (Reslut3)  بعد ادخال الدرجة
متروك لك حرية التصرف
مع خالص الشكر وجزاك الله خير