SQL Format関数使用例: 指定桁を0で埋める

Format関数使用例サンプル

例: SQL = " SELECT Format(数値フィールド名 , '0・・・') FROM テーブル名 "
例: SQL = " SELECT Format(数値フィールド名 , '0・・・') AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)

2番目の引数の0の数で桁数を指定します。
小数は四捨五入されます。

スポンサーリンク




BackHomeへ BackSQL Tipsへ

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

■実行画面
11種類の使用結果を表示します。

スポンサーリンク



[コード]
Option Compare Database

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

    SQL = "SELECT Format(8.33,'0') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(8.33,'0'): " & rs(0) & vbCrLf
    Set rs = Nothing

    SQL = "SELECT Format(80,'0') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(80,'0'): " & rs(0) & vbCrLf
    Set rs = Nothing

    SQL = "SELECT Format(80.33,'0') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(80.33,'0'): " & rs(0) & vbCrLf
    Set rs = Nothing

    SQL = "SELECT Format(800,'0') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(800,'0'): " & rs(0) & vbCrLf
    Set rs = Nothing

    SQL = "SELECT Format(8,'00000') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(8,'00000'): " & rs(0) & vbCrLf
    Set rs = Nothing

    SQL = "SELECT Format(8.33,'00000') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(8.33,'00000'): " & rs(0) & vbCrLf
    Set rs = Nothing

    SQL = "SELECT Format(80,'00000') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(80,'00000'): " & rs(0) & vbCrLf
    Set rs = Nothing

    SQL = "SELECT Format(80.33,'00000') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(80.33,'00000'): " & rs(0) & vbCrLf
    Set rs = Nothing

    SQL = "SELECT Format(800,'00000') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(800,'00000'): " & rs(0) & vbCrLf
    Set rs = Nothing

    SQL = "SELECT Format(800.93,'00000') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(800.93,'00000'): " & rs(0) & vbCrLf
    Set rs = Nothing
End Sub

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

スポンサーリンク




BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft