adding numbers in order quickly

[macleod409]

I have to add from 1 - 1999 faster then typing each number in a field. I know how to do it in excel, cant remeber how to do it in access.

 

[sfreeman@co.mer]

If I understand your question, this function will do that...

Public Function CountIt()
Dim i, c As Long

c = 0

For i = 1 To 1999
c = c + i
Debug.Print c
Next i

End Function

 

[jgc31]

Or assuming that the numbers are consecutive and integers


Dim intStartNumber, intEndNumber, intLastNumber, intResult as integer

intStartNumber = some input say 1

intEndNumber = some input say 1999

intLastNumber = Right("intEndNumber",1)

if intLastNumber Mod 2 = 1 then ' checks last digit odd or even

' odd
intResult = ( (intStartNumber + intEndNumber) * ( ( intEndNumber -1 )/2 ) ) + ( ( intEndNumber + 1 )/2 )

Else
' even
intResult = (intStartNumber + intEndNumber) * (intEndNumber/2)

End if


This will only give the total but would be much quicker than running a loop.

 

[Mile-O]

Or assuming that the numbers are consecutive and integers

Dim intStartNumber, intEndNumber, intLastNumber, intResult as integer

You have dimensioned three Variants and one Integer here.

Dim intStartNumber As Integer, intEndNumber As Integer
Dim intLastNumber As Integer, intResult As Integer

 

[Mile-O]

I have to add from 1 - 1999 faster then typing each number in a field. I know how to do it in excel, cant remeber how to do it in access.

But why? You are not using Excel but it sounds as if you are wanting to use Access as if it is Excel - a mistake many people make.