Hallo Franken126,

Welkom op Oplossing.be 

In Excel zou ik de formule =INTEGER(A1) in A2 zetten. Maar dit rond af naar beneden.
Dus zou =INTEGER(A1)+1 het moeten doen.

Geholpen?

SoftAid              

Hallo Jack,

heel eerlijk, ik heb nog nooit een werkblad in Access opengedaan 

De formule =INTEGER(waarde) voor Excel is in Access 2013 : =INT(nummer)
Maar met hoe het te gebruiken in een database, daar kan ik je niet helpen, vrees ik.

Er zitten hier knappe koppen voor Access, die merken je vraag onmiddellijk op.

Succes,

SoftAid              

Toch formule gevonden

 INT(x)+1

Maar helaas hele getalen wordt er ook een bijgeteld 3.23=4 _ 3.88=4 maar 4 wordt 5.

Nou volgens mij al gevonden .

Expr2: IIf([Field1]-Int([Field1])=0,Int([Field1]),Int([Field1])+1)

Werkt volgens mij

toch bedankt

Franken126,

Met onderstaande code kan je afronden. Je bepaalt zelf tot hoeveel digits achter de komma dient af te ronden.

' ********** Code Start **************
'This code was originally written by Dev Ashish
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code Courtesy of
'Dev Ashish
'
Public Function Round(ByVal Number As Variant, NumDigits As Long, Optional UseBankersRounding As Boolean = False) As Double
'
' ---------------------------------------------------
' From "Visual Basic Language Developer's Handbook"
' by Ken Getz and Mike Gilbert
' Copyright 2000; Sybex, Inc. All rights reserved.
' ---------------------------------------------------
'
  Dim dblPower As Double
  Dim varTemp As Variant
  Dim intSgn As Integer

  If Not IsNumeric(Number) Then
    ' Raise an error indicating that
    ' you've supplied an invalid parameter.
    Err.Raise 5
  End If
  dblPower = 10 ^ NumDigits
  ' Is this a negative number, or not?
  ' intSgn will contain -1, 0, or 1.
  intSgn = Sgn(Number)
  Number = Abs(Number)

  ' Do the major calculation.
  varTemp = CDec(Number) * dblPower + 0.5
 
  ' Now round to nearest even, if necessary.
  If UseBankersRounding Then
    If Int(varTemp) = varTemp Then
      ' You could also use:
      ' varTemp = varTemp + (varTemp Mod 2 = 1)
      ' instead of the next If ...Then statement,
      ' but I hate counting on TRue == -1 in code.
      If varTemp Mod 2 = 1 Then
        varTemp = varTemp - 1
      End If
    End If
  End If
  ' Finish the calculation.
  Round = intSgn * Int(varTemp) / dblPower
End Function
' ********** Code End **************

Vriendelijke groeten Diezel