Dari Help.
DSum Function
You can use the DSum functions to calculate the sum of a set of values in a
specified set of records (a domain
<mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1033\vbaac10.chm::
/html/acfctDSum.htm##> ). Use the DSum function in Visual Basic, a macro
<mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1033\vbaac10.chm::
/html/acfctDSum.htm##> , a query expression, or a calculated control
<mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1033\vbaac10.chm::
/html/acfctDSum.htm##> .
For example, you could use the DSum function in a calculated field expression in
a query to calculate the total sales made by a particular employee over a period
of time. Or you could use the DSum function in a calculated control to display a
running sum of sales for a particular product.
DSum(expr, domain, [criteria])
The DSum function has the following arguments.
Argument
Description
expr
An expression that identifies the numeric field whose values you want to total.
It can be a string expression
<mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1033\vbaac10.chm::
/html/acfctDSum.htm##> identifying a field in a table or query, or it can be an
expression that performs a calculation on data in that field
<mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1033\vbaac10.chm::
/html/achowFieldCalcDomain.htm> . In expr, you can include the name of a field
in a table, a control on a form, a constant, or a function. If expr includes a
function, it can be either built-in or user-defined, but not another domain
aggregate or SQL aggregate function.
domain
A string expression identifying the set of records that constitutes the domain.
It can be a table name or a query name for a query that does not require a
parameter.
criteria
An optional string expression used to restrict the range of data on which the
DSum function is performed. For example, criteria is often equivalent to the
WHERE clause in an SQL expression, without the word WHERE. If criteria is
omitted, the DSum function evaluates expr against the entire domain. Any field
that is included in criteria must also be a field in domain; otherwise, the DSum
function returns a
<mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1033\vbaac10.chm::
/html/acfctDSum.htm##> Null.
Remarks
If no record satisfies the criteria argument or if domain contains no records,
the DSum function returns a Null.
Whether you use the DSum function in a macro, module, query expression, or
calculated control, you must construct the criteria argument carefully to ensure
that it will be evaluated correctly.
You can use the DSum function to specify criteria in the Criteria row of a
query, in a calculated field in a query expression, or in the Update To row of
an update query
<mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1033\vbaac10.chm::
/html/acfctDSum.htm##> .
Note You can use either the DSum or Sum function in a calculated field
expression in a totals query
<mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1033\vbaac10.chm::
/html/acfctDSum.htm##> . If you use the DSum function, values are calculated
before data is grouped. If you use the Sum function, the data is grouped before
values in the field expression are evaluated.
You may want to use the DSum function when you need to display the sum of a set
of values from a field that is not in the record source for your form or report.
For example, suppose you have a form that displays information about a
particular product. You could use the DSum function to maintain a running total
of sales of that product in a calculated control.
If you need to maintain a running total in a control on a report, you can use
the
<mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1033\vbaac10.chm::
/html/acproRunningSum.htm> RunningSum property of that control if the field on
which it is based is included in the record source for the report. Use the DSum
function to maintain a running sum on a form.
Note Unsaved changes to records in domain aren't included when you use this
function. If you want the DSum function to be based on the changed values, you
must first save the changes by clicking Save Record on the Records menu, moving
the focus to another record, or by using the Update method.
Example
The following example totals the values from the Freight field for orders
shipped to the United Kingdom. The domain is an Orders table. The criteria
argument restricts the resulting set of records to those for which ShipCountry
equals UK.
Dim curX As Currency
curX = DSum("[Freight]", "Orders", "[ShipCountry] = 'UK'")
The next example calculates a total by using two separate criteria. Note that
single quotation marks (') and number signs (#) are included in the string
expression, so that when the strings are concatenated, the string literal will
be enclosed in single quotation marks, and the date will be enclosed in number
signs.
Dim curX As Currency
curX = DSum("[Freight]", "Orders", _
"[ShipCountry] = 'UK' AND [ShippedDate] > #1-1-95#")
You can use a domain function in the Update To row of an update query. For
example, suppose you want to track current sales by product in a Products table.
You could add a new field called SalesSoFar to the Products table, and run an
update query to calculate the correct values and update the records. Create a
new query based on the Products table, and click Update on the Query menu. Add
the SalesSoFar field to the query grid, and enter the following in the Update To
row:
DSum("[Quantity]*[UnitPrice]", "Order Details", "[ProductID] = " _
& [ProductID])
When the query is run, Microsoft Access calculates the total amount of sales for
each product, based on information from an Order Details table. The sum of sales
for each product is added to the Products table.
_____
From: [email protected] [mailto:[email protected]] On
Behalf Of Masyruchi Se
Sent: Wednesday, November 04, 2009 11:12
To: [email protected]
Subject: [belajar-access] Logika Rumus Dsum
Temen-temen bisa bantu mencerna rumus dsum?
logika dari rumus itu gmn to?
kalo bisa sekalian contohnya.
terimakasih
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.698 / Virus Database: 270.14.47/2478 - Release Date: 11/03/09
14:36:00
