AccessのVBAでSQLのREPLACE関数を使い指定した文字列を置き換える｜フォーム実行例
指定した文字列を置き換える関数 REPLACE関数
例： SQL = " SELECT REPLACE(フィールド名) FROM テーブル名 "
例： SQL = " SELECT REPLACE(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
指定したフィールド内データの文字列を一括して置換えできます。
［コード］
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
サンプルソフトのダウンロード
例： SQL = " SELECT REPLACE(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
指定したフィールド内データの文字列を一括して置換えできます。
サンプルソフト
［実行時の画面］
「指定した文字列を置き換える関数 REPLACE関数」ボタンをクリックすると、
在庫管理データベーステーブルの製品名の「レンジ」を「電子レンジ」に変換し表示します。
■実行画面
「ナショナルレンジ700W」 結果 「ナショナル電子レンジ700W」
「液晶32V型」 結果 「液晶32V型」
「50HZ専用レンジ」 結果 「50HZ専用電子レンジ」
［在庫管理テーブル］
［実行時の画面］
「指定した文字列を置き換える関数 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
サンプルソフトのダウンロード
Home 
SQL TipsCopyright(C) FeedSoft