bir modüle ekleyeceğiniz aşağıdaki fonksiyon işinize yarayabilir
herhangi bir forma tüm nesneleri ekleyip fonksiyonu çağırırsınız
kapalı formu açıp tek tek nesneleri alıyor

Function OzellikVarMi(frmAdi As String)

DoCmd.OpenForm "form1", acDesign

Dim frm As Form

Dim Nesne As Control

Dim Ozellk As Property

Set frm = Forms(frmAdi).Form

For Each Nesne In frm.Controls

x = 0

    For Each Ozellk In Nesne.Properties

        If Ozellk.Name = "Enabled" Then x = 1

    Next Ozellk

If x = 0 Then Debug.Print Nesne.Name, "bu nesnenin 'enabled' özelliği yok"

Next Nesne

DoCmd.Close acForm, frm.Name

End Function

fonksiyonu çağırmak için

OzellikVarMi "FormAdi"