Temizle Tuşu

[canbolat]

Userforma eklenen temizleme butonuna aşağıdaki kodu tanımladım. Ama Temizleme tuşuna basınca imlecin Textbox1 e gitmesini istiyorum. Forumda arattım ama bulamadım. Yardımcı olabilir misiniz?

Private Sub CommandButton114_Click()
Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox"
Nesne = ""
End Select
End Sub

 

[Ömer]

Merhaba,

TextBox1.SetFocus

bu şekilde kullanabilirsiniz..

.

 

[canbolat]

Merhaba,

TextBox1.SetFocus

bu şekilde kullanabilirsiniz..

.

Teşekkür ederim

 

[canbolat]

İyi günler forumda 21 adet textbox var. Her birine değişik şekillerde bilgi girilmesi veya boş geçilmemesi için kodlar yazıldı.(Örnek olarak TextBox1 için yazılan kod aşağıdadır.)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 11 Then
MsgBox "EKSİK KARAKTER GİRİŞİ !" & vbCrLf & "EN AZ 11 KARAKTER GİREBİLİRSİNİZ.", vbCritical
Cancel = True
Exit Sub
Else
Cancel = False
End If
TextBox1.BackColor = &HFFFF80
If TextBox1 = Empty Then
MsgBox "Boş Geçilmez!" & Chr(10) & "Lütfen TC Kimlik No giriniz!", vbExclamation, "Dikkat !"
Cancel = True
Exit Sub
Else
Cancel = False
End If
End Sub



Temizle tuşu için yazılan kod ise aşağıdaki gibidir.

Private Sub CommandButton114_Click()
Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox"
Nesne = ""
End Select
Next
With TextBox8
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##/##/####"
.SelStart = 0
.SelLength = 1
End With
With TextBox20
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##/##/####"
.SelStart = 0
.SelLength = 1
.SetFocus
End With
End Sub
Ama textboxlar doldurulmadan herhangi birinin içerisinde temizle tuşuna basıldığı zaman hata veriyor ve imleç .SetFocus satırı üzerine gelip sarı olarak işaretliyor. Neden olabilir acaba?

 

[Ömer]

Örnek dosya ekleyerek açıklayınız..

.

 

[canbolat]

Ya da şöyle sorayım ;

TextBox1 için eksik karakter girilmesini engellediğimiz kodun (yani aşağıdaki kodun)

If Len(TextBox1) < 11 Then
MsgBox "EKSİK KARAKTER GİRİŞİ !" & vbCrLf & "EN AZ 11 KARAKTER GİREBİLİRSİNİZ.", vbCritical
Cancel = True
Exit Sub
Else
Cancel = False
End If

CommandButton1 tuşuna basıldığı (Temizle Tuşu) zaman devre dışı kalması için ne gibi bir kod yazabilirim.?