dim SQL as String
dim rs As Recordset
'整数桁1桁で四捨五入
SQL = "SELECT FIX((数値フィールド+5)/10)*10 FROM テーブル名"
'整数桁2桁で四捨五入
SQL = "SELECT FIX((数値フィールド+5)/100)*100 FROM テーブル名"
Set rs = CurrentDb.OpenRecordset(SQL)
整数桁1桁の場合
1）5を加算
2)10で除算
3）FIX関数で整数部を取り出す
4）10で乗算
整数桁1桁の使用結果：
12.1 は 10
28 は 30
578 は 580
-456 は -450
整数桁2桁の使用結果：
12.1 は 0
28 は 0
578 は 500
-456 は -400