Soru Textbox renklendirme

[sirkülasyon]

Textbox içerisine tarih yazılı olduğu zaman KIRMIZI renk ile renklendirilmesi nasıl sağlayabilirim?

 

[sirkülasyon]

Private Sub TextBox7_Change()
If TextBox7.Value = "" Then Exit Sub
If TextBox7.Value > 0 Or TextBox7.Value = Format(Date, "dd\/mm\/yyyy dddd") Then
TextBox7.BackColor = vbRed
Else
TextBox7.BackColor = vbWhite
End If
End Sub

yukarıdaki kod ile yaptım ama textbox içinde ki tarih silinince textbox içi beyaz olmuyor

 

[Korhan Ayhan]

Aşağıdaki sorgu satırını silip deneyiniz.

If TextBox7.Value = "" Then Exit Sub

 

[sirkülasyon]

Korhan abi
textbox içini silince renk değişmiyor

 

[sirkülasyon]

Private Sub TextBox7_Change()
If TextBox7.Value = "" Then
TextBox7.BackColor = vbWhite
Exit Sub
End If
If TextBox7.Value > 0 Or TextBox7.Value = Format(Date, "dd\/mm\/yyyy dddd") Then
TextBox7.BackColor = vbRed
End If
End Sub

şekli ile işlem yaptı abi

 

[Korhan Ayhan]

Tebrikler..