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

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

2番目の引数の0の数で桁数を指定します。
小数は四捨五入されます。
［コード］
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

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