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