( تمت الاجابة )الدالة dcount لا تعمل اذا كانت السجلات تاريخ

[ماجدجلال]

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

من المعروف اخواني انة يمكن استخدام الدالة dcount مع الدالة nz للحصول علي عدد السجلات وبشرط معين ( دون استخدام الاستعلام ) .

ولقد رايت العديد من الاكواد في المنتدي ولكن لاحظت ان الكود لا يعمل اذا كان السجل بة تاريخ ودوما يعطي النتيجة ( 0 ) رغم وجود السجلات فعلا في الجدول,,, الملف المرافق بة جدول ونموذج المطلوب هو

كيفية جعل الكود يحسب عدد تكرار السجلات التي بها التاريخ الموجود في النموذج ( دون استخدام الاستعلام )

وشكرا جزيلا لكم

100.rar

[Bluemind]

اخوي

هذا ملف جديد بعد التعديل

ما ادري ايش المشكله في ملفك

Count_total_record_of_duplicated_date.zip

[ماجدجلال]

شكرا لك اخي الغالي

وارجو المعذرة في التاخر ,,, فلم اعرف بوجود الوصلة الجديدة للمنتدي الا هذة اللحظة

شكرا وجزاك الله كل خير ,,

[كمال النحال]

تمت الاجابة

قسم الاكسس العام

[يوسف أحمد]

بارك الله فيكم اخواني

اخي الحبيب كمال النحال ... الف مليون مبروك الترقية الى مشرف .. وتستاهل ذلك بكل جدارة .. واعتذر عن التأخر في التهنئة

اتمنى لك التوفيق والنجاح في الدنيا والاخرة

اخي الحبيب : ماجد جلال

حاول تجنب استخدام اسم محجوز مثل Date

اليك حل آخر ... فالقصد هو اثراء المشاركات وتقديم اكثر من حل للمشاكل المطروحة

كود

Dim dd As Integer
If Not IsNull(Me.aa) Then
dd = DCount("[no]", "[dd]", "[E_date]=forms!cc!aa")
MsgBox dd
Else
MsgBox "فضلاً ادخل تاريخ معين ليتم حسابه", vbOKOnly + vbInformation + vbMsgBoxRight, "تنبيه"
End If

اسأل الله التوفيق للجميع

100.rar

[ماجدجلال]

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

يااهلا وسهلا بالحبيب الاخ ابواحمد

والله ولك وحشة ...

سوف اجرب الملف المرفوع منكم وسوف اقوم بتغير الاسم حتي ابتعد عن الاسماء المحجوزة ,

الف شكرا لك ,,,,