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

OzellikVarMi "FormAdi"