項目

フォームが開いているか判定する

概要

片方のテーブルにあるデータを抽出するには、外部結合して さらにもう一方のキーの抽出条件にNullを設定します。 　　　　　　

例

Option Compare Database
Option Explicit

'--------------------------------------------------------
' 名称    : フォームが開いているか判定する
'--------------------------------------------------------
Sub IsLoaded()

    If CurrentProject.AllForms("フォーム1").IsLoaded Then
    
        MsgBox "フォームが開いているよ"
    
    Else
    
        MsgBox "フォームは閉じているよ"
            
    End If

End Sub