كيف يمكن التعديل على دالة التجميع في كود vba
السلام عليكم اخواني
لدي تقريرين لحساب اجماليات بالدالة
dcount
وهما صورة طبق الأصل من بعضهما بس الفرق بينهما أن
تقرير1 يحسب من استعلام 1
وتقرير 2 يحسب عند التحميل من دالة
dcount
المشكلة هناك فرق في السرعات بين التقريرين عند الفتح حيث نجد أن تقرير 2 المحسوب عن طريق
vba
اسرع من تقرير 1 المحسوب عن طريق استعلام
المطلوب :
هل هناك طريقة مثلا كعمل مصفوفه او حلقة تكرارية او وحدة نمطية بشكل معين لعمل تقرير2 بحيث يتم تقليص عدد المعادلات الموجودة ف
اتفضل استاذ @haniameen
تم انشاء موديول كالتالى
Public Function GetCountKind(strCode As Integer, strMale As Integer) As Integer
'لعدد الذكور والاناث
GetCountKind = DCount("*", "sheet", "[dept_code] = " & strCode & " and [c_male]=" & strMale)
End Function
Public Function GetCountReligion(strCode As Integer, strReligion As Integer) As Integer
'لعدد المسلمين والمسيحين
GetCountReligion = DCount("*", "sheet", "[dept_code] = " & strCode & " and [c_moslem]=" & strReligio
