Access レコード移動時イベントでサブフォーム

質問

お世話になります。

親フォーム　Ａがあります。（データソースが存在します）
その中にサブフォームＢがあります。（データソースが存在します）

親フォームのレコード移動時のイベントで、いつもサブフォームのレコードの最後を表示したいのです。そこで・・・

親フォームＡの　レコード移動時イベントに

Private Sub Form_Current()
Me.B.SetFocus
DoCmd.GoToRecord , , acLast
End Sub

上記を記述すると、一番初めはきちんとサブフォームBのレコードは最後を表示するのですが、以後、親フォームのレコードを動かすと、親フォームの最後のレコードをさしっぱなしになってしまいます。

Me.B.SetFocus
DoCmd.GoToRecord , , acLast

これの後にどんな記述をすれば、親フォームのレコードを動かすと同時にサブフォームＢも最後の行に移るようにできますでしょうか？

何卒よろしくお願いいたします。

回答No.1

30246kiku · ベストアンサー

> Private Sub Form_Current()
> 　　Me.B.SetFocus
> 　　DoCmd.GoToRecord , , acLast
> End Sub

上記を

Private Sub Form_Current()
　　Me.B.Form.Recordset.MoveLast
End Sub

として、どうなりますか。

お礼

30246kikuさん　大変お世話になります。

ご指導いただいた方法できちんと動作いたしました。
こんな方法があったんですね！
大変勉強になりました。

ありがとうございました。