Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1330 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7651】サブフォーム日付にフォーカス移動 ユミちゃん 06/4/6(木) 3:22 質問[未読]
【7655】Re:サブフォーム日付にフォーカス移動 小僧 06/4/6(木) 13:06 回答[未読]
【7664】Re:サブフォーム日付にフォーカス移動 ユミちゃん 06/4/7(金) 2:22 お礼[未読]
【7667】Re:サブフォーム日付にフォーカス移動 ユミちゃん 06/4/10(月) 2:35 質問[未読]
【7669】Re:サブフォーム日付にフォーカス移動 小僧 06/4/10(月) 11:36 回答[未読]
【7675】Re:サブフォーム日付にフォーカス移動 ユミちゃん 06/4/11(火) 16:50 お礼[未読]
【7651】サブフォーム日付にフォーカス移動
質問  ユミちゃん  - 06/4/6(木) 3:22 -
引用なし
パスワード
   いつもお世話になります。
ある複数施設への入場者数の月単位、日別入場者数の入力処理をしています。
（１）メインフォームで入力日(書式　日付 (S))を入力
（２）サブフォームでテーブルより1ヶ月間の日付、施設名を表形式でクエリーで　　　表示しています。(日付はmid関数で日の2桁表示）
メインフォームで入力日を指定した時にサブフォームの該当日付にカーソルを移動して該当日付行の色を変更して人数の入力をしたいのですが、カーソルの移動ができません。ACCESS2003を使用しております。
何卒よろしくお願いいたします。
【7655】Re:サブフォーム日付にフォーカス移動
回答  小僧  - 06/4/6(木) 13:06 -
引用なし
パスワード
   ▼ユミちゃん さん：

>メインフォームで入力日を指定した時にサブフォームの該当日付に
>カーソルを移動して該当日付行の色を変更して人数の入力をしたいのですが、
>カーソルの移動ができません。

過去ログ[#3649]にある、クロさんの回答が参考になりませんでしょうか。
【7664】Re:サブフォーム日付にフォーカス移動
お礼  ユミちゃん  - 06/4/7(金) 2:22 -
引用なし
パスワード
   小僧さん。
前回もお世話になりました。
有難うございます。
教えていただきました過去ログで再度チャレンジします。
【7667】Re:サブフォーム日付にフォーカス移動
質問  ユミちゃん  - 06/4/10(月) 2:35 -
引用なし
パスワード
   ユミちゃん：
小僧 さん：
小僧さん、いつもお世話になります。
申し訳ありません。再度のご質問です。
過去ログ[#3649]クロさんの回答を参考にさせていただきましたが、私の未熟
さでいまだ解決できません。
メインフォームで日付入力(例　06/04/15)
サブフォーム
　　　日付　　A施設入場者　　　B施設入場者　　C施設入場者
　　　 1日
　　　 15日　 この日付にカーソルを移動
　　　　.
　　　　.
　　　 30日
メインフォームで指定した日付にカーソルを移動したいのですが？
何卒よろしくお願いいたします。
【7669】Re:サブフォーム日付にフォーカス移動
回答  小僧  - 06/4/10(月) 11:36 -
引用なし
パスワード
   ▼ユミちゃん さん：
こんにちは。

サブフォームのコントロールにフォーカスして
レコードを検索させる、という様なコードになります。


メインフォームの cmb日付 に日付を入れると
サブフォームの日付フィールドを検索する場合、

Private Sub cmb日付_AfterUpdate()
　　Me.埋め込み0.SetFocus
　　Me.埋め込み0.Form![日付].SetFocus
　　DoCmd.FindRecord CDate(Me.cmb日付), , True, , True
End Sub

の様なコードになると思います。

（エラーチェック等の処理は全て省いてあります）
【7675】Re:サブフォーム日付にフォーカス移動
お礼  ユミちゃん  - 06/4/11(火) 16:50 -
引用なし
パスワード
   小僧さん
度々の質問に快くお答えをいただきまして有難うございました。
DoCmd.FindRecord CDate(Me.cmb日付), , True, , True
のコマンドで問題なくできました。
私自身、まだまだ勉強不足を痛感しております。
またよろしくお願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1330 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078228
(SS)C-BOARD v3.8 is Free