Kod:
Private Sub Metin9_Change()
Dim kirmizi
If IsNull(Me.Metin9.Value) Then
Exit Sub
End If
kirmizi = RGB(255, 0, 0)
If Me.Metin9.Value = "Musteri Seçilmedi" Then
Me.Metin9.ForeColor = kirmizi
Else
Exit Sub
End If
End Sub