Userformlar arasında döngü oluşturmak.

[Korhan Ayhan]

Selamlar arkaşdaşlar,

Ã?rnek bir dosya gönderiyorum. Bu dosyada yapmak istediğim şey;

2 adet userform oluşturdum. 1. formdan 2. forma geçmek için bir buton oluşturdum. Bu butona bastığımda bana dosyayı kapatmak için yazdığım prosedürü soruyor. Bu prosedürü sormadan diğer formu açmasını istiyorum. Ayrıca formlar arasında geçişi sağlamak için kullandığım butonlara tıkladığımda sürekli olarak textbox1 in seçili olmasını istiyorum. Bunu nasıl yapabilirim ?

İyi çalışmalar dilerim. :hey:

 

[Levent Menteşoğlu]

Butona bağlı kodu sadece aşağıdaki gibi düzenlemeniz yeterlidir.

[vb:1:6117c00912]Private Sub CommandButton1_Click()
Form2.Show
End Sub
[/vb:1:6117c00912]

Textbox1 in seçimi içinde aşağıdaki gibi deneyin.

[vb:1:6117c00912]Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub[/vb:1:6117c00912]

 

[Mahmut Bayram]

prosedürün cevabı şu: kapat butonundaki kodları sil aşağıdakini yaz
Unload me
load Userform2
userform2.show
AYRICA SEN
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
başlığındaki olayı da silmelisin bu formdaki x işareti ile çıkılmaması ile ilgili

texbox'un seçili olması içinde herhalde set.focus özelliği kullanımalı

 

[Korhan Ayhan]

Selamlar arkadaşlar,

Verdiğiniz cevaplar teşekkür ederim.

Aşağıdaki kodlarla işlemi gerçekleştirdim.

Private Sub CommandButton1_Click()
FORM1.Hide
FORM2.Show
End Sub

Bu butona basınca ekrana gelen formun kod sayfasınada aşağıdaki kodu ekledim.

Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub

2. Formdan 1. forma geri dönmek için kullandığım butonada aşağıdaki kodu ekledim.

Private Sub CommandButton2_Click()
FORM2.Hide
FORM1.Show
End Sub

Bu butona basınca ekrana gelen formun kod sayfasınada aşağıdaki kodu ekledim.

Private Sub UserForm_Activate()
TextBox1.SetFocus
End Sub

Ve işlemimi başarı ile gerçekleştirdim. :hey: