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