How do I round a number upwards in a query?

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

Guest

I'm running a query that is returning a number which I would like to round to
the nearest 10, nearest 100, or nearest 1000.
 
Benny said:
I'm running a query that is returning a number which I would like to round to
the nearest 10, nearest 100, or nearest 1000.
Click to expand...

Try this:

Public Function RndUpN(varIn As Variant, n As Variant) As Long
' Rounds anything up to increments of n
' Converts Nulls, Text, and Negative values to 0
' Arvin Meyer 9/17/1998
On Error Resume Next
If IsNumeric(varIn) Then
RndUpN = varIn \ n
RndUpN = RndUpN * n
If (varIn Mod n) > 0 Then
RndUpN = RndUpN + n
End If
Else
RndUpN = 0
End If
End Function
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access
 
Thanks very much for your help.

I'm pretty new to the Access program.

Where and how do I input the Public Function

Does it go into a query or into the SQL view or the onevent

Regards,

benny
 
Thanks very much for your help.

I'm pretty new to the Access program.

Where and how do I input the Public Function

Does it go into a query or into the SQL view or the onevent
Click to expand...

Put it into a Module; save the module with some name OTHER than the
name of the function (basRound maybe). You can then call the function
from a Query or in the control source of a textbox on a form or
report.

John W. Vinson[MVP]
 
Back
Top