devxlogo

Find Constant Name

Find Constant Name

Question:
Instead of trapping an Error by its value (If err.number=429 then…) I would prefer to use a VB defined Constant Name.I can’t seem to find a way to locate them, if they exist.

Answer:
As far as I know, there only a few constants defined for error numbers. If you need such a file, you could build one using this code:

Sub Main   Dim i As Integer   For i = 1 To 9999      If Error$(i)  "Application-defined or object-defined error" Then         Debug.Print "Const " & UCase(Replace(Left(Error$(i), 40), " ", "_")) & " = " & i      End If   Next iEnd Sub

This will actually create constants that are named basically the same as the error messages. You can easily modify this code to write to a file, as well. Any spaces in the message will be converted to underscores, and the length of the constant will be limited to 40 characters. If you don’t have the Replace function, you’ll have to do that manually?check the archive for code that works the same as the VB 6 Replace function.

devx-admin

Share the Post: