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