السلام عليكم ورحمة الله وبركاته،،
أخي الكريم
إن كنت تريد (ترقية) الطالب الى المرحلة التي تلي مرحلته الحالية وذلك في حال النجاح طبعا يمكنك وضع هذا الكود في حدث عند النقر للزر :
Private Sub Doresult_Click()
If Result.Value = "راسب" Then
MsgBox "الطالب راسب ولا يحتاج الى تعديل", vbOKOnly, "ممنوع التعديل"
GoTo FFF:
Else
Re = InputBox("أدخل كلمة السر لتعديل النتيجة", "تعديل نتيجة طالب")
If Re = 1234 Then
Select Case Result = "ناجح"
Case Is = Class = "الأول"
Class = "الثاني"
Case Is = Class = " الثاني "
Class = "الثالث"
Case Is = Class = " الثالث "
Class = "الرابع"
Case Is = Class = " الرابع "
Class = "الخامس"
Case Is = Class = " الخامس "
Class = "السادس"
Case Is = Class = " السادس "
MsgBox "ناجح وينقل الى الصف الأول اعدادي", vbOKOnly, "هذه آخر مرحلة في الابتدائية "
End Select
Else
MsgBox "كلمة السر خطأ ", vbOKOnly, "خطأ في الادخال"
GoTo FFF:
FFF:
End If
علماً بأن :
كلمة السر للتعديل هي : 1234
حقل النتيجة اسمه :Result
وحقل الفصل اسمه : Class
والزر الذي فيه الحدث أعلاه اسمه : Doresult
والله أعلى وأعلم
أخيك التقني