textbox exit sorunu

[turk4545]

arkadaşlar herkese mrb.kolay gelsin.

yapmak istediğim combobox1 de "yeşilkart" seçili ise textbox4 ve textbox5 de dolu olmalı.sanki bi kısmını hallettim.ancak exit olayında sadece commandbutton3 e izin vermek istiyorum.koşul sağlanmazsa sadece commandbutton3 'e tıklanabilsin.


Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1 = "YEŞİLKART" And TextBox4 = "" And TextBox5 = "" Then
MsgBox "YEŞİLKART İÇİN EKSİK BİLGİ GİRDİNİZ...", vbCritical, "DİKKAT"
Cancel = True

End If
End Sub

 

[Recep İpek]

Pasif olacak diğer butonların Enable özelliğini False yapınız.

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1 = "YEŞİLKART" And TextBox4 = "" And TextBox5 = "" Then
MsgBox "YEŞİLKART İÇİN EKSİK BİLGİ GİRDİNİZ...", vbCritical, "DİKKAT"

CommandButton1.Enabled = False
CommandButton2.Enabled = False
CommandButton4.Enabled = False

Cancel = True
End If
End Sub

 

[turk4545]

hocam teşekkürler farklı bi açıdan oldu..teşekkürler..