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 :) |