遅くなりました。ようやく時間がとれたのでファイルを見てみました。
hirotonさんの最初の回答でほぼあっているのですが、
サブフォーム「畦取①」のすべてのテキストボックスの「使用可能」が「いいえ」になっているので、フォーカス移動できないためうまくいかないのだと思われます。
まずは「使用可能」を「はい」に変更してください。
そのうえで、サブフォームのソースが変更されるタイミングで、下記のコードを実行するようにしてみてください。
メインフォームの「元順」の位置のテキストボックスへ移動。
Me.畦取①.SetFocus
Me.畦取①.Form.Controls("txt" & Me.元順).SetFocus
フィールドの最終列へ移動ならhirotonさんのコードで。
通報 ...