チェックボックスの内容をテキストボックスに表示

フォームにチェックボックスをいくつか作成しました。
チェックした内容をテキストボックスに羅列して表示するには
どうしたらいいのでしょうか？

□A
□B
□C
・
・
・

とあり、AとCにチェックを入れたら
テキストボックスに「A C」と表示させるようにしたいです。

お願いいたします！

No.2 ベストアンサー 回答者： nicotinism 回答日時： 2013/07/22 14:30

VBAになってしまいますが一案として・・。

フォームは単票。
チェックボックス名は、A、B、・・・
テキストボックス名は、テキスト１
だとしたら
コマンドボックスのクリック時イベントに

Private Sub コマンド0_Click()
Dim ctl As Control
Dim buf As Variant

For Each ctl In Me.Controls
If TypeName(ctl) = "checkbox" Then
　　If ctl.Value = -1 Then
　　　　buf = buf & ctl.Name & " "
　　End If
End If
Next

Me!テキスト1 = Left(buf, Len(buf) - 1)
End Sub
のように。
上記の場合チェックボックスを総なめしてしまっています。
フォームが単票以外なら
フォームの元になっているテーブル・クエリの説明が必要です。
とりあえず、こんなところで。

この回答へのお礼

できました！
ばっちり理想の動きをしてくれました！
ありがとうございました！！

お礼日時：2013/07/22 15:13

No.1 回答者： nicotinism 回答日時： 2013/07/22 13:18

それで肝心の使用アプリケーションは何？

Excel、Access、・・・・。

この回答へのお礼

Accessです！
書き忘れていました。
大変失礼しました。

お礼日時：2013/07/22 13:31