Aynı işlemi daha bir mantık kullanarak yapmak isterseniz, o zaman da mesela Arıza türü alanındaki "Su" - "Kanal" - "Elektrik" şeklindeki değişen değerlere göre remkler atayabilirsiniz. Bunun için yine select case komutu biçilmiş kaftandır.
Kod:
Select Case Me.ArizaTuru
Case "Su"
Me.Ayrıntı.BackColor = vbGreen
Case "Kanal"
Me.Ayrıntı.BackColor = vbRed
Case "Elektrik"
Me.Ayrıntı.BackColor = vbYellow
End Select
Böylece arıza türü "su" olunca Yeşil, "Kanal" olunca Kırmızı, "Elektrik" olunca da Sarı renk alacaktır.
Not: Elektrik isimli arıza türünü tabloya ben girdim. Normalde sadece 2 tür arıza vardı. Örneği 3 lü yapmak adına "elektrik" adında bir arıza türü de ben girdim.
İnadına, ille de Accesstr.net...