質問: me.データ項目 end sub これでできますが、テキストにどんどん追加するにはどうすればいいでしょうか? vbの未熟者です。宜しくお願いします。
回答: > テキストにどんどん追加するにはどうすればいいでしょうか? 既存のデータと新規追加するデータを「&」演算子で連結してやればokです。 ただ、『データの区切り』をどうするか、という点が、悩みどころになります(汗) (それと、空白(null/空文字)の扱いも) a)とりあえず、何も考えずにつなげてしまってよいのなら、以下の通り: (データ1~データ4がそれぞれ「test1」「テスト2」「空文字」「null」なら、 「test1テスト2」になります:nullも空文字も区別なし、総件数も不明) private sub コマンドボタン_click() forms![フォーム2]![データ項目] = forms![フォーム2]![データ項目] & me![データ項目] end sub b)「/」(スラッシュ)で区切る場合(但しデータ間にのみ入れる): (こちらの場合は「test1/テスト2//(null)」になります:「/」の前後に文字が なければ空文字の存在を、「/」の数から総件数を、それぞれ判別可能) private sub コマンドボタン_click() '追加値を記録するための変数を宣言 dim vval as variant '追加値を記録(nullは「(null)」という文字列に変換) vval = nz(me![データ項目], "(null)") '転記 if isnull(forms![フォーム2]![データ項目]) then '1件目なので「/」は不要 forms![フォーム2]![データ項目] = vval else '2件目以降は「/」で区切って追加 forms![フォーム2]![データ項目] = forms![フォーム2]![データ項目] & "/" vval end if end sub ・・・以上です。 なお、実際のデータに「/」が含まれる場合は、データに含まれない適当な記号を 使用してください。 (例えば「|」、「;」など。なお、転記データが数値のみだった場合に桁区切りと 判断されるのを防ぐため、「,」は避けてください)