Soru UserForm_Error Hakkında

[ragnorak]

"Private Sub UserForm_Error(ByVal Number As Integer, ByVal Description As MSForms.ReturnString, ByVal SCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As MSForms.ReturnBoolean)"

Userformun bu olayı nasıl kullanılıyor, amacı nedir bilen var mı?

 

[ÖmerFaruk]

Ben bu zamana kadar hiç kullanmadım.
Siz neden ihtiyaç duydunuz ya da ne yapmak istiyorsunuz?

 

[ragnorak]

Userform'da kod hatası oluştuğunda mı kullanılıyor diye merak ediyorum. VBA hata mesajını çakmadan bir işlevi var mıdır.
Aslında istediğim de şöyle birşey; kod nerde hata verirse versin bunu form kapanmadan mesajboxda görebilmek.

 

[ÖmerFaruk]

Örnek olarak CommandButton1 için kullandığınız kodları şu şekilde yapabilirsiniz.

Private Sub CommandButton1_Click()
    On Error GoTo HATA
    'kodlarınız
    'kodlarınız
    On Error GoTo 0
    Exit Sub
HATA:
    ' Hata oluştuğunda meselan textbox1 içine yazılan değeri silebilirsiniz'
    ' TextBox1="" '   
    MsgBox "Hata Var"
End Sub

 

[ragnorak]

İşte tam olarak ta bunu yapmak istemediğimden soruyorum

 

[ragnorak]

Her koda bunu yazmaktansa "Userform Error" acaba buna bir çözüm mü diye merak ettim

 

[Haluk]

Benim araştırdığım kadarıyla Office uygulamaları için kullanılacak bir şey değil, kafanızı hiç boşuna yormayın....

.