アクセス

質問

アクセス初心者です。

フォームにコマンドボタンを作りました。
そのボタンをクリックすると、テーブルを更新するようにしたいです。

ccc0　ccc1 ccc2 ccc3 ccc4 　ccc5　cc

というフィールドがあり、ccc0~ccc5には、ひとつずつメールアドレスが入っています。

ccというフィールドに上のccc0~5のメールアドレスを「;」で繋げて、表示させたいのですが、ccc0には必ずメールアドレスが入っていますが、ccc1~5はテーブルによって空欄の場合もあります。（そのテーブルのもつメールアドレスの数によってccc0から順に埋まっている。共通の固定アドレスがあるので、ccc0は必ずメールアドレス（固定）が入っている）

更新クエリで全部をccc0&";"&ccc1&";"&ccc2&";"&ccc3&";"&ccc4&";"&ccc5
としたところ、
たとえば1つしかメールアドレスのないテーブルは、「○×com;;;;」という表示になってしまい、この形になってしまうと、このccを使ったVBAが作動しなくなってしまいました。
「;」が最後についてしまうとNGのようです。

つまり、
ccc1に入っていたら、ccc0;ccc1
ccc2まで入っていたら、ccc0;ccc1;ccc2
ccc3まで入っていたら、ccc0;ccc1;ccc2;ccc3
ccc4まで入っていたら、ccc0;ccc1;ccc2;ccc3;ccc4
ccc5まで入っていたら、ccc0;ccc1;ccc2;ccc3;ccc4;ccc5

という風にccに表示させるコードを教えてください。

よろしくお願いします。

回答No.2

O_cyan

更新クエリのccのフィールドに下記の記述で試してみてください。
cc:[cc01] & IIf([cc02] Is Null,"",";" & [cc02]) & IIf([cc03] Is Null,"",";" & [cc03]) & IIf([cc04] Is Null,"",";" & [cc04]) & IIf([cc05] Is Null,"",";" & [cc05])
IIfをネストしても大丈夫です。

回答No.1

momokasan

ベタなんですが、if を使うのはダメなんですか？

たとえば、
if isnull(ccc1) = true then
str = ccc0
else
if isnull(ccc2) = true then
str = ccc0 & ";" & ccc1
end if
end if

アドレス = str

のような感じで。