AccessTr.neT

Tam Versiyon: Enabled Özelliği Olmayan Controller
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Benim bildiğim Label var başka hangi kontroller var acaba
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"
Dim Ozellk As Property
Bunu hiç duymamştım çok teşekkürler
Yanlış konu anlama Img-grin
Mesajı sildim önceden yazdığım.