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

[ابو جودي]

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

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

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

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

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

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

Test.accdb

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

[الحلبي]

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

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

 

Test.accdb

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

[ابو جودي]

9 ساعات مضت, حلبي said:

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

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

 

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

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

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

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

[الحلبي]

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

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

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

[ابو جودي]

1 ساعه مضت, حلبي said:

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

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

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

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

[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

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

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

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