يمكنك استخدام الدالة DSum لحساب مجموع مجموعة من القيم في مجموعة محددة من السجلات ( مجال ). استخدم الدالة DSum في وحدة Visual Basic for Applications (VBA) أو الماكرو أو تعبير استعلام أو عنصر تحكم محسوب.
على سبيل المثال، يمكنك استخدام الدالة DSum في تعبير حقل محسوب في استعلام لحساب إجمالي المبيعات التي أجراها موظف معين على مدى فترة زمنية. أو يمكنك استخدام الدالة DSum في عنصر تحكم محسوب لعرض مجموع المبيعات الجارية لمنتج معين.
بناء الجملة
DSum ( expr , domain [, criteria] )
يحتوي بناء جملة الدالة DSum على هذه الوسيطات:
|
الوسيطة |
الوصف |
|
expr |
مطلوبة. تعبير يعرف الحقل الرقمي الذي تريد إجمالي قيمه. يمكن أن يكون تعبير السلسلة تحديد حقل في جدول أو استعلام، أو يمكن أن يكون تعبيرا يقوم بإجراء عملية حسابية على البيانات الموجودة في هذا الحقل. في expr، يمكنك تضمين اسم حقل في جدول أو عنصر تحكم في نموذج أو ثابت أو دالة. إذا كان expr يتضمن دالة، يمكن أن تكون إما مضمنة أو معرفة من قبل المستخدم، ولكن ليس تجميع مجال آخر أو دالة تجميع SQL. |
|
مجال |
مطلوبة. تعبير سلسلة يحدد مجموعة السجلات التي تشكل المجال. يمكن أن يكون اسم جدول أو اسم استعلام لاستعلام لا يتطلب معلمة. |
|
معايير |
اختيارية. تعبير سلسلة يستخدم لتقييد نطاق البيانات التي يتم تنفيذ الدالة DSum عليها. على سبيل المثال، غالبا ما تكون المعايير مكافئة لعبارة WHERE في تعبير SQL، دون كلمة WHERE. إذا تم حذف المعايير ، تقيم الدالة DSumexpr مقابل المجال بأكمله. يجب أن يكون أي حقل مضمن في المعايير أيضا حقلا في المجال؛ وإلا، تقوم الدالة DSum بإرجاع Null . |
ملاحظات
إذا لم يستوفي أي سجل وسيطة المعايير أو إذا كان المجال لا يحتوي على سجلات، فإن الدالة DSum ترجع Null.
سواء كنت تستخدم الدالة DSum في ماكرو أو وحدة نمطية أو تعبير استعلام أو عنصر تحكم محسوب، يجب إنشاء وسيطة المعايير بعناية للتأكد من تقييمها بشكل صحيح.
يمكنك استخدام الدالة DSum لتحديد معايير في صف المعايير للاستعلام، أو في حقل محسوب في تعبير استعلام، أو في الصف تحديث إلى في استعلام تحديث.
ملاحظة: يمكنك استخدام الدالة DSum أو Sum في تعبير حقل محسوب في استعلام إجماليات. إذا كنت تستخدم الدالة DSum ، يتم حساب القيم قبل تجميع البيانات. إذا كنت تستخدم الدالة Sum ، يتم تجميع البيانات قبل تقييم القيم في تعبير الحقل.
قد تحتاج إلى استخدام الدالة DSum عندما تحتاج إلى عرض مجموع مجموعة من القيم من حقل غير موجود في مصدر السجلات للنموذج أو التقرير. على سبيل المثال، افترض أن لديك نموذجا يعرض معلومات حول منتج معين. يمكنك استخدام الدالة DSum للحفاظ على إجمالي مبيعات هذا المنتج قيد التشغيل في عنصر تحكم محسوب.
تلميح
إذا كنت بحاجة إلى الاحتفاظ بإجمالي تشغيل في عنصر تحكم في تقرير، يمكنك استخدام الخاصية RunningSum لعنصر التحكم هذا، إذا كان الحقل الذي يستند إليه مضمنا في مصدر السجلات للتقرير. استخدم الدالة DSum للحفاظ على مجموع تشغيل على نموذج.
ملاحظة: لا يتم تضمين التغييرات غير المحفوعة على السجلات في المجال عند استخدام هذه الدالة. إذا كنت تريد أن تستند الدالة DSum إلى القيم التي تم تغييرها، فيجب أولا حفظ التغييرات إما بالنقر فوق حفظ السجل في المجموعة سجلات على علامة التبويب الصفحة الرئيسية ، أو نقل التركيز إلى سجل آخر، أو باستخدام أسلوب التحديث .
أمثلة
استخدام الدالة DSum في تعبير يمكنك استخدام دالة مجال (مثل DSum) في الصف تحديث إلى لاستعلام تحديث. على سبيل المثال، افترض أنك تريد تعقب المبيعات الحالية حسب المنتج في جدول المنتجات. يمكنك إضافة حقل جديد يسمى SalesSoFar إلى جدول المنتجات، وتشغيل استعلام تحديث لحساب القيم الصحيحة وتحديث السجلات. للقيام بذلك، قم بإنشاء استعلام جديد استنادا إلى جدول المنتجات، وفي علامة التبويب تصميم ، في المجموعة نوع الاستعلام ، انقر فوق تحديث. أضف الحقل SalesSoFar إلى شبكة الاستعلام، واكتب ما يلي في الصف تحديث إلى :
DSum("[Quantity]*[UnitPrice]", "Order Details", _ "[ProductID] = "& [ProductID])عند تشغيل الاستعلام، يحسب Access إجمالي مبلغ المبيعات لكل منتج، استنادا إلى معلومات من جدول تفاصيل الطلب. تتم إضافة مجموع المبيعات لكل منتج إلى جدول المنتجات.
استخدام DSum في التعليمات البرمجية ل VBA
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.
المثال التالي إجمالي القيم من حقل الشحن للطلبات المشحونة إلى المملكة المتحدة. المجال هو جدول الطلبات. تقيد وسيطة المعايير مجموعة السجلات الناتجة عن تلك التي تساوي ShipCountryRegion المملكة المتحدة لها.
Dim curX As CurrencycurX = DSum("[Freight]", "Orders", _ "[ShipCountryRegion] = 'UK'")
يحسب المثال التالي الإجمالي باستخدام معيارين منفصلين. لاحظ أن علامات الاقتباس المفردة (') وعلامات الأرقام (#) مضمنة في تعبير السلسلة، بحيث عندما يتم تسلسل السلاسل، يتم إحاطة السلسلة الحرفية بعلامات اقتباس مفردة، ويتم إحاطة التاريخ بعلامات الجنيه.
Dim curX As CurrencycurX = DSum("[Freight]", "Orders", _ "[ShipCountryRegion] = 'UK' AND _ [ShippedDate] > #1-1-95#")
