サブフォームに入力行数を制限している場合のメインフォームでのレコード移動

Question

サブフォームのあるメインフォームがあります。

メインフォームは開いた時に新しいレコードが開くよう
フォーム読み込み時に以下のコードを入れています。

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

また、マクロのレコード移動ボタンを設置しています。

フォーム内のサブフォーム入れているコードは以下の通りとなります。

Option Compare Database
Option Explicit
Dim gyo As Integer

レコード移動時

Me.AllowAdditions = Me.Recordset.RecordCount < 5
gyo = Me.Recordset.RecordCount
End Sub

サブフォーム最後の入力項目のフォーカス喪失後

Private Sub 数量_LostFocus()
If gyo >= 5 Then
    MsgBox "データ入力は5行までです。", vbOKOnly
End If
End Sub

解決したい内容
サブフォームに入力制限上限の5行まで入力されたレコードが1つ前にある時
メインフォームを開き、開いた時の新規レコードに何も入力せず
5行まで入力された1つ前のレコードに移動し、再度新規レコードに戻ると
サブフォームの入力部分が表示されないので表示されるようにしたい。

試したこと

リンク内容を参考に
メインフォーム移動時に以下のコードを入れました。

Private Sub Form_Current()
Me.受注明細サブフォーム.Form.Form_Current
End Sub

こちらで試したところ

実行時エラー2465
アプリケーション定義またはオブジェクト定義のエラーです。

と出てしまいました。

良い解決方法があれば教えていただけないでしょうか？
よろしくお願いいたします。

Answer 1

リンク先には下記の記述がありますが、Public宣言に変更してますか。

そこでサブフォームのレコード移動時のイベントプロシージャをPublic宣言してメインフォームのレコード移動時に呼び出すことにしました。

Public Sub Form_Current()
    Me.AllowAdditions = Me.Recordset.RecordCount < 5
    gyo = Me.Recordset.RecordCount
End Sub

Comments

[techiko]

大変失礼いたしました。変更したつもりが変わっていませんでした。
変更後解決いたしました。

いつもありがとうございます…