サブフォームが画面上にあるかどうかを確認するvba

Question

サブフォームのコンテンツを更新する関数を呼び出そうとします。これは、特殊なサブフォームが画面に表示されている場合のみです。私は.IsLoadedで試しましたが、これはうまくいかないようです。少なくとも次のようにはなりません：

残念ながら、サブフォームはメインフォームを更新するたびに呼び出されます。どうすれば修正できますか？ヘルプは高く評価されます。 ベストアンサー、 エリック

Answer 1

Dim obj As AccessObject 
Dim dbs As Object 

Set dbs = Application.CurrentProject 

' Search for open AccessObject objects in AllForms collection. 
For Each obj In dbs.AllForms 
    If obj.IsLoaded = True Then 
     'Debug.Print obj.Name 
     If obj.Name = "frmSubform" Then 'your main form 
      If Forms!frmSubform!sfrmSubform.Form.Visible Then 'subform 
       'Debug.Print "visible" 
       'do something. 
      Else 
       'Debug.Print "not visible" 
      End If 
     End If 
    End If 
Next obj 

Set dbs = Nothing