Textbox'taki metnin seçilmesinde hata

Mehmet Şahin

Destek Ekibi
Destek Ekibi
Katılım
13 Ekim 2005
Mesajlar
1,401
Excel Vers. ve Dili
Excel 2010 - 2013 Türkçe - İngilizce
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

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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

Destek Ekibi
Destek Ekibi
Katılım
13 Ekim 2005
Mesajlar
1,401
Excel Vers. ve Dili
Excel 2010 - 2013 Türkçe - İngilizce
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.
 
Üst