Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Jan 18, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Find Constant Name

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.

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 i
End 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 Pro
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date