السلام عليكم
اعضاء ومشرفين
بعد تفكير ومحاولات
توصلت للاتي
عملت كود بانشاء حدث بعد تحديث الشعبة في النموذج الفرعي AbscencDelay
Private Sub ClassSec_AfterUpdate() If (ClassSec = "6A" And Weekday(Date) = 1) Then Me.period = 3 ElseIf ClassSec = "6B" And Weekday(Date) = 1 Then Me.period = 1 ElseIf ClassSec = "6c" And Weekday(Date) = 1 Then Me.period = 5 ElseIf (ClassSec = "6A" And Weekday(Date) = 2) Then Me.period = 6 ElseIf ClassSec = "6B" And Weekday(Date) = 2 Then Me.period = 3 ElseIf ClassSec = "6c" And Weekday(Date) = 2 Then Me.period = 2 ElseIf (ClassSec = "6A" And Weekday(Date) = 3) Then Me.period = 1 ElseIf ClassSec = "6B" And Weekday(Date) = 3 Then Me.period = 6 ElseIf ClassSec = "6c" And Weekday(Date) = 3 Then Me.period = 3 ElseIf (ClassSec = "6A" And Weekday(Date) = 4) Then Me.period = 1 ElseIf ClassSec = "6B" And Weekday(Date) = 4 Then Me.period = 3 ElseIf ClassSec = "6c" And Weekday(Date) = 4 Then Me.period = 5 ElseIf (ClassSec = "6A" And Weekday(Date) = 5) Then Me.period = 6 ElseIf ClassSec = "6B" And Weekday(Date) = 5 Then Me.period = 4 ElseIf ClassSec = "6c" And Weekday(Date) = 5 Then Me.period = 3 End If End Sub
فخطوات التسجيل كالاتي
نفتح النموذج الفرعي AbscenDelay
نختار الشعبة وليكن 6A فسيسجل التاريخ (تاريخ اليوم) ورقم الحصة وهو المطلوب
وبعد هذا يجب تسجيل رقم الطالب لانه مفتاح اساسي وهو 1 او 2 او 3 للسادس أ
و 4 او 5 او 6 للسادس ب و 7 او 8 او 9 للسادس ج
الامور تمام من خلال النموذج الفرعي
ولكن هذا ليس الهدف المنشود لانه اريد التسجيل من خلال النموذج الرئيسي classes
فعند اختيار طالب ما في اي شعبة من الكمبو بوكس في النموذج الرئيسي تترحل بياناته
الى النموذج الفرعي ماعدا رقم الحصة
فالمطلوب يتم تسجيل الطالب من النموذج الرئيسي
بعد ماتترحل بياناته وهي الشعبة واليوم ومعها يتم تسجيل رقم الحصة
فياريت يتم تعديل الكود ويضع في مكان ما في النموذج الرئيسي
ومشكوريين