VBasicFacil: GetLastError

Obtiene el código de error devuelto por las ultimas llamadas a funciones de la API. La mayor parte de las funciones devuelven un número si ocurre un error, pero no indica que error se produce exactamente. Esta función toma el "código de error universal" identificando el ultimo error ocurrido. Tenga en cuenta que la mayoría de las funciones devuelve 0 si finaliza satisfactoriamente, borrando el código anterior. Por tanto, compruebe este código de error en cuanto se produzca.

Como recuperar el último error que se ha producido.

Formulario (Contiene un ControlButton) (Este ejemplo procede de una pagina de trucos de Microsoft, aunque tenia un error !! )

Option Explicit


Private Sub Command1_Click()
    MsgBox InformacionError
End Sub

Modulo

Option Explicit


Public Declare Function GetLastError _
    Lib "kernel32" () As Long
Public 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

Public Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000

Public Function InformacionError() As String
    Dim sError As String * 500
    Dim lErrNum As Long
    Dim lErrMsg As Long

    lErrNum = GetLastError
    lErrMsg = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, _
                ByVal 0&, lErrNum, 0, sError, Len(sError), 0)
    InformacionError = Trim(sError)
End Function

Descargar código : GetLastError.zip

Función GetLastError