Dcount problem

[dr_bioman]

السلام عليكم 

برجاء مراجعة هذا الكود

Text6=("[id] ", "request", "[rdate]=#" & format(me.txtsearch.value,"mm/dd/yyyy") &"#" And "[doctor] ='(ك)'") 

 

حيث request اسم الجدول

Rdate حقل التاريخ بالجدول

Doctor دا حقل في جدول request وله قيمتين اما (ك) واما (ع) 

Text6 مربع نص غير منضم في النموزج وهايظهر فيه نتيجة الداله dcount

Txtsearch مربع نص غير منضم في النموزج ودا بيتكتب فيه التاريخ اللي انا محتاجه

مااريده هو عمل كونت للسجلات التي بتاريخ احدده في txtsearch وكمان بنوع الdoctor

يعني dcount بشرطين احدهما تاريخ والاخر نصي

انا جربت كل شرط علي حده وشغال كويس

لكن عند دمج الشرطين لا يعمل الكود

 

تم تعديل نوفمبر 13, 2021 بواسطه jjafferr
إظهار الكود بالطريقة الصحيحة بإستعمال زر <> من القائمة

[jjafferr]

وعليكم السلام 🙂

 

جرب

me.Text6= dcount("*", "request", "[rdate]=#" & format(me.txtsearch.value,"mm/dd/yyyy") & "# And [doctor] ='(ك)'")  

 

او بطريقة اخرى ، ولكنك تحتاج الى دالة DateFormat :

Dim myWhere As String
myWhere = myWhere & "[rdate] =" & DateFormat([txtsearch])
myWhere = myWhere & " And "
myWhere = myWhere & "[doctor] ='(ك)'"
Debug.Print myWhere

Me.Text6 = DCount("*", "request", myWhere)
  
 

 

ويمكنك الحصول على الدالة من هنا:

 

جعفر

[د.كاف يار]

10 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

جرب

me.Text6= dcount("*", "request", "[rdate]=#" & format(me.txtsearch.value,"mm/dd/yyyy") & "# And [doctor] ='(ك)'")  

 

او بطريقة اخرى ، ولكنك تحتاج الى دالة DateFormat :

Dim myWhere As String
myWhere = myWhere & "[rdate] =" & DateFormat([txtsearch])
myWhere = myWhere & " And "
myWhere = myWhere & "[doctor] ='(ك)'"
Debug.Print myWhere

Me.Text6 = DCount("*", "request", myWhere)
  
 

 

ويمكنك الحصول على الدالة من هنا:

 

جعفر

اتوقع المشكلة هنا

me.Text6= dcount("*", "request", "[rdate]=#" & format(CDate(me.txtsearch),"mm/dd/yyyy") & "# And [doctor] ='ك'")  

 

تم تعديل نوفمبر 13, 2021 بواسطه د.كاف يار

[dr_bioman]

سأجرب واوافيكم بالرد

[jjafferr]

وعليكم السلام 🙂

 

جرب

me.Text6= dcount("*", "request", "[rdate]=#" & me.txtsearch.value & "# And [doctor] ='(ك)'")  

 

او

me.Text6= dcount("*", "request", "[rdate]=" & format(me.txtsearch.value,"mm/dd/yyyy") & " And [doctor] ='(ك)'")  

جعفر

[dr_bioman]

ماشاء الله عليك اخي جعفر

تم المطلوب ولله الحمد

كانت المشكله في اخر الكود 

"#" 

لذلك تم وضع الشرط الاخير بين العلامات "" 

جزاك الله خيرا

[jjafferr]

حياك الله 🙂

رجاء اختيار المشاركة التي اعطتك الجواب الصحيح ، واختيارها كافضل اجابة 🙂

 

جعفر