Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6987 / 9994

←次へ　｜　前へ→


	【6204】Re:コンボボックスで。。。

小僧 - 05/9/7(水) 14:28 -


	引用なし

	パスワード

▼you さん：
こんにちは。

ここは VBA 質問箱なので、VBA で処理してみましょう。

・新規フォームを作成。(デザインビューで)

・コンボボックス　　:cmb行事
・テキストボックス　:txt場所
・テキストボックス　:txt行事

　を配置。

・フォームの [レコードソース] に基になるテーブル名を選択。

・txt行事と txt場所の [コントロールソース] にそれぞれ [行事] [場所] を選ぶ。

・cmb行事の[値集合タイプ] を [値リスト] に、
　　　　　　　[値集合ソース」を「ハイキング;海水浴;鮎釣り」と記述。

ここまで用意できましたら、

・cmb行事の [更新後処理] の右側にある「...」をクリックしてコードビルダを選択。

・出現した画面に以下のコードを記述して閉じる。

Private Sub cmb行事_AfterUpdate()
　　Me.txt行事.Value = Me.cmb行事.Value
　　
　　Select Case Me.cmb行事.Value
　　　　　　
　　　　Case "ハイキング"
　　　　　　Me.txt場所 = "山"
　　　　Case "海水浴"
　　　　　　Me.txt場所 = "海"
　　　　Case "鮎釣り"
　　　　　　Me.txt場所 = "川"
　　End Select
End Sub

コンボボックスの値に応じてテキストボックスの値が変化し、
フォームを閉じるとテーブルの値が変化していると思われますがいかがでしょうか。

248 hits

▼

【6191】コンボボックスで。。。 you 05/9/7(水) 10:31