مشكلة فى DCount بأكثر من معيار

[ابو جودي]

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

المطلوب تصحيح الكود على زر الامر  Required

بحيث يتم الحصول على عدد السجلات بشرطين الاول بناء على قيمة  LetterType والشرط الثانى التاريخ

تم الحصول على النتيجة لكل منهما منفردا بذاته من خلال ازرار الامر B1  ,   B2

ولكن عندما حاولت جمعهما ليتم العد بناء على شرطين فى زر الامر  Required واجهت مشكلة  كما هو بالمرفق

جزاكم الله خيرا مقدما

Test.accdbFetching info...

تم تعديل مايو 19, 2021 بواسطه ابا جودى

[الحلبي]

استاذي الفاضل والعزيز / @ابا جودى

استاذى الفاضل / شوف كده

 

Test.accdbFetching info...

تم تعديل مايو 19, 2021 بواسطه الحلبي

[ابو جودي]

  في 19‏/5‏/2021 at 13:15, حلبي said:

استاذي الفاضل والعزيز / @ابا جودى

استاذى الفاضل / شوف كده

 

Test.accdb 1.63 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

Expand  

الله يفتح عليك يا دكتور @حلبي الله الله الله الله عليك 

والله ما عارف اقولك ايه

جزاكم الله خير ورزقكم البركة فى العمر والعلم والاهل والولد

[الحلبي]

الاستاذ ومعلمى الفاضل ومروض اكسس @ابا جودى

تلميذك النجيب

الى ان اموت تلميذك

[ابو جودي]

  في 19‏/5‏/2021 at 14:27, حلبي said:

الاستاذ ومعلمى الفاضل ومروض اكسس @ابا جودى

تلميذك النجيب

الى ان اموت تلميذك

Expand  

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

[jjafferr]

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

 

اسمحوا لي ان اعطي ملاحظاتي :

كود اخوي حلبي يحتاج (" " مسافة) قبل And ، لأن لو شفنا النتيجة تحت ، نشوف ان كلمة And ملاصقة للرقم 1 :

.

واما طريقتي ، فهي تفكيك المعيار الى اجزاء ، واللي سهل عملها :

Private Sub BtnRequired_Click()

    Dim myWhere As String
    
    myWhere = "[LetterType]= " & [txtLetterType]
    myWhere = myWhere & " And"
    myWhere = myWhere & " [LetterID] LIKE '" & Format([txtDate], "yyyy\*\'")
    Debug.Print myWhere
    
    Me.txtResultRequired = DCount("*", "[tblLetters]", myWhere)

End Sub

.

ولكي يعمل الكود ، يجب عمل مسافة قبل كل امر:

.

جعفر

[الحلبي]

استاذنا ومعملنا الاستاذ/ @jjafferr

طريقة جملية وواصحة جدا 

طبعا من معلم كبير لا يصعب عليه مثل هذه الامور 

زادك الله علما ونفعك به ـ جزاكم الله خير على كل ما تقدموه لنا