Textbox'taki metnin seçilmesinde hata

[Mehmet Şahin]

Merhaba arkadaşlar,
aşağıdaki kodlarda listbox1'e tarih olarak girilmeyen değerden sonra textbox'dan çıkmasını engellemek ve kutudaki text'in seçili olmasını istiyorum
ancak "Invalid use of property " hatası alıyorum. Sorun nerdedir? Saygılar.

If TextBox1 = "" Then
Exit Sub
End If
If IsDate(TextBox1.Value) = False Then
MsgBox "Lütfen tarih girin! Örnek(gg/aa/yyyy)"

Cancel = True
TextBox1.SelText 'hata burada alınıyor
Exit Sub
Else
TextBox1.Value = Format(CDate(TextBox1.Value), "dd.mm.yyyy")
TextBox2.Value = TextBox1.Value
End If

 

[veyselemre]

[vb:1:bc09a438bd]If TextBox1 = "" Then
Exit Sub
End If
If IsDate(TextBox1.Value) = False Then
MsgBox "Lütfen tarih girin! Örnek(gg/aa/yyyy)"

Cancel = True
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)

Exit Sub
Else
TextBox1.Value = Format(CDate(TextBox1.Value), "dd.mm.yyyy")
TextBox2.Value = TextBox1.Value
End If[/vb:1:bc09a438bd]

 

[Mehmet Şahin]

Sayın veyselemre çok teşekkürler. Sanırım "seltext" burada çalışmıyor ve ben onun yerine sizin çözümünüzü yada "TextBox1 = "" " şeklinde bir çözüm uygulayacağım. Ancak pratikte şöyle birşeyle karşılaştım; iki ayrı frame'de
yapılan tab veya mouse geçişlerinde "Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)" procedur'u çalışmıyor, sadece aynı frame içindeki objelere geçişte çalışıyor. Bunun bir çözümü varmıdır, saygılar.