الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عمل احصائية للسجلات بحساب الأرقام والتواريخ المكررة سجلا واحدا(صورة ومثال)

مغلقمُجاب
بدأه فتى الوادي في 25 أبريل 2014 · 7 رد · 690 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم 

لدي جدول فيه ( المعرف - رقم الصادر - التاريخ )

ولدي بعض ارقام الصادر تتكرر في نفس التاريخ 

يعني ممكن يتكرر رقم ( 3 ) في تاريخ ( 1/ 1 / 1435 ) اربع مرات 

فالمطلوب عمل إحصائية بدالة ( Dcount ) في نموذج مستقل  للأرقام بحيت يحسب السجل إذا تكرر رقم الصادر وبنفس التاريخ يحسب سجلا واحد  ..

يعني يحسب سجلات رقم (3) على انها مرة واحدة فقط ( لأنها تكررت بنفس الرقم وبنفس التاريخ ) فلا تحسب إلا واحدة .

 

المثال المرفق فيه جدول :

 

post-3573-0-28055600-1398441467.jpg

 

والمثال مرفق هنا :

 

db21.rar

mk17481_26bccea871.gif
#2

-

 

db22.rar

#3

أشكرك أخي الكريم ...

 

هل ممكن عمل ذلك بدالة Count وليس استعلام او موديل ؟!

mk17481_26bccea871.gif
#4

أنا وضعت كود Ecount في موديل لكي تستدعيه من أي فورم

لكن ممكن تضعها كود داخل الفورم

وممكن في الاستعلام نستخدم الكلمة Distinct  بعد SELECT :

لعرض السجلات غير المكررة

SELECT DISTINCT ([txtid])FROM t_2;

أما استخدام Count  منفرده في مصدر البيانات بدون أن نضع أي شروط فسوف تقوم باحصاء الجميع

واذا قمت بوضع شروط فسيكون هناك كود مشابه للكود السابق ارفاقه

يعني المسألة سيان Same Same

1
#5 أفضل إجابة

بعد اذن أخونا أمير

 

لو كنت تريد استخدام دالة  DCount  اليك هذا السطر

DCount("id", "t_2", "id in (SELECT First(t_2.id) AS FirstOfid FROM t_2 GROUP BY t_2.txtid, t_2.txtdate;)")

و ان كنت طريقة أخرى اليك هذه الأسطر

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT t_2.txtid, t_2.txtdate FROM t_2;")
MsgBox rs.RecordCount
Set rs = Nothing

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 26 أبريل 2014 في 09:39

2

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#6

فعلا أستاذ يا أبويوسف

الفكرة الأولى  رائعة

GROUP BY في الاستعلام كشرط لدالة Dcount

 

+1

#7

ممتاز .... فعلا هذا ما كنت أبحث عنه 
لا املك لك الا الدعاء في ظهر الغيب .

 

ماذا لو اردنا إضافة بعض الشروط مثلا كأن نضيف في الجدول حقل (النوع txtkin ) . ونريد أن نضيف شرطا في الكود لإحصاء النوع الفلاني .

تم تعديل هذه المشاركة بواسطة فتى الوادي في 26 أبريل 2014 في 13:24

mk17481_26bccea871.gif
#8

يمكنك اضافة أى شروط الى شرط الدالة باستخدام And و OR

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…