Access VBA フォームを表示しているか確認する

前提・実現したいこと

Access VBAを使用して
ナビゲーションフォームのサブフォームエリアに"F02-1_注文"（サブフォーム）を表示しているかを判定させたいです。

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

下記のコードだと、開いていないという結果でした。
どのように修正すればよろしいでしょうか？

該当のソースコード

VBA
1  Dim varRet As Variant
2
3  'フォーム "F02-1_注文" の状態を取得します。
4  varRet = SysCmd(acSysCmdGetObjectState, acForm, "F02-1_注文")
5
6  '「SysCmd」が返す値から"F02-1_注文" の状態を表示します。
7  Select Case varRet
8    Case 0
9      MsgBox "開いていないか、存在しません"
10    Case 1
11      MsgBox "開いています"
12    Case 5
13      MsgBox "新しいフォームです"
14    Case 7
15      MsgBox "編集されましたが、まだ保存されていません"
16  End Select

sazi

2019/10/21 08:07

サブフォームはサブフォームコントロールにコントロールソースとしてフォームを設定しますが、開いているかどうかとはどのような状態ですか？表示するサブフォームを切り替えるというならコードで設定するはずですから、判別は不要だと思うのですが。

Yoshikun_0945

2019/10/21 08:12 編集

たとえば、”F02-1注文”というサブフォームをナビゲーションフォームにて表示しているときは、"F02-1_注文"をナビゲーションフォーム上の移動ボタン経由で再ロードしないという処理を行いたいです。

sazi

2019/10/21 08:27

ナビゲーションフォームはメニューの意味合いを持ちますが、F02-1_注文を一旦開くと、他のフォームへは移動させないという事ですか？

Yoshikun_0945

2019/10/21 08:59

F02-1_注文を表示させたら、再度同じボタンを押せないようにする同じサブフォームを再表示させないという意味合いです。 Enabled = False だと文字色が鼠色になってしまうのが都合が悪い為です。

行動規範の内容に同意します

回答2件

ベストアンサー

下記のコードで現在表示されているサブフォームの名前が取得できます。

vba
1Me.NavigationSubform.SourceObject

私は、ナビゲーションフォームは制御が難しいので、標準以外の動作をさせたいときは使わないです。

いちおう下記のようなコードで現在のサブフォームを再読み込みはできないようにすることは可能のようです。

vba
1Private Sub 移動ボタン1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
2    Dim sf As String
3    f = Me.NavigationSubform.SourceObject 
4    If sf = "F02-1_注文" Then
5        Me.コマンド11.SetFocus '透明ボタンへフォーカス移動
6    End If
7End Sub