AccessTr.neT

Merhaba Arkadaşlar,

Ekteki örnekte form içerisine yerleştirdiğim tabloda Status kısmında K-Y-M gibi harfler bulunmaktadır. Yapmak istediğim bu hücreleri renklendirmek. K olan yerler kırmızı Y olan yeşil P pembe M mavi S sarı şeklinde bu hücreler renklenecek.

Access 2010'dan önceki versiyonlarda koşullu biçimlendirme 3 koşulla sınırlandırıldığı için bunu Vba ile çözmem gerekiyor. Tek bir textbox için bunu yapmak kolay fakat subform içersinde bunu beceremedim.

Yardımcı olabilirseniz sevinirim.

sub_deneme formunuzu sürekli form olarak ayarlayın ve formun özelliklerinden boyandığında olay yordamına;

Private Sub Detail_Paint()

Select Case [Status]



  Case "K"

    [Status].ForeColor = vbWhite

    [Status].BackColor = vbRed

  Case "Y"

    [Status].ForeColor = vbBlack

    [Status].BackColor = vbGreen

  Case "M"

    [Status].ForeColor = vbWhite

    [Status].BackColor = vbBlue

  Case "P"

    [Status].ForeColor = vbBlack

    [Status].BackColor = vbMagenta

  Case "S"

    [Status].ForeColor = vbBlack

    [Status].BackColor = vbYellow



End Select



End Sub

yazarak deneyin. Umarım istediğiniz sonucu alırsınız.

Merhaba,

İlginiz için teşekkürler. Fakat sürekli form benim ihtiyacımı karşılamıyor. Datasheet view olarak görüntülemem gerekiyor.

Sanırım Vba ile de bu sorunun çözümü yok