running sum in query

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How do i can the category id and units in stock to Sales-Q
and PRODCD-Q

Option Compare Database
Option Explicit

Function fncRunSum(lngCatID As Long, lngUnits As Long) As
Long
'Variables that retain their values.
Static lngID As Long
Static lngAmt As Long

If lngID <> lngCatID Then
'If the current ID does not match the last ID,
then (re)initialize.
lngID = lngCatID
lngAmt = lngUnits
Else
'If the current ID matches the last, keep a
running sum for the ID.
lngAmt = lngAmt + lngUnits
End If

'Pass the running sum back to the query.
fncRunSum = lngAmt
End Function
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

new access need helps with run sum query 1
run sum 3
Running Sum 2
Rolling / Running Totals 1
Run Time Error 91 in Thisworkbook 3
You must use the dbSeeChanges option with Open Recordset whenaccessing a SQL Server table that has a 1
SUM in a UNION query 2
strMail Query! 1

Back
Top