AccessのVBAでSQLのREPLACE関数を使い指定した文字列を置き換える

例： SQL = " SELECT REPLACE(フィールド名) FROM テーブル名 "
例： SQL = " SELECT REPLACE(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)

指定したフィールド内データの文字列を一括して置換えできます。

Homeへ　

SQL Tipsへ

サンプルソフト
［実行時の画面］
「指定した文字列を置き換える関数　REPLACE関数」ボタンをクリックすると、
在庫管理データベーステーブルの製品名の「レンジ」を「電子レンジ」に変換し表示します。

■実行画面
「ナショナルレンジ700W」結果「ナショナル電子レンジ700W」
「液晶32V型」結果「液晶32V型」
「50HZ専用レンジ」結果「50HZ専用電子レンジ」
文字列置換えフォーム

［在庫管理テーブル］

在庫ID	製品名	型番	在庫数
1	ナショナルレンジ700W	R-4545	150
2	液晶32V型	DD-32	220
3	50HZ専用レンジ	NNE-5656	30

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    SQL = "SELECT 製品名,REPLACE(製品名,'レンジ','電子レンジ') 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

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

AccessのVBAでSQLのREPLACE関数を使い指定した文字列を置き換える｜フォーム実行例

指定した文字列を置き換える関数 REPLACE関数

指定した文字列を置き換える関数　REPLACE関数