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件を表示)。
これと同じで、上記クエリを実行すると、「○○件のレコードが更新されます」の
確認メッセージでは、テーブルの実レコード数より大きくなりますのでご注意下さい。
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でテーブル名やクエリ名...
-
Accessで、複数のテーブルで随...
-
パススルークエリをテーブル作...
-
アクセスで消し込みがしたい
-
Accessの追加クエリで既存のテ...
-
Accessクエリでの、LIKE条件
-
ツリー構造をRDBで表現するには?
-
SQLで条件指定結合をしたいがNU...
-
テーブル作成クエリで主キーを設定
-
ACCESSで指定されたテーブルか...
-
Access 複数テーブルのレコー...
-
ACCESS;フォーマットの...
-
SQLのクエリの書き方を教えて下...
-
access テーブル内のレコード...
-
SQL文(アクセスで使用)
-
テーブルAにテーブルBのレコー...
-
ACCESS クエリ(カウント0の...
-
リンクテーブルを CopyObject ...
-
アクセスでの簡易入力、および...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでテーブル名やクエリ名...
-
ACCESSに同時アクセス(編集)を...
-
Accessクエリでの、LIKE条件
-
Accessでテーブルからテーブル...
-
access テーブル内のレコード...
-
デザインビューで、連結式 を...
-
2つのテーブルを比較して一致し...
-
3つの表を1つに縦に連結する
-
ACCESSで指定されたテーブルか...
-
Accessレコードの追加や変更が...
-
Accessの追加クエリで既存のテ...
-
Accessでvlookupみたいなことは...
-
SQLで条件指定結合をしたいがNU...
-
ツリー構造をRDBで表現するには?
-
SQLで日付を条件に削除したい
-
リンクテーブルを CopyObject ...
-
Accessのサブフォームで#Name...
-
時間の足し算
-
INSERT時にデータ登録とmaxの発...
-
SQL: SELECT UNIONすると文字数...
おすすめ情報