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
aşağıdaki kodu dener misiniz?