SQL Format関数使用例：小数の書式

Format関数使用例サンプルソフト

SQL = " SELECT Format(数値フィールド名 , 書式) FROM テーブル名 "
例： format(7,'000.00') の場合: 007.00
例： format(7.7127,'000.00') の場合: 007.71

2番目の引数の書式で指定します。

Home　

SQL Tips

サンプルソフト
フィールドを指定すると分かりにくいので、直接数値を設定しています。

■実行画面
「Format関数使用例：小数の書式」ボタンをクリックすると、3種類の使用結果を表示します。
1番目：小数点以下の桁数の指定
2番目： 3桁ごとに区切り記号を付ける
3番目：％表示
Formatフォーム

［コード］

Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    SQL = "SELECT Format(54321.1234,'0.0') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(54321.1234,'0.0'): " & rs(0) & vbCrLf
    SQL = "SELECT Format(54321.1234,'#,##0.00') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(54321.1234,'#,##0.00'): " & rs(0) & vbCrLf
    SQL = "SELECT Format(0.54321,'0.00%') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(0.54321,'0.00%'): " & rs(0) & vbCrLf
    Set rs = Nothing

End Sub

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

Home　

SQL Tips

SQL Format関数使用例： 小数の書式

Format関数使用例サンプルソフト

SQL Format関数使用例：小数の書式