Access Forms!の参照エラー

Question

実現したいこと

Accessのナビゲーションフォーム内に表示しているAフォームのボタンをクリックすると、Bフォームを開き、BフォームのFormLoadにて、先ほどクリックしたAフォームのボタンをロックしたいです。

発生している問題・エラーメッセージ

実行時エラー’2450’
参照されている'Aフォーム'が見つかりません。

該当のソースコード

Forms!Aフォーム!Btn_Input.Enabled = False

Comments

[sazi]

Bフォームを開いている箇所のコードも追記して下さい。

Answer 1

ナビゲーションフォーム上のフォームは、サブフォームとして埋め込まれています。

ですので、参照する場合は、下記のようなフォーマットになります。

Forms!Aフォーム!NavigationSubform.Form!Btn_Input.Enabled = False

NavigationSubform はウィザードで作成して場合のデフォルトの名前です。変更している場合はそれに合わせてください。

ただし、

Accessのナビゲーションフォーム内に表示しているAフォームのボタンをクリックすると、Bフォームを開き、BフォームのFormLoadにて、先ほどクリックしたAフォームのボタンをロックしたいです。

この要件なら、Aフォームのボタンをクリック内で、ロックをかけた方か簡単かと。

ただし、アクティブなコントロールにロックはかけられないので、別のコントロールにフォーカス移動させてからロックをかけることになります。

Private Sub Btn_Input_Click()

    Me.適当なコントロール.SetFocus
    Me.Btn_Input.Enabled = False

    'Bフォームを開く処理

End Sub

Comments

[Yoshikun_0945]

回答いただきましてありがとうございます。
回答のコードは、Forms!ナビゲーションフォーム内のフォーム名!!ナビゲーションフォーム名.form…でよろしかったでしょうか？

[hatena19]

Forms!ナビゲーションフォーム名!サブフォームコントロール名.Form.コントロール名
です。
サブフォームに埋め込まれているフォーム名は使いません。

ただ、ボタンクリック時に記述して Meを使う方法を推奨します。