Code to add a field on equalling a value

[knighty03]

I want to obtain code whereby if the quantity field is not a whole number e.g. 2.4, 4.8, etc. then it will round up the number to the next highest whole number e.g. 2.1 would become 3. I would be grateful if anyone can help.

 

[VBslammer]

Function RoundUp(ByVal varNumber As Variant) As Variant
  If IsNumeric(varNumber) Then
    If varNumber = Int(varNumber) Then
      RoundUp = Int(varNumber)
    Else
      RoundUp = Int(varNumber) + 1
    End If
  End If
End Function

VBSlammer

Unemployed in Houston, Texas

 

[PaulBricker]

You can put this expression directly in the query on the Field line.

MyRoundedField:-1 * Int(-1*[NumberField])

Paul