![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
Accessにてシステムを構築しておりますが、テーブルのデータのReplaceについて悩んでおります。
TableA
〔NO〕 〔型番〕
01 多分ABC
02 DEFGとのこと
03 HIだそうです
04 JKL
05 MNO・
この様なTableAの型番から余分な文字を削除する処理を行いたく、現在は更新クエリにてReplace関数を使用し
行っています。
Replace(Replace(Replace(Replace([型番],"多分",""),"とのこと",""),"だそうです゜",""),"・","")
↓
TableA
〔NO〕 〔型番〕
01 ABC
02 DEFG
03 HI
04 JKL
05 MNO
この「余分な文字」は現在100以上あり、今後もどんどん増えていきます。
クエリでのReplaceは見にくくメンテナンスもしづらいです。
「余分な文字」をまとめたテーブルでも作成しそれを使ってうまい事出来ないか考えていますが
アイデアが浮かびません(;_;)。
皆様のお知恵をお貸しくださいませm(_ _)m
No.2ベストアンサー
- 回答日時:
> 「余分な文字」をまとめたテーブルでも作成しそれを使ってうまい事出来ないか
そのテーブルを作れば、クエリで一発で対応できます。
(こちらの環境で動作確認済み:WinXP Home&Excel2003)
【テーブル】
「TableA」テーブル:
フィールド = No(テキスト型・主キー), 型番(テキスト型)
「削除リスト」テーブル:
フィールド = 削除文字(テキスト型・主キー)
【クエリ】
SQL文:
UPDATE TableA, 削除リスト SET TableA.型番 = Replace([型番],[削除文字],"");
添付画像は、左から
更新クエリ適用前のテーブルのデータ(予め複製)
更新クエリ適用後のテーブルのデータ
上記SQL文をクエリのデザインビューで表示したもの
です。
『削除リスト』に登録された文字パターンを複数持っている場合も含めて、問題なく
削除されることを確認しました(→No=06)。
※2つのテーブル間にフィールドの結合がない選択クエリを作成すると、そのレコードは
双方のテーブル件数の乗算となります(一方のテーブルが5件、他方が6件なら、
選択クエリは5*6=30件を表示)。
これと同じで、上記クエリを実行すると、「○○件のレコードが更新されます」の
確認メッセージでは、テーブルの実レコード数より大きくなりますのでご注意下さい。
![「Access_2002 Replace方」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/5/256939_5497e30010bfd/M.jpg)
No.1
- 回答日時:
実行頻度は多くなさそう&クエリでなくてもよさそう ということでVBAにて
(標準モジュールに記述します)
tableB の削除文字フィールドに削除する文字列が格納されているとします。
tableB の例
削除文字
多分
とのこと
だそうです
・
型番、削除文字は NULL データがないとした上での記述例:ADO使用)
Public Function myRep()
Dim rsA As New ADODB.Recordset
Dim rsB As New ADODB.Recordset
Dim sTmp As String
rsA.Open "tableA", CurrentProject.Connection, adOpenForwardOnly, adLockPessimistic
rsB.Open "tableB", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
If (Not rsB.EOF) Then
While (Not rsA.EOF)
sTmp = rsA("型番")
rsB.MoveFirst
While (Not rsB.EOF)
sTmp = Replace(sTmp, rsB("削除文字"), "")
rsB.MoveNext
Wend
rsA("型番") = sTmp
rsA.Update
rsA.MoveNext
Wend
End If
rsA.Close
rsB.Close
End Function
削除文字を登録するのは面倒だと思います。
アルファベット A ~ Z だけを残すのであれば、以下例
Public Function myRep2(sQ As Variant) As String
Dim sRet As String
Dim sTmp As String
Dim i As Long
sRet = ""
If (Not IsNull(sQ)) Then
For i = 1 To Len(sQ)
sTmp = Mid(sQ, i, 1)
If (sTmp Like "[A-Z]") Then sRet = sRet & sTmp
Next
End If
myRep2 = sRet
End Function
呼び方例
Private Sub Sample1()
MsgBox myRep2("AB漢字CDEありFG-22a2bc")
End Sub
の結果は、"ABCDEFGabc" となります。
更新クエリで使う時には
UPDATE tableA SET tableA.型番 = myRep2([型番]);
とか、
質問に目をとめてくださり感謝いたします。
大変参考になりました。
ご丁寧にコーディングしてくださり本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリで、replace関数を使い、データの中にある”をブランクに置き換えたいのですが 6 2022/06/15 14:54
- オープンソース Python openpyxlを使用したセル番地の使用について 1 2023/08/03 22:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Ruby pandasでsqlite3にテーブル作成・追加・読み出しでindexの取り扱い方教えてください 5 2023/03/08 09:57
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) 空白を全て削除したい 2 2023/05/13 21:36
- Excel(エクセル) Excelの社員名簿 6 2023/07/10 16:35
- Excel(エクセル) エクセル 関数 指定の繰り返しの回数 以降(以前)を削除するには、 2 2022/04/24 10:29
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでテーブル名やクエリ名...
-
ACCESSに同時アクセス(編集)を...
-
SQLで条件指定結合をしたいがNU...
-
デザインビューで、連結式 を...
-
Accessでテーブルからテーブル...
-
access テーブル内のレコード...
-
Accessデータベースで測定デー...
-
Accessの追加クエリで既存のテ...
-
3つの表を1つに縦に連結する
-
Accessクエリでの、LIKE条件
-
テーブル作成クエリで主キーを設定
-
ACCESSのクエリ内のテーブルが...
-
AccessでのNULLのレコードの表...
-
アクセスのデータをエクセルに...
-
2つのテーブルを比較して一致し...
-
ACCESS クエリ(カウント0の...
-
翌営業日までの日数をSQLで求め...
-
フォームの計算がテーブルに反...
-
SQL Serverでの検索時の文字の...
-
ツリー構造をRDBで表現するには?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでテーブル名やクエリ名...
-
Accessレコードの追加や変更が...
-
ACCESSに同時アクセス(編集)を...
-
access テーブル内のレコード...
-
3つの表を1つに縦に連結する
-
Accessでvlookupみたいなことは...
-
Accessの追加クエリで既存のテ...
-
Accessクエリでの、LIKE条件
-
Accessでテーブルからテーブル...
-
ツリー構造をRDBで表現するには?
-
デザインビューで、連結式 を...
-
ACCESSで指定されたテーブルか...
-
2つのテーブルを比較して一致し...
-
リンクテーブルを CopyObject ...
-
SQLで日付を条件に削除したい
-
SQLで条件指定結合をしたいがNU...
-
時間の足し算
-
パススルークエリをテーブル作...
-
INSERT時にデータ登録とmaxの発...
-
ODBCで接続するとDBに変更/追加...
おすすめ情報