こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Access 連結サブフォームの特定レコードに移動

Access 連結サブフォームの特定レコードに移動

お世話になっております。
開発環境
OS:Windows10
Access:2013

親フォームに2つの連結サブフォームがあります。
2つの連結サブフォームには、TODAYより年月を抽出し、その月のカレンダーをデータとして表示しております。
スペースの関係で、毎月1日から14日位までが見えていて後半部分は縦にスクロールしないと見えません。

そこで、親フォームを開いた時、その日の日付まで縦にスクロールすることか可能でしょうか。
例えば、今日が2/20であれば、サブフォーム内の一番上に2/20が表示されるようにスクロールするといった感じです。(2/19以前は見えない)
もしくは、一番上でなくても開いた時に見える位置まで移動することは可能でしょうか。

何卒宜しくお願い申し上げます。

投稿日時 - 2018-02-07 16:57:31

QNo.9426589

困ってます

質問者が選んだベストアンサー

2013なら下記のコードでいけると思います。

With Me.サブフォームコントロール名.Form.Recordset
  .MoveLast '最後のレコードへ移動
  .FindFirst "日付=Date()" '今日の日付に移動
End With

日付/時刻型のフィールド「日付」があるという前提です。

投稿日時 - 2018-02-08 14:40:58

お礼

ご連絡が遅くなり申し訳ございませんでした。
教えていただきました内容で実装することができました。
大変ありがとうございました。
これからも宜しくお願い申し上げます。

投稿日時 - 2018-02-09 18:26:49

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

Q、見える位置まで移動することは可能でしょうか?
A、多分、可能!

> VBAでフォームのクローンを上へ下へとスクロールさせる。

 上記の手法でバーコードに合致するレコードが表示されるように上へ下へとスクロールを繰り返すことを実現した記憶があります。20年前のことですが・・・。

投稿日時 - 2018-02-07 20:17:31

お礼

お礼が遅くなり申し訳ございませんでした。
クローンを作れることを初めて知りました。
勉強の時間があまりなく、今回は、hatena1989さんの方法で実装しました。
貴重な内容を教えていただきありがとうございました。

投稿日時 - 2018-02-09 18:25:25