RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  48404 - ATRAPAR ERRORES EN VB
Autor:  marga gregorio
Hola, me estoy volviendo loca para intentar gestionar un error de tipos que me da este cachito de código

Private Sub guardarLIB_RG(ByRef lib As String, ByRef destino As Integer)

On Error GoTo TRATAR

If (CInt(lib) < 99) Then
LIBs_RG(CInt(lib)) = LIBs_RG(CInt(lib)) + 1
num_LIBs_RG = num_LIBs_RG + 1
End If

Exit Sub

TRATAR: Errores.Label8 = "Error de tipos"

End Sub

El if da error de tipos porque en vez de leer un entero a veces puede leer un string pero porque no me salta a la etiqueta TRATAR? Me estoy rallando muchisimo, asique si alguien me puede decir donde estoy metiendo la pata, muchisimas gracias :)


Nombre
Apellidos
Correo
Comentarios