Errors

[Xerpher]

I know about On Error Resume Next and On Error Goto ... But I was wondering if could do something like On Error Exit Sub or On Error Then ....

Can what I'm asking be done?

[Alien_poo]

Originally posted by Xerpher
I know about On Error Resume Next and On Error Goto ... But I was wondering if could do something like On Error Exit Sub or On Error Then ....

Can what I'm asking be done?

What would be the use of that?

Private Sub Form_Click()
        On error goto line1:
        'CODE
        'CODE
line1:
End sub

And

Private Sub Form_Click()
        On error goto line1:
        'CODE
        'CODE
Exit sub
line1:
        'CODE
        'CODE
End sub

[Morpheus]

What exactly do you want it to do when it faults?

[Xerpher]

I was kinda thinking of having something like

On Error Then MsgBox "Error"

You know what I mean? but I guess I'll just have to use the goto... I was just curious, Thanks you guys.

[Alien_poo]

Private Sub Form_Click()
        On error goto line1:
        'CODE
        'CODE
Exit sub
line1:
        'CODE
        Msgbox "Error"
End sub