Kod:
Option Compare Database
Option Explicit
Private Sub GrupÜstbilgisi0_Format(Cancel As Integer, FormatCount As Integer)
If Me.GrupÜstbilgisi0.BackColor = vbWhite Then
Me.GrupÜstbilgisi0.BackColor = vbGreen
Else
Me.GrupÜstbilgisi0.BackColor = vbWhite
End If
End Sub
Private Sub GrupÜstbilgisi1_Format(Cancel As Integer, FormatCount As Integer)
If Me.GrupÜstbilgisi1.BackColor = 15651516 Then
Me.GrupÜstbilgisi1.BackColor = 13353215
Else
Me.GrupÜstbilgisi1.BackColor = 15651516
End If
End Sub
Private Sub GrupÜstbilgisi2_Format(Cancel As Integer, FormatCount As Integer)
If Me.GrupÜstbilgisi2.BackColor = vbWhite Then
Me.GrupÜstbilgisi2.BackColor = vbYellow
Else
Me.GrupÜstbilgisi2.BackColor = vbWhite
End If
End Sub