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

#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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Onay Kutusu tıklandığında Metin arka plan renginin değişmesi - Yazar: ozanakkaya - 29/08/2015, 01:47
Task