dim SQL as String
dim rs As Recordset
'小数点以下1桁で切り上げ
SQL = "SELECT FIX(数値フィールド+0.9) FROM テーブル名"
'小数点以下2桁で切り上げ
SQL = "SELECT FIX((数値フィールド+0.09)*10)/10 FROM テーブル名"
'小数点以下3桁で切り上げ
SQL = "SELECT FIX((数値フィールド+0.009)*100)/100 FROM テーブル名"
Set rs = CurrentDb.OpenRecordset(SQL)
小数点以下2桁の場合
1)0.09を足す
2）10倍する
3）FIX関数で整数部を取り出す
4）10で割ります
小数点以下1桁の使用結果：
1.2 は 2
2.8 は 3
-5.78 は -4
10.4195 は 11
20.981 は 21
小数点以下2桁の使用結果：
1.2 は 1.2
2.8 は 2.8
-5.78 は -5.6
10.4195 は 10.5
20.981 は 21
小数点以下3桁の使用結果：
1.2 は 1.2
2.8 は 2.8
-5.78 は -5.77
10.4195 は 10.42
20.981 は 20.99