Accessで宛名データを特定の条件によって振り分けしたいです。

ここに質問の内容を詳しく書いてください。

テーブルの宛名列のデータに例えば・・・
「お母さん」や「母様」が含まれていれば→「母」に変換
「お父さん」や「父上」が含まれていれば→「父」に変換
「お母さん&お父さん」が含まれていれば→「母と父」に変換
のように変換したいです。

宛名のデータの記入の仕方は自由のため、かなりのパターンがあります。
例えば、上記の例以外にも「お父ちゃんお母ちゃん」などです。

現在は、下記のような変換用の表を作成し
エクセルで関数を使用して振り分けています。
宛名データに含むキーワードが含まれていた場合は変換後キーワードに振り分ける感じです。
また、この場合表の上から順番に適応されていくようにしています。
※現在350行くらいあります。

このような事をAccessで対応する事は可能でしょうか。

行動規範の内容に同意します

回答1件

ベストアンサー

変換対応表テーブル　TReplace

ID	Fld1	Fld2
1	お母さん＆お父さん	母と父
2	パパママ	母と父
3	おかあさん＆おばあちゃん	母＆祖母
4	お母さん	母
5	お父さん	父

変換対象テーブル　TData

ID	FData
1	○○パパママ○○○
2	□お母さん□□お父さん
3	△△△おかあさん＆おばあちゃん△△
4	△△お母さん＆お父さん△

上記のようなテーブルがあるとして、下記のクエリを実行すればご希望の変換になります。

sql
1UPDATE
2 (SELECT TData.FData, TReplace.Fld1, TReplace.Fld2
3  FROM TData, TReplace
4  WHERE TData.FData Like "*" & TReplace.Fld1 & "*"
5  ORDER BY TReplace.ID DESC) AS Q
6SET Q.FData = Replace(Q.FData,Q.Fld1,Q.Fld2,1,-1,1);

クエリ実行後

ID	FData
1	○○母と父○○○
2	□母□□父
3	△△△母＆祖母△△
4	△△母と父△

参考リンク
複数の文字列置換をクエリで一気に実行する-改良版 - hatena chips

追記

コメントより

実現したかったことは、「FData」に「Fld1」が含まれていたら「Fld2」の値を返すとなります。

今回の場合だと「FData」内の文字が一部変換されてしまいました。
また、TDataテーブルにFData2(空白)のフィールドがあるとして、そこに「Fld2」の値を返せればと考えています。元のフィール「FData」は残したいです。

上記のクエリの応用です。

sql
1UPDATE
2 (SELECT TData.FData, TData.FData2, TReplace.Fld2 FROM TData, TReplace WHERE TData.FData Like "*" & TReplace.Fld1 & "*" ORDER BY TReplace.ID DESC) AS Q
3 SET Q.FData2 = Q.Fld2;

投稿2020/12/29 04:01

編集2021/01/05 05:47

hatena19

総合スコア34075

yii

2020/12/31 01:20

ご回答ありがとうございます！ SQLを実行したところ、FROM句の構文エラーが発生してしまいました、原因わかりますでしょうか。

hatena19

2020/12/31 02:31

提示のSQLでエラーなく実行できることをサンプルで確認済みです。全角空白か含まれていないかとか、SQL文をご確認ください。それでも分からない場合、実際に記述したSQLを質問文に追記してもらえますか。

yii

2021/01/05 05:18

再度見直したところクエリ実行できました。失礼いたしました。ただ、意図していた結果と異なっており、再度質問させて頂きたいです。 ※質問の仕方が悪かったです。実現したかったことは、「FData」に「Fld1」が含まれていたら「Fld2」の値を返すとなります。今回の場合だと「FData」内の文字が一部変換されてしまいました。また、TDataテーブルにFData2(空白)のフィールドがあるとして、そこに「Fld2」の値を返せればと考えています。元のフィール「FData」は残したいです。当初の質問と変わってしまい申し訳ありませんが、よろしくお願いいたします。

hatena19

2021/01/05 05:47

回答に追記しましたのでご参照ください。

yii

2021/01/05 07:36

ありがとうございます、対応することができました。ちなみに[Fld1]が含まれない場合は[FData2]に”その他”という文字を入力したいのですが、こちらもご教授いただく事は可能でしょうか、何度もすみません。また、FROM旬のエラーですが、TDataの実際のテーブル名に（）を使用しておりテーブル名から（）を外したところエラーが出なくなりました。 SQLではテーブル名に（）は使用できないのでしょうか。

hatena19

2021/01/05 10:19

下記の更新クエリを実行して、いったんすべてのレコードを"その他"にしてから、回答の更新クエリを実行すればいいでしょう。 UPDATE TData SET TData.FData2 = "その他"; テーブル名の()が含まれている場合は[]で囲めばOKです。 [テーブル名()]

yii

2021/01/05 11:33

ありがとうございます。実は「FData」に関しては空白もありまして、空白の場合は空白のままにしたいと思っています。。また、下記の記述は、前回頂いたSQLの上に記述する形でしょうか。 SQLについてほぼ知識がないため、見当違いの質問かもしれませんが・・・ UPDATE TData SET TData.FData2 = "その他"; よろしくお願いいたします。

hatena19

2021/01/05 11:40

SQLは、クエリをSQLビューにして、そこに記述すればOKです。「FData」が空白(Null Or "")のときは、.FData2を "" にするには、SQLを下記にしてください。 UPDATE TData SET TData.FData2 = IIf(Nz(FData,"")="","","その他";

yii

2021/01/06 02:54

ありがとうございます。下記のSQLですが、構文エラー（IIf(Nz(FData,"")="","","その他";）がでてしまいました。記述内容は同一です。 UPDATE TData SET TData.FData2 = IIf(Nz(FData,"")="","","その他";

hatena19

2021/01/06 02:58

あっ、すみません。SQLを下記に修正してください。 UPDATE TData SET TData.FData2 = IIf(Nz(TData.FData,"")="","","その他");

yii

2021/01/06 03:08

できました！ありがとうございます。ベストアンサーいたします。ちなみに今回追加のクエリは下記のように一つのクエリとしてまとめることはできないのでしょうか。ーーーーーーーーーーーーーーーーー UPDATE TData SET TData.FData2 = IIf(Nz(TData.FData,"")="","","その他"); UPDATE (SELECT TData.FData, TData.FData2, TReplace.Fld2 FROM TData, TReplace WHERE TData.FData Like "*" & TReplace.Fld1 & "*" ORDER BY TReplace.ID DESC) AS Q SET Q.FData2 = Q.Fld2; ーーーーーーーーーーーーーーーーー

行動規範の内容に同意します