+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Me nedir? (/konu-me-nedir.html)
Sayfalar:
1
2
Cvp: Me nedir? - atlantis8334 - 14/03/2009
her etiket için tek tek kod yazabilirim.Fakat tüm etiketleri tek tek yazmaz zor .
Sizin bahsettiğiniz "etiket63.backcolor.255" kod'u da sanırım tek tek için olsa gerek .Çünkü denedim olmadı.
Cvp: Me nedir? - tdsharun - 24/04/2009
Arama yaparken denk geldim bu konuya. Bununla ilgili süper bir örnek var. Hemen onun linkini vereyim dedim:
Metin Kutularının Etiketlerini Girişe Göre Etkinleştirme
Sizin tüm etiketlerin rengini değiştirmek istediğinizi görünce ekleyivereyim dedim... Gerçi aradan 1,5 ay geçmiş, soru arada kaynamış galiba ama belki birilerinin işine yarar...
Kolay gelsin...
Cvp: Me nedir? - esrefigit - 24/04/2009
textbox ların im bölümüne "t" yaz etiketlerin im bölümüne "e" yaz sonra bu kodu bir modüle yapıştır
Kod:
Sub kontroller(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.Tag = "t" Then
ctl.BackColor = 255
End If
If ctl.Tag = "e" Then
ctl.BackColor = 16776960
End If
Next ctl
End Subkontroller me
göreceksinki etiketler başka renk textboxlar başka renk alacak
şayet bunu active olan denetime çevirecek olursak sadece içine girdiğimiz denetimin rengi değişir
Cvp: Me nedir? - Seruz - 24/04/2009
Bende soruyu şimdi farketmişim, aslında kontrolün tipi kontrol edilip, sadece labellara işlem yapılabilir.
Kod:
For Each Kutu In Me.Controls
If TypeOf Kutu Is Label Then
With Kutu
.BackColor = 65535
End With
End If
NextKod:
For Each Kutu In Me.Controls
With Kutu
If .ControlType = acLabel Then
.BackColor = 65535
End If
End With
NextRE: Me nedir? - temre - 28/03/2021
Sn Seruz
"Arkaplan şeklinin transparan değil normal olması gerekiyor"
açıklamanıza göre aşağıdaki kodu nasıl yazabiliriz?
Arkaplan=Transparan veya Arkaplan=Normal
RE: Me nedir? - temre - 28/03/2021
Sorun çözüldü..
Me.Command0.BackStyle = 0 veya Me.Command0.BackStyle = 1