| スポンサードリンク |
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 」になります。
|
|
サンプルソフト
［実行時の画面］
「四捨五入する ROUND関数」ボタンをクリックすると、
元の含有量と含有量を小数点以下第2位で四捨五入した結果を表示します。
■実行画面
［アクセス テーブル］
アクセスID 含有量
10 500.15
11 481.77
13 652.83
16 503.31
17 400.04
18 450.98
［コード］
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
|
|
ダウンロード