مساعدة في ايجاد جمع تلقائي بزيادة رقم 1 في خانة مدة الالتحاق بالنموذج الفرعي عند اختيار السنة التأهيلية

[AboBahaa]

السلام عليكم اخواني الاعزاء 

ارفقت ملف به نموذج sTable1 وبه نموذج فرعي 

المطلوب  مساعدتي وفق ما هو موضح بالصورة المرفقة

حيث عند اختيار السنة التأهيلية بالنموذج الفرعي يتم زيادة اوو اضافة عدد ج\كجمع تلقائي في خانة مدة الالتحاق حيث ان في اول سجل مدة الالتحاق 4 سنوات  في العام التأهيلي 2019/2018 عند اختيار السنة التأهيلية 2019 /2020 تزيد مدة الالتحاق عدد 1 فتصبح مدة الالتحاق 5 سنوات وهكذا عند اختيار سنة تأهيلية اخرى 

 

data1.rar

[محمد أبوعبدالله]

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

تفضل اخي الكريم

هذه محاولة حسب ما فهمت

Private Sub سنة_التأهيل_Click()
    Me.strtawgod = Nz(DMax("strtawgod", "STABLE2-2", "[AA ID] = " & [AA ID]), 0) + 1
End Sub

تحياتي

[AboBahaa]

أخي الكريم محمد أبوعبدالله

تم التطبيق  ونجح على النموذج لكن عند التطبيق لاحظت انه عند كل تغيير  ( بالخطأ ) لنفس السنة التأهيلية الحالية مثلا 2019 /2020 أو السنة التأهيلية التي قبلها 2018/ 2019 يتم زيادة العدد بمعنى عند اختيار بالخطأ ( فرضا ) السنة التأهيلية مرة اخرى بيزيد العدد وبالتالي العدد سيتأثر بالاخطاء التي قد ترد عند الاستخدام والاعداد سوف لا تصبح حقيقة هل هناك معالجة للموضوع  او طريقة اخرى ولكم جزيل الشكر والعرفان

وضعت النموذج المعدل بعد اضافة الحدث  ووضعت التجربه التي تمت على التطبيق بالنموذج الفرعي 

data1.rar

تم تعديل يناير 16, 2021 بواسطه AboBahaa
اضافة المرفق

[محمد أبوعبدالله]

من الطبيعي الا يكرر نفس العام

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

Private Sub سنة_التأهيل_Click()
    If Me.[سنة_التأهيل] = DLast("[سنة التأهيل]", "STABLE2-2", "[AA ID] = " & [AA ID]) Then
        Me.strtawgod = Nz(DMax("strtawgod", "STABLE2-2", "[AA ID] = " & [AA ID]), 0)
    Else
        Me.strtawgod = Nz(DMax("strtawgod", "STABLE2-2", "[AA ID] = " & [AA ID]), 0) + 1
    End If
End Sub

data1.rar

تحياتي

ولعدم تكرر العام استخدم الكود التالي

    If Me.[سنة_التأهيل] = DLookup("[سنة التأهيل]", "STABLE2-2", "[AA ID] = " & [AA ID]) Then
'        Me.strtawgod = Nz(DMax("strtawgod", "STABLE2-2", "[AA ID] = " & [AA ID]), 0)
        MsgBox "هذا العام مكرر من قبل"
        Me.Undo
        Exit Sub
    Else
        Me.strtawgod = Nz(DMax("strtawgod", "STABLE2-2", "[AA ID] = " & [AA ID]), 0) + 1
    End If

 

[AboBahaa]

أخي الكريم محمد أبوعبدالله

شاكرا لك اهتمامك 

تم  وضع الكود بالحدث لعدم التكرار

لكن عند التطبيق الفعلي ما زال هناك نفس المشكلة السابقة  لنفس الخطأ المتوقع من المستخدم والمتوقع انه سيحدث أثناء التسجيل للسنوات التأهيلية حيث أن الكود يمنع التكرار للسنة التأهيلية الاولى فقط  2018//2019 ولا يمنع التكرار للسنوات التالية وضعت ما قمت بتجربته بالمرفق 

data2.rar

تم تعديل يناير 16, 2021 بواسطه AboBahaa
اضافة المرفق

[محمد أبوعبدالله]

تفضل اخي الكريم

Private Sub سنة_التأهيل_Click()
    If DLookup("[سنة التأهيل]", "STABLE2-2", "[AA ID]=" & [AA ID] & " AND [سنة التأهيل]='" & [سنة التأهيل] & "'") > 1 Then
'        Me.strtawgod = Nz(DMax("strtawgod", "STABLE2-2", "[AA ID] = " & [AA ID]), 0)
        MsgBox "هذا العام مكرر من قبل"
        Me.Undo
        Exit Sub
    Else
        Me.strtawgod = Nz(DMax("strtawgod", "STABLE2-2", "[AA ID] = " & [AA ID]), 0) + 1
    End If
End Sub

data2.rar

تحياتي

[AboBahaa]

شكرا جزيلا لهذا العرفان بالمساعدة 

أخي محمد أبوعبدالله

بارك الله فيك