اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

السلام عليكم ورحمة الله

لدي قاعدة بيانات لطريقة دفع الرسوم الدراسية للطلاب وواجهتني مشلكة اختيار طريقة الدفع فهناك اكثر ن طريقة للدفع وذلك حسب حالة الطالب وتوجد صورة توضح المطلوب 

 

 

Aziz01.rar

Aziz.png

تم تعديل بواسطه عبدالعزيز محمد
قام بنشر

السلام عليكم ورحمة الله وبركاته 

توصلت للكود ولكن اريد ان يتم التعديل بمجرد اختيار احد خيارات الدفع

والكود هو:

Private Sub Options_Installment()
Rem ===== كود يقوم بكتابة الرسوم الدراسية حسب الميزة الممنوحة للطالب=====

If CLASSE = "الأول" Or CLASSE = "الثاني" Or CLASSE = "الثالث" Or CLASSE = "الرابع" Or CLASSE = "الخامس" Or CLASSE = "السادس" Then
    If OPTION_STUDENTS = 1 Then
        INSTALLMENT = 1125
    End If
     If OPTION_STUDENTS = 2 Then
        INSTALLMENT = 11065
    End If
    If OPTION_STUDENTS = 3 Then
        INSTALLMENT = 950
    End If
    If OPTION_STUDENTS = 4 Then
        INSTALLMENT = 1650
    End If
End If

If CLASSE = "السابع" Or CLASSE = "الثامن" Or CLASSE = "التاسع" Then
    If OPTION_STUDENTS = 1 Then
        INSTALLMENT = 1215
    End If
     If OPTION_STUDENTS = 2 Then
        INSTALLMENT = 1150
    End If
    If OPTION_STUDENTS = 3 Then
        INSTALLMENT = 1015
    End If
    If OPTION_STUDENTS = 4 Then
        INSTALLMENT = 1850
    End If
End If


End Sub
 

قام بنشر

السلام عليكم ورحمة الله وبركاته 

توصلت للكود ولكن اريد ان يتم التعديل بمجرد اختيار احد خيارات الدفع

والكود هو:

Private Sub Options_Installment()
Rem ===== كود يقوم بكتابة الرسوم الدراسية حسب الميزة الممنوحة للطالب=====

If CLASSE = "الأول" Or CLASSE = "الثاني" Or CLASSE = "الثالث" Or CLASSE = "الرابع" Or CLASSE = "الخامس" Or CLASSE = "السادس" Then
    If OPTION_STUDENTS = 1 Then
        INSTALLMENT = 1125
    End If
     If OPTION_STUDENTS = 2 Then
        INSTALLMENT = 11065
    End If
    If OPTION_STUDENTS = 3 Then
        INSTALLMENT = 950
    End If
    If OPTION_STUDENTS = 4 Then
        INSTALLMENT = 1650
    End If
End If

If CLASSE = "السابع" Or CLASSE = "الثامن" Or CLASSE = "التاسع" Then
    If OPTION_STUDENTS = 1 Then
        INSTALLMENT = 1215
    End If
     If OPTION_STUDENTS = 2 Then
        INSTALLMENT = 1150
    End If
    If OPTION_STUDENTS = 3 Then
        INSTALLMENT = 1015
    End If
    If OPTION_STUDENTS = 4 Then
        INSTALLMENT = 1850
    End If
End If


End Sub
 

السلام عليكم ورحمة الله 

لقد استفدت من الرد اخي عبدالرحمن هاشم

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information