Solved

ERROR CODES

Posted on 1998-10-28
4
158 Views
Last Modified: 2010-04-30
Does anybody know where I can look up API error codes?
I am mostly interested in the ones dealing with
sockets and drive mapping.
0
Comment
Question by:cybergirl
4 Comments
 
LVL 1

Expert Comment

by:ajmendes
ID: 1442157
Hi,
I have a text file that have an plenty of error codes.
If you want it, tell me your e-mail to send it to you. If you find what you want then i post this comment as an answer, OK?

Bye.
0
 
LVL 6

Expert Comment

by:clifABB
ID: 1442158
Here is a list of error codes at the Microsoft site:
http://premium.microsoft.com/msdn/library/sdkdoc/errlist_9rqr.htm

I've been having a bit of trouble getting in, so I'll post this as a comment.  If you get in and it's what you want, let me know and I'll repost as an answer.
0
 
LVL 14

Accepted Solution

by:
waty earned 50 total points
ID: 1442159
Here is the part of a new addins I am writing. It will display the API error message for any API error number
' #VBIDEUtils#************************************************************
' * Programmer Name  : Waty Thierry
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : waty.thierry@usa.net
' * Date             : 12/10/1998
' * Time             : 20:20
' * Module Name      : APIError_Module
' * Module Filename  : APIError.bas
' **********************************************************************
' * Comments         :
' * Used to get error messages directly from the
' *   system instead of hard-coding them
' *
' *
' **********************************************************************

Option Explicit

Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200

Private Declare Function FormatMessage Lib "kernel32" Alias _
      "FormatMessageA" _
      (ByVal dwFlags As Long, lpSource As Any, _
      ByVal dwMessageId As Long, _
      ByVal dwLanguageId As Long, _
      ByVal lpBuffer As String, _
      ByVal nSize As Long, _
      Arguments As Long) As Long

' *** Status Codes
Public Const INVALID_HANDLE_VALUE = -1&
Public Const ERROR_SUCCESS = 0&

Public Function ReturnAPIError(ErrorCode As Long) As String
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : waty.thierry@usa.net
   ' * Date             : 12/10/1998
   ' * Time             : 20:21
   ' * Module Name      : APIError_Module
   ' * Module Filename  : APIError.bas
   ' * Procedure Name   : ReturnAPIError
   ' * Parameters       :
   ' *                    ErrorCode As Long
   ' **********************************************************************
   ' * Comments         :
   ' * Takes an API error number, and returns
   ' * a descriptive text string of the error
   ' *
   ' **********************************************************************

   Dim sBuffer    As String

   ' *** Allocate the string, then get the system to
   ' *** tell us the error message associated with
   ' *** this error number
   
   sBuffer = String(256, 0)
   FormatMessage FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS, 0&, ErrorCode, 0&, sBuffer, Len(sBuffer), 0&

   ' *** Strip the last null, then the last CrLf pair if it exists
   
   sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
   If Right$(sBuffer, 2) = Chr$(13) & Chr$(10) Then
      sBuffer = Mid$(sBuffer, 1, Len(sBuffer) - 2)
   End If

   ReturnAPIError = sBuffer

End Function

Public Sub APIError()
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : waty.thierry@usa.net
   ' * Date             : 12/10/1998
   ' * Time             : 20:35
   ' * Module Name      : APIError_Module
   ' * Module Filename  : APIError.bas
   ' * Procedure Name   : APIError
   ' * Parameters       :
   ' **********************************************************************
   ' * Comments         :
   ' * Takes an API error number, and returns
   ' * a descriptive text string of the error
   ' *
   ' **********************************************************************

   Dim sError        As String
   
   On Error GoTo ERROR_APIError
   
   sError = InputBox("Enter the error number", "Returns API error")
   
   If IsNumeric(sError) = False Then Exit Sub
   
   MsgBox ReturnAPIError(CLng(sError)), vbInformation + vbOKOnly, "Error n°" & sError
   
   Exit Sub
   
ERROR_APIError:
   MsgBox "Error n°" & sError & vbCrLf & " Invalid error number" & vbCrLf & "You have to give another one", vbCritical + vbOKOnly, "Error n°" & sError
   
End Sub

0
 

Author Comment

by:cybergirl
ID: 1442160
Thanks for the code waty, it worked great.
0

Featured Post

Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
VBA color chart bars 12 86
VB error "Type mismatch" 2 55
Visual Studio search word table and return Cell index 8 61
VB6 - Scroll Mouse wheel on Picturebox 13 44
There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

810 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question