UserForm X Butonunun Sadece 1. Tıklamayı Algılaması Sorunu

[OoParadiSeoO]

Arkadaşlar Merhaba,
2 adet UserForm'um var,

*Form2'de yer alan aşağıdaki sorgu ile X butonuna basınca Form1'i çağırabiliyorum,
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UserForm2.Hide
UserForm1.Show
End Sub

*Form1'deki CommandButton1 ile tekrardan Userform2'ye geçebiliyorum,
Private Sub CommandButton1_Click()
UserForm1.Hide
UserForm2.Show
End Sub

Sorunum; Form2 aktif olduğunda X butonuna tekrar basıyorum, Form1'e gecmesi gerekirken hiçbir tepki vermiyor..
Yardımlarınız için şimdiden teşekkür ederim ..

 

[çıtır]

Birde Aşağıdaki şekilde deneyiniz
Unload UserForm2
UserForm1.Show

 

[OoParadiSeoO]

Denedim hocam, istediğim sonucu alamadım ..

 

[çıtır]

İstediğiniz sonuç butonla userformlardan birini kapatıp ,diğerini açmak ise user formu sayfa butonundan çağırdıkdan sonra command butonlarla deneyiniz.Daha farklı bir sonuş istiyorsanınız ben anlamamışım.
https://dosya.co/lkc0wqqxhohd/userformkapat.rar.html

 

[OoParadiSeoO]

Hocam ilgine çok tşk ederim fakat sen CommandButton1 ile geçişleri sağlamışsın, ben Form2'deki QueryClose olayı ile yani X butonu ile Form1'e geçiş yapmak istiyorum ..

 

[çıtır]

Aşağıdaki şekilde deneyiniz.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
   Unload UserForm2
   UserForm1.Show
End Sub

 

[OoParadiSeoO]

Form1'e geçiş yapıyor fakat Form2 arkada açık kalıyor hocam..

 

[çıtır]

Form1'e geçiş yapıyor fakat Form2 arkada açık kalıyor hocam..

İşlemi ançak bir bilgisayar hilesi ile başarabildim.#4 nolu iletideki linki yeniledim bir bakınız oldu kabul edecek misiniz ? bilmiyorum

 

[Orion1]

Hocam ilgine çok tşk ederim fakat sen CommandButton1 ile geçişleri sağlamışsın, ben Form2'deki QueryClose olayı ile yani X butonu ile Form1'e geçiş yapmak istiyorum ..

QueryClose olayından olmaz.
Butondan yapın.

 

[çıtır]

QueryClose olayından olmaz.
Butondan yapın.

Üstad bir hile yaparak QueryClose olayından da oldu.#4 nolu İletideki dosyada yükledim.

 

[Orion1]

Üstad bir hile yaparak QueryClose olayından da oldu.#4 nolu İletideki dosyada yükledim.

Tebrikler.
Standart kodlamada olmuyor.

 

[OoParadiSeoO]

Üstad bir hile yaparak QueryClose olayından da oldu.#4 nolu İletideki dosyada yükledim.

Hocam eyvallah evet istediğim sonuç buydu Yaptığın hileyi yorumlamayı beceremedim fakat 2. bir yöntem daha keşfettim Yukarıda benim ilk paylaştığım makroda Userform'ların Properties penceresinden ShowModal özelliklerini False yapınca düzgün çalışmaya başladı Desteğiniz için çok teşekkür ederim ..

 

[çıtır]

Hocam eyvallah evet istediğim sonuç buydu Yaptığın hileyi yorumlamayı beceremedim fakat 2. bir yöntem daha keşfettim Yukarıda benim ilk paylaştığım makroda Userform'ların Properties penceresinden ShowModal özelliklerini False yapınca düzgün çalışmaya başladı Desteğiniz için çok teşekkür ederim ..

Gizli bir commandbutton koyarak hali yaptım.Bulduğunuz yöntemde güzel.Dönüş yaptığınız için teşekkür ederim.