use SUM in sql statement : SQL Select « Access « VBA / Excel / Access / Word

use SUM in sql statement


Private Sub RunningSumSQL()
    Dim db As Database
    Set db = CurrentDb
    Dim qry As QueryDef
    Dim sSQL As String
    On Error Resume Next
    db.QueryDefs.Delete "temp"
    On Error GoTo 0
    sSQL = "SELECT R1.Event,(SELECT SUM(R2.Duration) FROM Running As R2 WHERE R2.Event < R1.Event) AS StartTime FROM Running As R1"
    Set qry = db.CreateQueryDef("temp", sSQL)
    DoCmd.OpenQuery qry.Name
End Sub


Related examples in the same category

1.Using Date field type in select statement
2.You must use a pound symbol (#) when delimiting dates for Microsoft Access, like this:
3.Loop through the ResultSet after executing select statement
4.Creating a Select Query with ActiveX Data Objects
5.Executing a Select Query
6.Modifying a Select Query
7.Get only one column
8.Get more than one column
9.Select all columns
10.Use IN in select statement
11.Use IN and like in where clause
12.Use Date function in where clause
13.Use between and with number type column
14.Use Is NULL to check if a column is null
15.Use Not In
16.Use Between And
17.Use 'Is not null'
18.Use 'Select all'
19.Order the resultset with Order by clause
20.Get DISTINCT records
22.Get the top 5 percent
23.Get the top 10 percent
24.Order record in a decscending order
25.Add where clause to the select statement
26.Use and to combine conditions
27.Use wild card character in link
28.Use where clause and order by clause together
29.Order by two fields