AccessのVBAでSQLのFIX関数を使い指定した小数桁で切り上げる｜フォーム実行例

切捨てと同様に、FIX関数を使用し切り上げを行います。

例えば、小数点以下2桁の場合は下の流れになります。
1) 数値に0.09を加算します
2） 10倍します
3） FIX関数を使い、整数部を取り出します
4） 10で割ります
これで切り上げができます。

■コード
Option Compare Database

'小数点以下2桁
Private Sub コマンド62_Click()
    Dim SQL As String
    Dim rs As Recordset
    Dim i As Long
            SQL = "SELECT 重量,FIX((重量+0.09)*10)/10  FROM M_製品マスター"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & "： " & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing

End Sub

'小数点以下3桁
Private Sub コマンド63_Click()
    Dim SQL As String
    Dim rs As Recordset
    Dim i As Long
            SQL = "SELECT 重量,FIX((重量+0.009)*100)/100 FROM M_製品マスター"

    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & "： " & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing

End Sub

'小数点以下1桁
Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Dim i As Long
            SQL = "SELECT 重量,FIX(重量+0.9) FROM M_製品マスター"

    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & "： " & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード