項目名を英字→日本語表記にする

Question

AccessVBAの質問です。

以下のような英字を…
①Red,apple,A
②Blue,Aqua,B
以下のように置換したいです。
①赤
②青

コントロールソース(色分類というテキストボックス)
にて、replace関数などを用いて置換しようとしているのですが、複数条件のやり方が分かりません。

それとも英字と日本語のテーブルを作成して置換するようなロジックを作った方が簡単でしょうか。

どちらかのやり方で構わないのでご協力お願いします。

Comments

[xail2222]

変換ルールがよくわからないのですが、
Red→赤、apple→赤、A→赤
Blue→青、Aqua→青、B→青
ということですか？

また、変換元の文字列は「This is a red pen」と言った文章ですか？
それとも「red」、「A」というように単語ですか？

[asuka.Mir]

ご連絡ありがとうございます。
変換ルールは単語です。

Red→赤、apple→赤、A→赤
Blue→青、Aqua→青、B→青
というご認識の通りでございます。

[xail2222]

すみません、追加で質問です。
データベースの属性をVBAにて一括で更新、もしくは別フィールドに色を登録するのが目的ですか？
それとも、何か別の入力（画面からの入力？）を置換するのでしょうか？

とりあえず、今私が思うやり方としては二通りで
「英字と日本語のテーブルを作成」して、Update文で更新するだけの方法と
Dictionaryに英字と日本語の対応をセットして、それで変換する方法です。

[asuka.Mir]

ご連絡ありがとうございます。
SELECTされたものをレポートの特定のフォームに表示する際に色として登録するのが目的です。

[hatena19]

「レポートの特定のフォーム」というのが意味不明です。レポートにはフォームはありません。
「レポートの特定のテキストボックス」という意味なら意味が通じます。
もしそうなら、レポート出力するときに、「Red,apple,A」という値を「赤」と変換してテキストボックスに表示したいということでしょうか。

[asuka.Mir]

「Red,apple,A」という値を「赤」と変換してテキストボックスに表示したいということでしょうか。
→すみません、その通りでございます

[hatena19]

回答に追記しました。
あと、
質問は編集できますので、上記の内容を質問に追記してください。

Answer 1

Access - accessの別テーブルの情報を利用して、文字列の一部を置換又は削除する｜teratail
とよく似た内容ですので参考になると思います。
更新クエリで一気に変換する方法です。

上記をみて分からないなら、現状のテーブル名、フィールド名を提示してください。

---

上記の回答は質問と合致してないかも。
テーブルの値を変換するのではなく、レポートに出力するときに「Red,apple,A」という値を「赤」と変換して表示したいということかな。
だとしたら、下記のようなテーブルがあったとして、

テーブル名「色置換」

英字	色
Red,apple,A	赤
Blue,Aqua,B	青

レポートのテキストボックスのコントロールソースを下記のように設定すればいいでしょう。

=DLookup("色","色置換","英字='" & [置換したいフィールド名] & "'")

Comments

[asuka.Mir]

ご連絡ありがとうございます。
以下の通りです。
テーブル名「色置換」
フィールド名(英字と色の2つ)
「英字」カラム
Red、apple、A、
Blue、Aqua、B
「色」カラム
Red、apple、A → 赤
Blue、Aqua、B →青

となっております。

[hatena19]

置換するデータの入っているテーブル名と、フィールド名、データ例も提示してください。

[asuka.Mir]

テーブル名「英字テーブル」
フィールド名(英字とIDの2つ)
「英字」カラム
()はIDカラムの値です
Red(IDは1)、apple(2)、A(3)、
Blue(4)、Aqua(5)、B(6)

[asuka.Mir]

ありがとうございます。
=DLookup("色","色置換","英字='" & [置換したいフィールド名] & "'")
こちらで無事達成できました。