宛名ラベル-宛先を臨機応変に会社名か顧客名か変えたい
OS:WinXP
Access Version:2000
たびたびお世話になります。よろしくお願いします。
宛名ラベルを作っています。
ラベルのレイアウトはこのようになっています。
エクセルファイルから顧客情報を抽出してテーブルを作りました。
-----------------------------
[=Trim[郵便番号]]
[=Trim[住所1]]
[=Trim[住所2]]
[=Trim[会社名]]
[=Trim[部署]]
[宛先]
----------------------------
各項目のTrimは、宛名ラベルウィザードにて
該当ラベルメーカーの型番を選んだら自動的に挿入
されました。
データベースに、顧客名があるときは、顧客名+様、顧客名が無かったときは
会社名+御中とし、宛名の末尾に無駄なスペースが入っていたらtrimで省きたい
ということで、
＞・・・宛先のコントロールソースに
＞=IIf(Nz([宛先])="",Trim([会社名]) & " 御中",IIf(InStr([宛先]," 様")<>0,[宛先],Trim([宛先]) & " 様"))
以上で解決したのですが、上司から新たな要望が・・・・・・。
これだけだと、「顧客名が無かったときは会社名+御中」の場合、
----------------------
郵便番号
住所1
住所2
会社名
部署名
会社名 御中
----------------------
と、会社名が二つ載っているので変だ、直してほしいと言われました。
・「顧客名が無かったときは会社名+御中とし、[会社名]は表示させない」
または
・「顧客名が無かったときは、[会社名]は表示せず、
宛名のところに[会社名]+御中とする」
といった関数が必要と思われますが、
どこにどう記述したらいいのかわからないので
教えていただけ無いでしょうか。
よろしくお願いします。
