באפשרותך להשתמש בפונקציה DSum כדי לחשב את הסכום של קבוצת ערכים בקבוצה מוגדרת של רשומות ( תחום ). השתמש בפונקציה DSum במודול Visual Basic for Applications (VBA), מאקרו, ביטוי שאילתה או פקד מחושב.
לדוגמה, באפשרותך להשתמש בפונקציה DSum בביטוי שדה מחושב בשאילתה כדי לחשב את סך המכירות שבוצעו על-ידי עובד מסוים לאורך פרק זמן. לחלופין, באפשרותך להשתמש בפונקציה DSum בפקד מחושב כדי להציג סכום מכירות מצטבר עבור מוצר מסוים.
תחביר
DSum ( expr , domain [, criteria] )
תחביר הפונקציה DSum מכיל את הארגומנטים הבאים:
|
ארגומנט |
תיאור |
|
expr |
נדרש. ביטוי המזהה את השדה המספרי שאת הערכים שלו ברצונך לסכם. הוא יכול להיות ביטוי מחרוזת המזהה שדה בטבלה או בשאילתה, או ביטוי המבצע חישוב בנתונים בשדה זה. ב- expr, באפשרותך לכלול את שמו של שדה בטבלה, פקד בטופס, קבוע או פונקציה. אם expr כולל פונקציה, הוא יכול להיות מוכלל או מוגדר על-ידי המשתמש, אך לא צבירה המופעלת על תחום אחר או פונקציית צבירה של SQL. |
|
domain |
נדרש. ביטוי מחרוזת המזהה את קבוצת הרשומות המהווה את התחום. הוא יכול להיות שם טבלה או שם שאילתה עבור שאילתה שאינה דורשת פרמטר. |
|
criteria |
אופציונלי. ביטוי מחרוזת המשמש להגבלת טווח הנתונים שבו מבוצעת הפונקציה DSum . לדוגמה, criteria מקביל לעתים קרובות למשפט WHERE בביטוי של SQL, ללא המילה WHERE. אם criteria מושמט, הפונקציה DSum מעריכה את expr מול התחום כולו. כל שדה הכלול בקריטריונים חייב להיות גם שדה בתחום; אחרת, הפונקציה DSum מחזירה ערך Null. |
הערות
אם אף רשומה אינה עומדת בארגומנט criteria או אם domain אינו מכיל רשומות, הפונקציה DSum מחזירה ערך Null.
בין אם אתה משתמש בפונקציה DSum במאקרו, במודול, בביטוי שאילתה או בפקד מחושב, עליך לבנות את הארגומנט criteria בקפידה כדי להבטיח שהיא תוערך כראוי.
באפשרותך להשתמש בפונקציה DSum כדי לציין קריטריונים בשורה קריטריונים של שאילתה, בשדה מחושב בביטוי שאילתה או בשורה עדכן ל של שאילתת עדכון.
הערה: באפשרותך להשתמש בפונקציה DSum או Sum בביטוי שדה מחושב שאילתת סכומים. אם אתה משתמש בפונקציה DSum , הערכים מחושבים לפני קיבוץ הנתונים. אם אתה משתמש בפונקציה Sum , הנתונים מקובצים לפני הערכה של ערכים בביטוי השדה.
ייתכן שתרצה להשתמש בפונקציה DSum כאשר עליך להציג את סכום קבוצת הערכים מתוך שדה שאינו נמצא במקור הרשומה עבור הטופס או הדוח. לדוגמה, נניח שיש לך טופס המציג מידע אודות מוצר מסוים. באפשרותך להשתמש בפונקציה DSum כדי לשמור על סכום מצטבר של מכירות מוצר זה בפקד מחושב.
עצה
אם עליך לשמור על סכום מצטבר בפקד בדוח, באפשרותך להשתמש במאפיין סכום מצטבר של פקד זה, אם השדה שעליו הוא מבוסס נכלל במקור הרשומה עבור הדוח. השתמש בפונקציה DSum כדי לשמור על סכום מצטבר בטופס.
הערה: שינויים שלא נשמרו לרשומות בתחום אינם נכללים בעת השימוש בפונקציה זו. אם ברצונך שהפונקציה DSum תתבסס על הערכים שהשתנו, תחילה עליך לשמור את השינויים על-ידי לחיצה על שמור רשומה בקבוצה רשומות בכרטיסיה בית, העברת המוקד לרשומה אחרת או באמצעות פעולת השירות Update.
דוגמאות
שימוש בפונקציה DSum בביטוי באפשרותך להשתמש בפונקציית תחום (כגון DSum) בשורה עדכן ל של שאילתת עדכון. לדוגמה, נניח שברצונך לעקוב אחר המכירות הנוכחיות לפי מוצר בטבלה Products. באפשרותך להוסיף שדה חדש בשם SalesSoFar לטבלה Products, ולהפעיל שאילתת עדכון כדי לחשב את הערכים הנכונים ולעדכן את הרשומות. לשם כך, צור שאילתה חדשה המבוססת על הטבלה Products, ובכרטיסיה עיצוב, בקבוצה סוג שאילתה, לחץ על עדכן. הוסף את השדה SalesSoFar לרשת השאילתה והקלד את הטקסט הבא בשורה עדכן ל:
DSum("[Quantity]*[UnitPrice]", "Order Details", _ "[ProductID] = "& [ProductID])בעת הפעלת השאילתה, Access מחשב את כמות המכירות הכוללת עבור כל מוצר, בהתבסס על מידע מטבלה Order Details. סכום המכירות עבור כל מוצר נוסף לטבלה Products.
שימוש ב- DSum בקוד VBA
הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
הדוגמה הבאה מסכםת את הערכים מהשדות Freight עבור הזמנות שנשלחו לבריטניה. התחום הוא טבלת הזמנות. הארגומנט criteria מגביל את ערכת הרשומות המתוצאת לאלה שעבורן ShipCountryRegion שווה לבריטניה.
Dim curX As CurrencycurX = DSum("[Freight]", "Orders", _ "[ShipCountryRegion] = 'UK'")
הדוגמה הבאה מחשבת סכום באמצעות שני קריטריונים נפרדים. שים לב כי גרשיים בודדים (') וסימני מספרים (#) נכללים בביטוי המחרוזת, כך כאשר מחרוזות משורשורות, המחרוזת ליטרל מוקפת בגרשיים בודדים והתאריך מוקף בסימני סולמית.
Dim curX As CurrencycurX = DSum("[Freight]", "Orders", _ "[ShipCountryRegion] = 'UK' AND _ [ShippedDate] > #1-1-95#")
