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

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

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

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

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

スポンサーリンク




BackHomeへ BackSQL Tipsへ

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

在庫ID 製品名 型番 在庫数
1 ナショナルレンジ700W R-4545 150
2 液晶32V型 etyu-bbi 220
3 50HZ専用レンジ NNE-gyu
4 省エネ 電気ポット RXYU-Pwwx 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

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

スポンサーリンク




BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft