Kod:
=Nz([musteri];" Musteri Seçilmedi")
=Nz([musteri];" Musteri Seçilmedi")
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
Private Sub Metin0_Exit(Cancel As Integer)
If Me.Metin0 = "müşteri seçilmedi" Then
Me.Metin0.ForeColor = vbRed
Me.Metin0.FontBold = True
End If
End Sub
Nz([musteri];" Musteri Seçilmedi")
Alıntı:...2 yöntemle de çalışmadı...