Accessで家計簿を作っているのですが・・・（再

質問

いつもおせわになっております。
現在、Accessで家計簿なるものを作っているのですが・・・
まずマスタテーブルから入力データが存在する日付をクエリで抽出し、それをフォームのテキストボックス１のコントロールソースに指定して、そのテキストボックス１に表示されている日付を元にフィルタ機能を使ってその日に入力されたデータ一覧をサブフォームで表示するという方式を取っているのですが・・・（解かり難くてすみません
この方式だとクエリのレコードを移動するとサブフォームの表示内容も対応してその日のが抽出されます。
しかし、データがたくさん蓄積されてくると一日ずつ（１レコードずつ）移動すると手間がかかってイライラしそうです。
で、同じフォームにコンボボックス１を追加し、上記にもあるマスタテーブルから入力されている日付を抜き出した日付一覧を取得してあるクエリを値集合ソースに指定してみました。
クリック時のイベント等もちゃんと設定したのですが、うまく動作してくれません。

コンボボックス１をクリックして選択したら、クエリをコントロールソースとするテキストボックス１の表示内容がコンボボックス１で選択されたものに変更される、みたいなことって出来ないのでしょうか？

コンボボックス１だけにしてテキストボックス１を消すとコンボボックス１で選択した日付の内容をサブフォームで表示することは出来たのですが、それだとコマンドボタンを押して次のフィールドに移動し、かつコンボボックス１の表示内容も自動変更というのが出来なかったので・・・

長文でスミマセンが、どなたかお知恵の拝借お願いします。

回答No.2

O_cyan · ベストアンサー

>コンボボックス１をクリックして選択したら・・テキストボックス１の表示内容がコンボボックス１で選択されたものに変更される
コンボボックス１のイベントの更新後処理に
Private Sub コンボボックス１_AfterUpdate()
テキストボックス１ = コンボボックス１.Column(0)
End Sub
（注)コンボボックス１に日付だけ表示の場合はコンボボックス１の左から数えた位置になるのでColumn(0)になります。）
とすれテキストボックス１にコンボボックスで選択した値を表示できます。
AfterUpdateでテキストボックス１に値を表示後そのクエリをMe!クエリ名.Requeryで更新すれば行けると思います。

回答No.1

noname#60992

現在の表示方式が良いのなら、簡単な方法としては以下が考えられます。

(1)コンボボックスの値の変更があった時のイベントとしてフォームのレコードを移動させる。
(2)フォームをクエリとは非連結にして、コンボボックスの値はＶＢＡで読み込む。　日付の移動はコンボボックスの値を変更させることで対応。

双方とも少しＶＢＡを使用します。　どちらかというと(1)のほうが簡単かも。