質問: リストボックスで複数データを選択、入力(access97) access97で初めて入力フォーム作成にチャレンジしています。 リストボックスやコンボボックスで複数データを選択し、1つのフィールドに入力したいのですが、可能でしょうか? よろしくご教示ください。 例:”趣味”というフィールドに リストからの選択で ”読書,映画,テニス”のように入力したい。 (カンマ区切り、スペース区切り、区切りなし など何でも結構です。) *ベストはカンマ区切り。
回答: >okボタンか何か作成して、そこでまとめて設定をするのが >正しいのでしょうか このhpの左にあるラジオボタンもそうですが、そこをクリックしただけでは、次に進みませんよね? 最終に、[回答する]をクリックした時に、次に進む。 これと同じようなイメージで説明してました。 >項目がある程度あるならば、配列的に名前をつけて この部分をモジュールに書いてみました。 フォーム上には10個のチェックボックスがあるとします。 □ 趣味1 □ 趣味2 ・ ・ □ 趣味10 □のチェックボックスの名前はチェック0から9と入力してあります。 「趣味1から10」はラベルで、標題に入力した値が表示されています。名前は、ラベル0から9と入力しています。 private sub コマンドボタン_click() dim cnt as integer dim flg as integer dim 趣味 as string flg = 0 趣味 = "ありません!" for cnt = 0 to 9 if me("チェック" & cnt) then if flg = 1 then 趣味 = 趣味 & "," else 趣味 = "" end if 趣味 = 趣味 & me("ラベル" & cnt).caption flg = 1 end if next cnt msgbox ("あなたの趣味は " & 趣味 & " です") end sub 実際には、最後のmsgboxがレコード等に格納する命令に置き換わる事になると思います。 只、入力はこれでいいと思いますが、実際に格納されたデータを表示するのはちょっと・・・って思う所はあるのですが、要望がカンマ区切りで1つのフィールドに格納したいってことでしたので。