الداله DCount مع معايير من نوع تاريخ

[كوماندير]

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

اعزائي الكرام :

لدي استعلام يستمد حقوله من جدول tblOrders

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

استخدمت الصيغة التالية :

OrdersCountPerDay: DCount("*";"tblOrders";"[OrderDate]= #" & [OrderDate] & "#")

 

ولم تعمل معي جيدا

ماهو الحل برأيكم

 

تم تعديل فبراير 26, 2017 بواسطه jjafferr
تم وضع سطر الاستعلام بإستعمال تنسيق كود الصفحة <>

[اكرم العريقي]

ارفق مثال افضل بالتوفيق

[كوماندير]

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

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

حاولت استخدام دالة Dcount  في الاول بحيث يسمح لي بالاضافة فلم اوفق لتشغيل الدالة بالطريقة الصحيحة .......

 

اليكم المرفق :

DcountWithDatesExample.rar

[Shivan Kurdi - شڤان کوردی]

بصيغة اخر
يعني ما تريد ان يكرر التاريخ في حقل orderdate هل هذا صحيح ؟

[محمدنجار]

::: تحية لك وللاخ استاذ شيفان ....

تم تعديل فبراير 27, 2017 بواسطه محمدنجار

[Shivan Kurdi - شڤان کوردی]

استخدم هذا

DCount("OrderID", "tblorders", "[OrderDate] =#" & Format(Me.OrderDate.Value, "mm/dd/yyyy") & "#")

 

[محمدنجار]

16 دقائق مضت, Shivan Rekany said:

استخدم هذا

DCount("OrderID", "tblorders", "[OrderDate] =#" & Format(Me.OrderDate.Value, "mm/dd/yyyy") & "#")

 

::: تمام استاذ شيفان ولكن اعتقد عليك تغيير الفاصلة , الى فاصلة منقوطة ;  ..... تحياتي

[Shivan Kurdi - شڤان کوردی]

2 دقائق مضت, محمدنجار said:

::: تمام استاذ شيفان ولكن اعتقد عليك تغيير الفاصلة , الى فاصلة منقوطة ;  ..... تحياتي

في الاستعلام ومصدر المربعات نصية نستخدم فاصلة منقوطة ( ; ) وفي محرر الفيجوال نستخدم الفاصلة عادية ( , )

تم تعديل فبراير 27, 2017 بواسطه Shivan Rekany

[كوماندير]

في ٢٧‏/٢‏/٢٠١٧ at 12:59, Shivan Rekany said:

استخدم هذا

DCount("OrderID", "tblorders", "[OrderDate] =#" & Format(Me.OrderDate.Value, "mm/dd/yyyy") & "#")

 

الف الف شكر اخي هو المطلوب بعينه .