Sub ObjTest()
    Dim MyForm As Form
    Dim strForm As String
    
    strForm = "frmTest"

    '先にフォームをオープンしないとエラー
    DoCmd.OpenForm strForm
    Set MyForm = Forms(strForm)
    
    '【MyFormについての処理】
    
    DoCmd.Close acForm, strForm
    
    If MyForm Is Nothing Then
        MsgBox "オブジェクト参照なし", vbCritical
    Else
        MsgBox "オブジェクト参照あり", vbInformation
    End If
    
    Set MyForm = Nothing
    
    If MyForm Is Nothing Then
        MsgBox "オブジェクト参照なし", vbCritical
    Else
        MsgBox "オブジェクト参照あり", vbInformation
    End If

End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ