AccessのVBAでSQLのROUND関数を使い四捨五入する｜フォーム実行例

SQL = " SELECT ROUND(フィールド名,小数点以下の桁数) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
ROUNDは四捨五入の結果を返します。

例: SQL = " SELECT ROUND( 含有量 , 2 ) AS 含有量小数2位 FROM 調査結果 "
調査結果テーブルの含有量フィールドの小数第3位を四捨五入した値を取得します。
取得値は含有量小数2位の名前になります。
フィールド値「 100.123 , 200.255 , 300.5688 」の重量で実行した場合、「 100.12 , 200.26 , 300.57 」になります。

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = "含有量" & vbCrLf
    Me!テキスト2 = "四捨五入" & vbCrLf
    SQL = "SELECT 含有量,ROUND(含有量,1) FROM 環境調査"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & vbCrLf
        Me!テキスト2 = Me!テキスト2 & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

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