Re: Need help on a Query Calculation

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: John Spencer <spencer@xxxxxxxxxx>
Date: Wed, 16 Jul 2008 19:40:27 -0400

Perhaps this VBA function will do what you want.

Public Function fGetTotal(Lbase As Long, Ltop As Long, Llevel As Long)
Dim Lsum As Long
Dim iLoop As Long

For iLoop = Lbase To Ltop Step Llevel
Lsum = Lsum + iLoop
Next iLoop

Lsum = 2 * Lsum - Ltop
fGetTotal = Lsum

End Function
.

Prev by Date: Re: Limit query to one result
Next by Date: Re: Hard to explain - multiple update fields query...
Previous by thread: Re: Executing a make-table query using multiple primary keys
Next by thread: Re: Help with a query
Index(es):
- Date
- Thread

Relevant Pages

RE: Counting mixed chains of numbers and letters
... Dim i as Long, s as String ... Dim lsum as Long, cell as range ...
(microsoft.public.excel.programming)
Re: Word 2003 Template issues
... Doug Robbins - Word MVP ... > Private Sub CommandButton0_Click ... > Dim lSum As Long ' sum ...
(microsoft.public.word.vba.customization)
Re: change from message box to result in cell
... Sub Sumcharacters() ... Dim i As Long, s As String ... Dim lsum As Long ...
(microsoft.public.excel.programming)
Re: change from message box to result in cell
... Dim i As Long, s As String ... Dim lsum As Long ... Instead of the sum showing up in a message box, I'd like the sum to show up ...
(microsoft.public.excel.programming)