サブフォームのレコード移動

質問

以下のように2つのサブフォームを親フォームより指定しています。
この場合だとかならずSetFocusしなくてはならなく
そのたびに画面がぶれてしまいます。

Me.[1つ目のサブフォーム].SetFocus
DoCmd.GoToRecord , , acGoTo, num
Me.[2つ目のサブフォーム].SetFocus
DoCmd.GoToRecord , , acGoTo, num

SetFocusをしないでもサブフォームの移動は可能でしょうか？
よろしくお願いします。

回答No.1

noname#7099

最後に親フォームのどこかのフィールドにSetFocusしてはどうですか。
画面は動いてしまうかもしれませんが、親フォームの元のところへカーソルが戻りますよね。

補足

SetFocusをしないでもサブフォームの移動は出来るのかと言う質問をしたつもりだったのですが・・・・