Option Compare Database
Option Explicit

Private Sub Report_Close()
DoCmd.ShowToolbar "Datenbank", acToolbarNo
End Sub

Private Sub Report_Open(Cancel As Integer)
DoCmd.ShowToolbar "Datenbank", acToolbarYes
End Sub

Public Function Runden(value1 As Double, digits As Integer) As Double

Dim temp1 As Double

temp1 = value1 * (10 ^ digits)

If (temp1 * 10) Mod 10 = 5 Then
 temp1 = temp1 + 1
 temp1 = Fix(temp1)
 temp1 = temp1 / (10 ^ digits)
 Runden = temp1
Else
 Runden = CLng(value1 * (10 ^ digits)) / (10 ^ digits)
End If

End Function