If Me.Metin141.Text = "SGK" Then
Me.Metin141.BackColor = vbRed
Else
'şart sağlanmaz ise yapılacaklar.
End If
raporun yüklendiğinde veya geçerli olduğunda olayına yazabilirsiniz.
aşağıdaki kodu dener misiniz?
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
If Me.Metin141.Value = "SGK" Then Me.Metin91.BackColor = vbRed Else Me.Metin91.BackColor = vbWhite
End Sub
Tamam teşekkür ederim red yerine vbred yazmak gerekiyor imiş