Skip to main content

AccessTr.neT


Me nedir?

Me nedir?

Çözüldü #7
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ı.Img-grin
Burda olmaktan MUTLUYUMM .... Img-grin
Cevapla
Çözüldü #8
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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
Çözüldü #9
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 Sub

ve formda bir düğmenin koduna şunu yaz

kontroller 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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #10
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
Next

veya böyle
Kod:
For Each Kutu In Me.Controls
    With Kutu
        If .ControlType = acLabel Then
            .BackColor = 65535
        End If
    End With
Next

tabii label'ların arkaplan şeklinin transparan değil normal olması gerekiyor.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
#11
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
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#12
Sorun çözüldü..

Me.Command0.BackStyle = 0 veya Me.Command0.BackStyle = 1
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da