احتساب عدد السجلات داخل النموذج

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته
هل يمكن احتساب عدد سجلات عن طريق اختيارها من عنصر علامة الاختيار
الصورة التاليه توضح المطلوب تمام فقمت بالتصوير من القاعده المرفقه 
واعادة المشهد بالتعديل المطلوب 


المرفق .......
Absence of Employees.rar

[jjafferr]

تفضل يا ريس 

 

في النموذج:

 

 

وكود بعد التحديث:

Private Sub PSelect_AfterUpdate()

    DoCmd.RunCommand acCmdSaveRecord
   
End Sub

طبعا في طرق اخرى ، بس انا اليوم كسلان 

 

 

جعفر

73.Absence of Employees.mdb.zip

[ابو جودي]

تفضل يا ريس 

 

في النموذج:

73.Clipboard01.jpg

 

 

وكود بعد التحديث:

Private Sub PSelect_AfterUpdate()

    DoCmd.RunCommand acCmdSaveRecord
   
End Sub

طبعا في طرق اخرى ، بس انا اليوم كسلان 

 

 

جعفر

جزاكم الله خيرا يا فنان

[jjafferr]

قصدك ياكسلان 

[jjafferr]

لأن الطريقة الثانية فيها كود طويل 

 

وللعلم ، بدل : DoCmd.RunCommand acCmdSaveRecord

 

تقدر تستعمل

me.refresh

 

او

if me.dirty then me.dirty=false

 

 

والقصد هو حفظ السجل

 

 

جعفر

تم تعديل مايو 18, 2015 بواسطه jjafferr

[ابو جودي]

لأن الطريقة الثانية فيها كود طويل 

 

وللعلم ، بدل : DoCmd.RunCommand acCmdSaveRecord

 

تقدر تستعمل

me.refresh

 

او

if me.dirty then me.dirty=false

 

 

والقصد هو حفظ السجل

 

 

جعفر

ههههههههههههه

طيب لو مش كسلان كنت عملت ايه ؟!

ههههههههههههههههههههههههههههههههههه

للعلم انا مش راح اسألك إلا وأنت كسلان 

[jjafferr]

انا دايخ وتعبان ، فاعطيت ما قل ودل 

 

ولكن ، لو ان سؤالك كان فيه عملية غير السالب والموجب والجمع ، كنا نضطر للكود 

بس الحمدلله جت سليمة 

 

 

جعفر

[ابو جودي]

انا دايخ وتعبان ، فاعطيت ما قل ودل 

 

ولكن ، لو ان سؤالك كان فيه عملية غير السالب والموجب والجمع ، كنا نضطر للكود 

بس الحمدلله جت سليمة 

 

 

جعفر

ههههههههههههه

الحمد لله انها جت سليمه

والف الف الف سلامه عليك استاذنا الغالى 

شفاك الله وعافاك

[رمهان]

طبعا وحشتنا اخي جعفر !

وتحية لاخ الرائع محمد عصام !

ممكن بدون iif  وكالتالي

=-Sum([pselect])

تحياتي

تم تعديل مايو 18, 2015 بواسطه رمهان

[Elsayed Bn Gemy]

حمد الله على السلامة  اخى جعفر

ووممكن بقاعدة التجميع

   Me.TotalByNumbers = DCount("PSelect", "[TblEmployees]", "[PSelect] = true")

فى حدث بعد التحديث لمربع الاختيار

[ابو جودي]

طبعا وحشتنا اخي جعفر !

وتحية لاخ الرائع محمد عصام !

ممكن بدون iif  وكالتالي

=-Sum([pselect])

تحياتي

جزاكم الله خيرا استاذ رمهان وكل الشكر والتقدير

[jjafferr]

طبعا وحشتنا اخي جعفر !

وتحية لاخ الرائع محمد عصام !

ممكن بدون iif  وكالتالي

=-Sum([pselect])

تحياتي

 

 

يا سلام ، هذا الفن وإلا بلاش 

[رمهان]

حمد الله على السلامة  اخى جعفر

ووممكن بقاعدة التجميع

   Me.TotalByNumbers = DCount("PSelect", "[TblEmployees]", "[PSelect] = true")

فى حدث بعد التحديث لمربع الاختيار

 

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

ملخص الفكرة: حساب الظاهر امامك !!

 

 

تحياتي

تم تعديل مايو 18, 2015 بواسطه رمهان

[ابو جودي]

كل الشكر والتقدير لكل الاساتذة الكرام 

[امير النحل]

السلام عليكم اخ ابا جودي

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

حيث بحثت في المنتديات كثيرا ولم اجد حلا شكر لك ان تكرمت واوضحت لي ذلك