Salve a tutti,
avrei necessità di arrotondare un campo con finale in "90" in un campo di una tabella di access, al momento sono riuscito grazie a consigli ricevuti sul forum a farlo in excel, utilizzando la macro di seguito inserita, qualcuno può aiutarmi a fare la stessa cosa in access.
Grazie
Option Explicit
Sub arrotonda()
Dim ur As Long, i As Long
Dim a, b
ur = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ur
a = Int(Cells(i, 22).Value)
If Val(Right(a, 2)) <= 90 Then
b = Left(a, Len(a) - 2) & "90"
ElseIf Val(Right(a, 2)) > 90 Then
b = Val(Left(a, Len(a) - 2)) + 1 & "90"
End If
Cells(i, 22) = b
Next i
End Sub