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

Format関数で英字を小文字・大文字に変換するサンプル

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

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

2番目の引数を'<'にすると小文字に、'>'にすると大文字に変換します。

Home　

SQL Tips

サンプルソフト
■実行画面
最初は小文字に変換し、次に大文字に変換しています。
全角文字も全角の小文字、大文字に変換されています。
Formatサンプルソフト

在庫ID　製品名　型番　在庫数
1　ナショナルレンジ700W R-4545　150
2　液晶32V型　etyu-bbi　220
3　50HZ専用レンジ　NNE-gyu
4　省エネ　電気ポット　ＲＸＹＵ-Pｗｗｘ　5
在庫管理テーブル

［コード］
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

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

Home　

SQL Tips