دالة Dcount باستخدام أكثر من معيار

[sameh_awad]

السلام عليكم

حياكم الله جميعا و بارك الله فى علمكم 

وددت أن أتعامل مع الاكسيس بلغة الvba  و ليس بالاستعلامات لان البرنامج يمتلىء بالكثير منها 

أريد من حضراتكم حساب عدد مرات كشف الموظف خلال شهر 4 بحيث لا يتعدى 2 كشف/شهر 

و حاولت عدة مرات أستمرت 3 ساعات 

Private Sub Main_Notes_3yada_AfterUpdate()
Dim Cr1, Cr2 As String
Cr1 = " [Main_Notes_3yada]='" & [Forms]![3yada]![kind] = "كشف"
Cr2 = " And [A3yada_date] >=#" & [Forms]![3yada]![Fm] & "#" & " and [A3yada_date] <=#" & [Forms]![3yada]![to] & "#"
If DCount("[empcode]", "A3yada_Details", Cr1 & Cr2) > 2 Then
MsgBox "No is over than 2"
DoCmd.CancelEvent
End If
End Sub

DCount_Sameh2-04-2016.rar

تم تعديل أبريل 2, 2016 بواسطه sameh_awad

[sameh_awad]

للرفع للضرورة

[sameh_awad]

وجدت الحل و لله الحمد بعدما أجريت مقارنات
Private Sub Main_Notes_3yada_AfterUpdate()
Dim Cr1, Cr2 As String
Cr1 = " [Main_Notes_3yada]='" & [Forms]![3yada]![kind] = "'"
Cr2 = " And [A3yada_date] >=#" & [Forms]![3yada]![Fm] & "#" & " and [A3yada_date] <=#" & [Forms]![3yada]![to] & "#"
If DCount("[empcode]", "A3yada_Details", Cr1 & Cr2) > 2 Then
MsgBox "No is over than 2"
DoCmd.CancelEvent
End If
End Sub