Way to centrally locate ON ERROR code to accommodate ALL TextBoxes
I have a userform with more than 100 textboxes. Although fairly new to VBA, I know how to add ON ERROR code to a textbox to handle errors. My questions is whether it is possible to put this code in some central place in the userform/module/etc such that any error in ANY textbox can access it -- that way i will not have to put the code in EACH textbox.
For example, I would put something like ON ERROR GOTO "this routine" in EACH textbox's code
Then, somewhere centrally located (NOT in the TextBox) would be "this routine".
is this possible? If so, how?
This should do it...
Sub Button1()
On Error GoTo ErrorHandler
'code starts
'code ends
Exit Sub
ErrorHandler:
Error_Handler Err.Number, Err.Description, ActiveControl.Name
End Sub
Sub Button2()
On Error GoTo ErrorHandler
'code starts
'code ends
Exit Sub
ErrorHandler:
Error_Handler Err.Number, Err.Description, ActiveControl.Name
End Sub
Sub Button3()
On Error GoTo ErrorHandler
'code starts
'code ends
Exit Sub
ErrorHandler:
Error_Handler Err.Number, Err.Description, ActiveControl.Name
End Sub
Function Error_Handler(eNumb, eDesc, eCaller)
Select Case eNumb
Case x 'Set number code(s) here
Case y 'Set number code(s) here
Case z 'Set number code(s) here
Case Else
MsgBox eCaller & " has caused an unhandled error." & vbCrLf & _
eNumb & ":" & vbTab & eDesc
End Select
End Function
On a side note, I think you would do well to set those 100 textboxes into an Object Array.