Hangi rakamlarda yanıp sönmesini istiyorsanız sadece onları yazın...
Please return your positive or negative ...
Private Sub Form_Current()
Select Case (Me.toplam_baskı)
Case 15000
Me.toplam_baskı.BackColor = 255
Case 30000
Me.toplam_baskı.BackColor = 255
Case 60000
Me.toplam_baskı.BackColor = 255
Case Else
Me.toplam_baskı.BackColor = 122255
End Select
End Sub