Vazgeç tuşu

[canbolat]

İyi günler;

UserForm üzerinde textboxların exit olayına aşağıdaki kodu girdik;

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = &HFFFF80
If TextBox1 = Empty Then
MsgBox "Boş Geçilmez!" & Chr(10) & "Lütfen KURUM ADI giriniz!", vbExclamation, "Dikkat !"
Cancel = True
Exit Sub
Else
Cancel = False
End If
End Sub

userform üzerine bir adette vazgeç tuşu ekleyip aşağıdaki kodu girdik;

Private Sub CommandButton2_Click()
Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox"
Nesne = ""
End Select
Next
sor = MsgBox("VAZGEÇMEK İSTİYOR MUSUNUZ?", vbYesNo, "DİKKAT!!")
If sor = vbNo Then
ComboBox1.Enabled = True
CommandButton1.Enabled = False
CommandButton2.Enabled = False
TextBox1.BackColor = &H80C0FF
TextBox2.BackColor = &H80C0FF
TextBox3.BackColor = &H80C0FF
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
Exit Sub
End If
TextBox1.SetFocus
End Sub

vazgeç tuşuna tıkladığımız zaman textboxlara yazdığımız boş geçilmez uyarısının çıkmamasını nasıl sağlarız acaba?

 

[canbolat]

Örnek dosya eklemeyi unutmuşum. Örnek dosya ektedir.

 

[canbolat]

Sanırım aşağıdaki textboxların exit olayındaki If koşuluna "commandbutton2 tuşuna basılmadı" ise şartını ekliyeceğiz ama nasıl?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = Empty Then

 

[canbolat]

Fikri olan bir üstad var mı acaba?

 

[erolakgun]

vazgeç e basıldığında ilk olarak commandbutton2 nin visible özelliğini false olarak değişmesini sağlayıp

vazgeç_click()
commandbutton2.visible = false

ondan sonra

if commandbutton2.visible = false then

şeklinde bir koşul sağlayabilirsiniz