Formun close olayındaki mesajı sınırlandırmak

[EKREM1661]

Değerli Arkadaşlar..!

Eki örnek dosyada görüleceği üzere; UserForm'un close olayı altına konulan bir uyarıcı mesaj bulunmakta.. Bu mesaj gerek close ve gerekse form üzerindeki kapat butonuna da yansıyor.. (Bu kadarı yeterli)

Ancak; Ekle butonu altındaki kodlar çalıştırılınca, akabinde de görevi biten form "UserForm1 Unload" kodu ile kapatılması gerekiyor.

Fakat bu defa formun Close olayı altında yer alan mesaj tetikliyor ve açığa çıkan mesaj çalışmayı engelliyor.
Bu durumu engelleyebilir miyiz.?

 

[halit3]

Bunu denermisiniz.

Dim deg As String
Private Sub CommandButton1_Click()
deg = 0
Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
deg = 1
[b5].Value = TextBox1.Text
Unload UserForm1
deg = 0
End Sub
Private Sub UserForm_Activate()
deg = 0
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If deg = 0 Then
Dim Soru
Soru = MsgBox("Form Kapatılsın mı..?", vbYesNo)
If Soru = vbYes Then
Unload UserForm1
Else
Cancel = True
End If
End If
End Sub

 

[EKREM1661]

Halit hocam..! Çok teşekkür ediyorum..

 

[halit3]

Halit hocam..! Çok teşekkür ediyorum..

iyi çalışmalar