Bu işi için hangi formun açık olduğu bilgisi gerekecek.

Function IsLoaded(ByVal strFormName As String) As Boolean

' Returns True if the specified form is open in Form view or Datasheet view.

    Dim oAccessObject As AccessObject

    Set oAccessObject = CurrentProject.AllForms(strFormName)

    If oAccessObject.IsLoaded Then

        If oAccessObject.CurrentView <> acCurViewDesign Then

            IsLoaded = True

        End If

    End If

    End Function

Bu kodlar modül için. Bu kodu, modüller bölümünde yeni kayıt açıp yapıştırın
ve kayıt edin.

If IsLoaded ( "kontrol_edilecekformadı" ) Then

Eylemi yap

Else

Vazgeç veya başka eylem yap

End If

Benim kod bankamda varolan bir çalışma. Kim hazırlamış bilmiyorum. Kolay gelsin

---

Çok sayıda form varsa o zaman son bölümü if..then yerine select...case ile yapmanız daha akıllıca olacaktır.