جمع حقول نعم ولا

[محمد عبد الشفيع]

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

النموذج الاول ان يتم جمع حقول نعم ولا الغير محددة اى الغير متعلم عليها لتكون هى ايام الغياب

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

وفقكم الله لكل خير

db3.accdb.zip

[محمد عبد الشفيع]

الا يوجد رد يا جماعة الخير

[محمد عبد الشفيع]

للرفع 

[محمد عبد الشفيع]

استاذى @ابو ياسين المشوليالمشولي

هل عندك حل

[Shivan Rekany]

3 ساعات مضت, محمد عبد الشفيع said:

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

النموذج الاول ان يتم جمع حقول نعم ولا الغير محددة اى الغير متعلم عليها لتكون هى ايام الغياب

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

وفقكم الله لكل خير

db3.accdb.zip

اتفضل اليك هذا

Public Function AhsibYes(F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer)
    AhsibYes = 0
        If F1 = -1 Then AhsibYes = AhsibYes + 1
        If F2 = -1 Then AhsibYes = AhsibYes + 1
        If F3 = -1 Then AhsibYes = AhsibYes + 1
        If F4 = -1 Then AhsibYes = AhsibYes + 1
End Function

Public Function AhsibNo(F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer)
    AhsibNo = 0
        If F1 = 0 Then AhsibNo = AhsibNo + 1
        If F2 = 0 Then AhsibNo = AhsibNo + 1
        If F3 = 0 Then AhsibNo = AhsibNo + 1
        If F4 = 0 Then AhsibNo = AhsibNo + 1
End Function

تقدر ان تستخدمه في استعلام و ايضا تقدر تستخدمه في النموذج او في محرر الاكواد
في محرر الاكواد ستستخدم هكذا

Private Sub Command15_Click()
    Me.APSNT = AhsibNo(Me.PER1, Me.PER2, Me.PER3, Me.PER4)
End Sub

db3.accdb.zip

[محمد عبد الشفيع]

استاذى الغالى @Shivan Rekany

هذا الحل لاى مطلب الاول ام الثانى

[Shivan Rekany]

1 دقيقه مضت, محمد عبد الشفيع said:

استاذى الغالى @Shivan Rekany

هذا الحل لاى مطلب الاول ام الثانى

لكلاهما 
فانكشن الاول لمطلب الاول والفانكشن الثاني لمطلب الثاني لكن نسيت هذه الفقرة

3 ساعات مضت, محمد عبد الشفيع said:

ويطرحها من حقل عدد الحصص

الفانكشن راح يعدد المربعات الفارغة 

[محمد عبد الشفيع]

استاذى الغالى @Shivan Rekany

قصدك ان الاولى هيحسب المربعات المتحددة

والثانية هيحسب المربعات الفارغة

طب فين جزء الطرح من عدد الحصص 

وجزء الطرح ده خاص بحساب المربعات المليانة وجمعها ثم طرحها من عدد الحصص

 

 

[Shivan Rekany]

3 ساعات مضت, محمد عبد الشفيع said:

النموذج الاول ان يتم جمع حقول نعم ولا الغير محددة اى الغير متعلم عليها لتكون هى ايام الغياب

هذا الكود لمطلب الاعلى

Public Function AhsibNo(F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer)
    AhsibNo = 0
        If F1 = 0 Then AhsibNo = AhsibNo + 1
        If F2 = 0 Then AhsibNo = AhsibNo + 1
        If F3 = 0 Then AhsibNo = AhsibNo + 1
        If F4 = 0 Then AhsibNo = AhsibNo + 1
End Function

وهكذا تستخدمه في المحرر الاكواد

    Me.APSNT = AhsibNo(Me.PER1, Me.PER2, Me.PER3, Me.PER4)

 

3 ساعات مضت, محمد عبد الشفيع said:

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

اليك هذا فانكشن
 

Public Function AhsibYes(F0 As Integer, F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer)
    AhsibYes = 0
        If F1 = -1 Then AhsibYes = AhsibYes + 1
        If F2 = -1 Then AhsibYes = AhsibYes + 1
        If F3 = -1 Then AhsibYes = AhsibYes + 1
        If F4 = -1 Then AhsibYes = AhsibYes + 1
        AhsibYes = F0 - AhsibYes
End Function

وتستخدم هكذا في المحرر الاكواد

    Me.APSNT = AhsibYes(Me.no_per, Me.PER1, Me.PER2, Me.PER3, Me.PER4)

واليك القاعدة بعد تعديلdb3.accdb.zip

[محمد عبد الشفيع]

تعبتك معى استاذى الغالى @Shivan Rekany

لك منى كل الشكر والتقدير 

 

 

[محمد عبد الشفيع]

استاذى الغالى @Shivan Rekany

لك منى كل الشكر والتقدير 

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

انه عند تعديل عدد الحصص لا ينتبه ولا يحدث ايام الغياب الا بعد الضغط على الزر الذى وضعته انت بالفورم

وانا اريد ان يتم التحديث تلقائى بدون الضغط على شي مثلما يحدث عند تعليم او الغاء تعليم حقل نعم ولا فانه يتم التحديث تلقائى

واشكرك على سعة صدرك

 

 

[Shivan Rekany]

منذ ساعه, محمد عبد الشفيع said:

وانا اريد ان يتم التحديث تلقائى بدون الضغط على شي مثلما يحدث عند تعليم او الغاء تعليم حقل نعم ولا فانه يتم التحديث تلقائى

واشكرك على سعة صدرك

اتفضل db3.accdb.zip

[محمد عبد الشفيع]

دمت لنا ذخرا اخى الكريم