alternatif olarak aşağıdaki kod da denenebilir
aşağıdaki fonksiyon form açılmamışsa yada tasarım modunda açılmışsa false değerini döndürür. kontrolü bu fonksiyonla yapabilirsiniz

Public Function FormAcikMi(ByVal FrmAdi As String) As Boolean

    FormAcikMi = False

    ' Tasarım yada Normal Modda açık mı

    If SysCmd(acSysCmdGetObjectState, acForm, FrmAdi) <> 0 Then

        ' Açıksa Tasarım modunda mı?

        If Forms(FrmAdi).CurrentView <> 0 Then

            FormAcikMi = True

        End If

    End If



    Exit Function



End Function