FRM İÇERİĞİ TEMİZLEME

[Bilgemen]

Merhaba Arkadaşlar
frmyazdir adında user formumvar bunun üzerinde ilk 3 harfi frm yazan labellerini içeriğiin temizlemek istiyorum.
Aşağıdaki kod hata veriyor.
Yardımcı olabilirmisiniz.

Sub TemizleLabels()
Dim ctrl As Control

' Form kontrolündeki tüm kontrolleri kontrol et
For Each ctrl In frm.Controls
' Sadece Label kontrolünü seç
If TypeName(ctrl) = "Label" Then
' Kontrol isminin ilk üç harfinde "frm" varsa içeriği temizle
If Left(ctrl.Name, 3) = "frm" Then
ctrl.Caption = ""
End If
End If
Next ctrl
End Sub

 

[Necdet]

Merhaba,

Üşenmedim bir excel dosyası açtım.
yine üşenmedim bir form oluşturdum.
yine üşenmedim formun adını frm olarak değiştirdim.
yine üşenmedim bir kaç tane label ekledim ve adlarını frm ile başlattım.
yine üşenmedim kodlarınızı aldım ve commandbutton un kod bölümüne kopyaladım.
yine üşenmedim bu butona tıkladım ve adı frm ile başlayın labelların Caption ların hepsi silindi.

Üşenmeden bu mesajı da yazayım bari dedim.

 

[veyselemre]

frmyazdir adında user formumvar
For Each ctrl In frm.Controls
For Each ctrl In frmyazdir.Controls

 

[Bilgemen]

Merhaba,

Üşenmedim bir excel dosyası açtım.
yine üşenmedim bir form oluşturdum.
yine üşenmedim formun adını frm olarak değiştirdim.
yine üşenmedim bir kaç tane label ekledim ve adlarını frm ile başlattım.
yine üşenmedim kodlarınızı aldım ve commandbutton un kod bölümüne kopyaladım.
yine üşenmedim bu butona tıkladım ve adı frm ile başlayın labelların Caption ların hepsi silindi.

Üşenmeden bu mesajı da yazayım bari dedim.

Nejdet bey teşekkürler ederim. Henüz Veysel emre beyin dediği gibi deneyemedim. Lakin bana mantıklı geldi. User formda frm ile başladığı için sorun olabilir hiç aklıma gelmemişti

 

[Bilgemen]

frmyazdir adında user formumvar
For Each ctrl In frm.Controls
For Each ctrl In frmyazdir.Controls

Teşekkürler Veyselemre bey yarın sabah deneyeceğim inşallah

 

[Necdet]

Nejdet bey teşekkürler ederim. Henüz Veysel emre beyin dediği gibi deneyemedim. Lakin bana mantıklı geldi. User formda frm ile başladığı için sorun olabilir hiç aklıma gelmemişti

Necdet

 

[Bilgemen]

Kodları aşağıdaki gibi Veysel emre beyin dediği gibi revize ettim düzeldi.
Teşekküerler Veysel ve Nejdet bey

Sub TemizleLabels()
Dim ctrl As Control

' Form kontrolündeki tüm kontrolleri kontrol et
For Each ctrl In yazdırliste.Controls
' Sadece Label kontrolünü seç
If TypeName(ctrl) = "Label" Then
' Kontrol isminin ilk üç harfinde "frm" varsa içeriği temizle
If Left(ctrl.Name, 3) = "frm" Then
ctrl.Caption = ""
End If
End If
Next ctrl
End Sub