いつもおせわになっております。
現在、Accessで家計簿なるものを作っているのですが・・・
まずマスタテーブルから入力データが存在する日付をクエリで抽出し、それをフォームのテキストボックス1のコントロールソースに指定して、そのテキストボックス1に表示されている日付を元にフィルタ機能を使ってその日に入力されたデータ一覧をサブフォームで表示するという方式を取っているのですが・・・(解かり難くてすみません
この方式だとクエリのレコードを移動するとサブフォームの表示内容も対応してその日のが抽出されます。
しかし、データがたくさん蓄積されてくると一日ずつ(1レコードずつ)移動すると手間がかかってイライラしそうです。
で、同じフォームにコンボボックス1を追加し、上記にもあるマスタテーブルから入力されている日付を抜き出した日付一覧を取得してあるクエリを値集合ソースに指定してみました。
クリック時のイベント等もちゃんと設定したのですが、うまく動作してくれません。
コンボボックス1をクリックして選択したら、クエリをコントロールソースとするテキストボックス1の表示内容がコンボボックス1で選択されたものに変更される、みたいなことって出来ないのでしょうか?
コンボボックス1だけにしてテキストボックス1を消すとコンボボックス1で選択した日付の内容をサブフォームで表示することは出来たのですが、それだとコマンドボタンを押して次のフィールドに移動し、かつコンボボックス1の表示内容も自動変更というのが出来なかったので・・・
長文でスミマセンが、どなたかお知恵の拝借お願いします。
No.2ベストアンサー
- 回答日時:
>コンボボックス1をクリックして選択したら・・テキストボックス1の表示内容がコンボボックス1で選択されたものに変更される
コンボボックス1のイベントの更新後処理に
Private Sub コンボボックス1_AfterUpdate()
テキストボックス1 = コンボボックス1.Column(0)
End Sub
(注)コンボボックス1に日付だけ表示の場合はコンボボックス1の左から数えた位置になるのでColumn(0)になります。)
とすれテキストボックス1にコンボボックスで選択した値を表示できます。
AfterUpdateでテキストボックス1に値を表示後そのクエリをMe!クエリ名.Requeryで更新すれば行けると思います。
No.1
- 回答日時:
現在の表示方式が良いのなら、簡単な方法としては以下が考えられます。
(1)コンボボックスの値の変更があった時のイベントとしてフォームのレコードを移動させる。
(2)フォームをクエリとは非連結にして、コンボボックスの値はVBAで読み込む。 日付の移動はコンボボックスの値を変更させることで対応。
双方とも少しVBAを使用します。 どちらかというと(1)のほうが簡単かも。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コンボボックス 選択後のカー...
-
access 検索結果をテキストボッ...
-
条件に応じてコンボボックスの...
-
Access 2016 のプロパティ(プル...
-
VBA コンボボックスの重複削除
-
エクセルVBAユーザーフォー...
-
YahooのIDがロックされてしまい...
-
データベースのINT型項目にNULL...
-
Access レポート印刷するときに...
-
フォームで入力しても反映されない
-
「フォームを作成できませんで...
-
レコードを保存するコード ア...
-
passwordが入れられません・・・・
-
サブフォームに対してGoToRecor...
-
アクセスでテキストボックスの...
-
ACCESS フォームをそのまま印刷...
-
ACCESSでコントロールソースの変更
-
アクセスでフォームビューがみ...
-
Accessでフィールド名を変数(...
-
【ACCESS】フォーム名/コントロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じてコンボボックスの...
-
コンボボックス 選択後のカー...
-
CrystalDiskinfoの使い方!HDD/...
-
access 検索結果をテキストボッ...
-
Dcount関数が表示されない。
-
4月開始年度の月と日を連動さ...
-
ActiveXコントロールのコンボボ...
-
エクセルVBA コンボボックスで...
-
VBA コンボボックスの重複削除
-
Access 2016 のプロパティ(プル...
-
ACCESS VBA で複数項目検索にテ...
-
エクセルVBAユーザーフォー...
-
浮動小数点数型
-
Accessのコンボボックス内項目...
-
ドロップダウンリスト
-
アクセスでのリスト表示について。
-
フォームのプロパティを設定し...
-
ExcelVBA コンボボックスリスト...
-
Accessで家計簿を作っているの...
-
ユーザーフォーム上にあるコン...
おすすめ情報