تعديل على كود التحقق من الصحه

[ابو الآء]

السلام عليكم

لدى الكود التالى فى فورم ادخال درجات للطلاب

Private Sub English_t1_Activity_AfterUpdate()
If English_t1_Activity = "غ" Or English_t1_Activity <= 40 Then
    Exit Sub
Else
    Me.English_t1_Activity = ""
    MsgBox "الدرجة اقل من او تساوى 40 واكتب حرف غ للغياب"
End If

ويعمل جيدا 

بارك الله فى استاذى الذى تفضل على به

ولكن توجد مشكله ان اكود بعد ادخال بيانات خطاء ينتقل الى الحقل التالى 

هل يمكن تعديل بحيث لا ينتقل الى حقل اخر ويبقى بنفس الحقل لادخال الدرجه فيه

[أبو عبدالله الحلوانى]

9 دقائق مضت, ابو الآء said:

هل يمكن تعديل بحيث لا ينتقل الى حقل اخر ويبقى بنفس الحقل لادخال الدرجه فيه

ضع الكود في حدث عند الادخال للحقل التالى أو اجعل في الحقل التالى للحقل الذى به هذا الكود وبالتحديد في حدث عند الادخال

if len(English_t1_Activity & "") = 0 then English_t1_Activity.setfocus

جرب هذا ووافنا بالنتائج

[ابو الآء]

هل يمكن ادراج هذا الشرط داخل الكود المرفق بالاعلى

[ابو الآء]

up

[Shivan Rekany]

41 دقائق مضت, ابو الآء said:

up

ارفق قاعدة بيانات مصغرة لكي اجرب بعض العمليات عليه 

[ابو الآء]

تفضل استاذي

انا الان علي التليفون

لان النت الارضي فاصل حالياااا

بارك الله فيك

037.rar

[Shivan Rekany]

3 ساعات مضت, ابو الآء said:

تفضل استاذي

انا الان علي التليفون

لان النت الارضي فاصل حالياااا

بارك الله فيك

037.rar

استخدم هذا الكود عند الخروج من المربع النصي وليس بعد تحديث

Private Sub Arabic_t1_Exam_Exit(Cancel As Integer)
If Me.Arabic_t1_Exam = "غ" Or Me.Arabic_t1_Exam <= 40 Or Me.Arabic_t1_Exam = "" Then
    Exit Sub
Else
    Cancel = -1
    Me.Arabic_t1_Exam = ""
    MsgBox "الدرجة من 40 واكتب حرف غ للغياب"
End If
End Sub

جربه واذا ما نجحت انا راح اعمل لك

تحياتي

[ابو الآء]

بارك الله فيك استاذى الفاضل 

يعمل جيداا 

وهاذ هوا الملطوب بالفعل

واسف على التأخر فى الرد لانى لم انتبه للتعليق على الملف