msboxta evet /hayır

[maras321]

arkadaşlar merhaba elimde 2 adet userform var birincide kayıt yaptıktan sonra kayıtlarınız eklenmiştir şeklinde mesaj geliyor.buna evet hayır ekleyip başka userform açmam mümkünmü.
yani evet dediğim zaman userform2 acılsın
hayır dediğim zaman userform1 bulunan textbox ve comboboxlar silinsin istiyorum. bunları yapmak mümkün mü???
biraz karışık sanırım!!!!

 

[ASMET67]

Kodu kendinize uyarlayabilirsiniz.

cevap = MsgBox("Kayyit İşleminiz tamamlandi" & Chr(10) & " Form1 açmak için Hayir " & Chr(10) & "Form2 Açmak için Evet" & Chr(10) & "Tiklamalısınız", vbYesNo, "ONAY")
If cevap = vbYes Then
 
userform2.Show
ElseIf cevap = vbNo Then
UserForm1.Show
End If

 

[maras321]

teşekürler ASMET67 userform2yi gösteriyorum ama userform1 de bulunan verileri hayır ile nasıl silerim....

 

[maras321]

tamam hallettim
ElseIf cevap = vbNo Then
For a = 0 To Controls.Count - 1
If TypeName(Controls(a)) = "TextBox" Then Controls(a) = ""
If TypeName(Controls(a)) = "ComboBox" Then Controls(a) = ""
ekleyince oldu.
teşekkürler.