Microsoft Access 掲示板

win10pro64
microsoft365access

いつもお世話になってます。
相談お願いします。

サブフォームを持つメインフォームのコマンドボタンクリック後にサブフォームのコントロールにカーソルを移動させたいのです。

メインフォーム「F_受注入力_メイン」
サブフォーム「F_受注入力_サブ」
メインフォーム上のサブフォームコントロール名「受注明細」

「F_受注入力_メイン」にコマンドボタン「コマンド_登録」を配しておりまして、入力必須コントロールに未入力の場合メッセージボックスを出して、入力を促すように該当コントロールにカーソルが自動で行くようにしたいと思っています。
同一フォーム上ではわかるのですが、サブフォームコントロールへの移動がどうしてもわからずご相談した次第です。

今のところ「コマンド_登録」のクリック時に以下のコードを書いています。

With codeContextObject
    If (IsNull(Forms!F_受注入力_メイン!受注明細.Form!品名)) Then
        Beep
        MsgBox "品種番号が正しく入力されていません。", vbCritical, "受注管理"
        Forms!F_受注入力_メイン!受注明細.Form!品種番号.SetFocus
    Else
    End If
End With

サブフォームの「品名」に「品種番号」とリレーションが設定されているので、「品種番号」が正しく入力されていない場合、「品名」は空欄になるのを判定基準にしています。
なので、「品名」が空欄の場合メッセージボックスが出て「品種番号」にカーソルが移動するようにしたいのですが、現状のコードではそのようになりません。

どうすればできるかお教えいただけませんでしょうか。
よろしくお願いします。