アクセスフォーム コンボボックスで選んだ値を別のテキストボックスにまとめて表示したい！

質問

他でもコンボボックスの質問をしましたringo0120です。質問が２つに分かれて申し訳ありません。

アクセスフォームの中に「Ａ」「Ｂ」「Ｃ」「Ｄ」と
４つのコンボボックスがあります。
　「Ａ」あいう
　「Ｂ」えお
　「Ｃ」かき
　「Ｄ」く
というふうにコンボボックスで選んだとします。
この４つをまとめてポンと他のボックスにくっつけて
表示したいのです。
　「テキストボックス」あいうえおかきく
というふうに。

どうやってもうまくいきません。
誰か教えてください！
よろしくお願いします。

回答No.1

dokumori · ベストアンサー

VBAを使えばできると思いますが、VBA分かりますか？

えと、A,B,C,D全てのコンボを選択するという
前提が必要になりますが、こういう形でやっては如何でしょう：

ＤのLost Focusイベントの際に、A,B,C,Dの
テキスト全てを拾って、テキストボックスに表示する、というの。
以下、テキトーに書きますし、コンボ名とかも分かんないので、そのままコピペしても使えないと思いますが、参考まで。

Private Sub ComboD_LostFocus()
Me.(テキストボックス名).value = Me.ComboA.Value & Me.ComboB.Value & Me.ComboC.Value & Me.ComboD.Value

End Sub

あと、敢えてValueを拾っているのは、Accessの場合、Textを拾おうとすると、SetFocusが必要になるのでウザイのです。

ぐっどらっく。

お礼

ありがとうございますー！！！！
出来ました！
びっくりです。
ホントにありがとうございます！！