アクセス2000 テキスト＆テキスト

質問

初心者です。win2000でaccess2000使っております。
わかりにくい質問ですが、ご了承下さい。

見積書でテーブルからフォームで編集用、レポートで印刷
という流れにしています。
今回必要なテーブルのフィールドでは会社名と御中、顧客名
でそれぞれ「会社名：フォームで手入力」「御中：自動で入力」
「顧客名：会社名の後ろに御中を足す」という形にしたいのです。

まずわからないのが、これをフォームで動かせばいいのか、
またVBAの場合
Format(Me!御中,御中)
Format(Me!顧客名,"会社名"&"御中")
といった形では動かないので、どのような形で
どのタイミングで動かせばいいのか（クリックやフォーカス取得時など）
がわかりません。
教えてくださる方がいらっしゃいましたら、お願いします。

回答No.1

DexMachina · ベストアンサー

> どのような形でどのタイミングで動かせばいいのか
> （クリックやフォーカス取得時など）がわかりません。

まず、「御中」フィールドに記録されるのが常に「御中」という敬称だけでしたら、
このフィールドをテーブルに記録する必要はありません。
また、「顧客名」が常に「会社名＆御中」になるのでしたら、これも同様です。

※一部の会社に対しては「御中」ではなく「様」を使用するとか、一部の会社に
　 対してだけ「会社名」の「(株)」を「株式会社」に変換する、といったことが必要
　 な場合は、何らかのフィールドが必要になります。

とりあえず、そのような特殊な事例がない前提であれば、レポートのコントロール
に対する「コントロールソース」の設定で対応できます。
(=クリック時などのイベントは不要、ということです)

例として、『会社名』が「株式会社あい」のレコードを、「株式会社あい 御中」と
レポートで表示させるには、『顧客名』コントロールに以下のような式を設定します
(→テーブルやクエリのフィールドをコントロールソースとする「連結コントロール」
　に対して、式をコントロールソースとするものを「演算コントロール」といいます)：

=[会社名] & " 御中"

なお、敬称に「御中」「様」などを使い分ける必要があって、どうしてもフィールドに
記録したい、ということでしたら、以下のようにすることで対応できます：

=[会社名] & " " & [御中]
(間の「" "」は、会社名と御中の間にスペースを入れるためのもの。不要な場合は
　「=[会社名] & [御中]」のみでOK)

また、「会社名」には「(株)」と略して入力したものもあるけれど、レポートでは一律で
「株式会社」にしたい、という場合は、以下のようにします：

=Replace([会社名], "(株)", "株式会社") & " 御中"
または
=Replace([会社名], "(株)", "株式会社") & " " & [御中]

※「(株)」全体で一文字のもの(→機種依存文字なので下の式では「○」で代用)も
　 含まれている場合は、
=Replace(Replace([会社名], "(株)", "株式会社"), "○", "株式会社") & " 御中"
　 というように、Replace関数の結果に対して更にReplace関数を適用して下さい。
　 (但し、上記以外にも変換が必要なものがあるようだと、お勧めできる方法では
　　ありませんが・・・)

・・・以上です。

お礼

ご回答ありがとうございました。
「御中」や顧客名は以前使っていたCARDというソフトで
そういう風に作られていたもので。
前任者がどういう意図でその項目を作ったのかは
わかりません。
すみません、余計な話は置いときます。
つたない質問に色々気をつかっていただき、感謝します。
コントロールソースに入れる等、大変参考になりました。

また機会がありましたら、宜しくお願いします。