Skip to main content

AccessTr.neT


Onay Kutusu tıklandığında Metin arka plan renginin değişmesi

Onay Kutusu tıklandığında Metin arka plan renginin değişmesi

Çözüldü #1
Sayın hocalarım,

Personel formumda;
Üç adet onay kutum var ;
Bu onay kutularının metin alanında İyi,Orta ve Zayıf yazmaktadır.
Yapmaya çalıştığım ise;
-Onay kutusuna Tıkladığımda İyi nin metin arkaplan renginin Mavi,
Orta nın Sarı ve Zayıf ise kırmızı olması için
Nasıl bir uygulama yapabilirim.
Sitede bayağı bir araştırma yaptım ama bulamadım,
Saygılarımla
İyi çalışmalar.
.rar FA.PERSONEL.rar (Dosya Boyutu: 145,16 KB | İndirme Sayısı: 31)
Cevapla
#2
tbl_personel isimli tabloya "yabdildurum" adında veri kürü sayı olan alan ekle,

formdaki "Çerçeve179" isimli seçenek grubunun adını "crcv_yabdildurum" olarak değiştir. (Türkçe karakterler yok, denetim isimlerinin belirleyici olması lazım. vs. vs) bu seçenek grubunun denetim kaynağını yabdildurum olarak değiştir.

form Vba sayfasında 
option explicit
kodunun hemen altına aşağıdaki kodu ekle

Sub CerceveYenile()

    Select Case Me.crcv_yabdildurum
        Case 1 ' Çerceve değeri 1 ise
            Me.Etiket182.BackColor = vbBlue     'arka plan mavi
            Me.Etiket182.ForeColor = vbWhite    'yazı rengi beyaz
            Me.Etiket184.BackColor = vbWhite    'arka plan beyaz
            Me.Etiket186.BackColor = vbWhite    'arka plan beyaz
        Case 2 ' Çerceve değeri 2 ise
            Me.Etiket182.BackColor = vbWhite
            Me.Etiket182.ForeColor = vbBlack
            Me.Etiket184.BackColor = vbYellow
            Me.Etiket186.BackColor = vbWhite
        Case 3 ' Çerceve değeri 3 ise
            Me.Etiket182.BackColor = vbWhite
            Me.Etiket182.ForeColor = vbBlack
            Me.Etiket184.BackColor = vbWhite
            Me.Etiket186.BackColor = vbRed      'arka plan kırmızı
        Case Else ' hiçbir koşul sağlanmazsa
            Me.Etiket182.BackColor = vbWhite
            Me.Etiket182.ForeColor = vbBlack
            Me.Etiket184.BackColor = vbWhite
            Me.Etiket186.BackColor = vbWhite
    End Select

End Sub



Formun geçerli olduğunda olayına ve crcv_yabdildurum isimli seçenek grubunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle

CerceveYenile
Cevapla
#3
Sayın Ozan Hocam,
Emek ve mesainiz için çok teşekkür ederim,aynen uyguladım ve cuk diye oturdu.
Saygılarımla.
İyi çalışmalar.
Cevapla
#4
Rica ederim,

Forma Seçenek Grubu eklediğinizde ismi "Çerçeve xxxx" şeklinde eklense bile siz adını "crcv_xxxxx" şeklinde değiştirin, kod yazarken isminin ne olduğunu aramayın.

Tablo isimlerini "tbl_personel", tablodaki alan isimlerini, Türkçe karakter kullanmadan tümü büyük veya tümü küçük yazın. alan isimlerini egıtımdurumu gibi uzun yazmanıza gerek yok, Excel belgesi gibi tabloyu açmayacaksınız. egtdurum gibi kısa yazın.

Konu taşınmıştır.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task