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