AccessのVBAでSQLのFormat関数を使い英字を小文字・大文字に変換｜フォーム実行例

■小文字に変換
SQL = " SELECT Format(英字フィールド名 , '<') FROM テーブル名 "

■大文字に変換
SQL = " SELECT Format(英字フィールド名 , '>') FROM テーブル名 "

2番目の引数を'<'にすると小文字に、'>'にすると大文字に変換します。
［コード］
Option Compare Database

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

    Me!テキスト1 = Me!テキスト1 & vbCrLf

    SQL = "SELECT 型番,Format(型番, '>') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & " :　" & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

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