Programación General > Visual Basic 6.0 e inferiores

 Captura De Errores

(1/1)

Nalah:
Me voy a volver loca con todo esto. madre mia. bueno otra consultilla.
Como capturo errores? me lo han explicado en clase pero tal y como lo tengo en los apuntes no me funciona. asi es como lo he puesto. decidme donde esta el error o como se debe poner correctamente.

[Private Sub MnuAltas_Click()
     on error goto tratamiento
      --------------
      -----------
      -----------------
end sub

Private Sub Tratamiento ()
   select case err:
       case 3201:
             x=msgbox("debe introducir dato")
             exit sub
       case 3421:
             x=msgbox("debe seleccionar cliente")
             exit sub
   end select
end sub]

No se como hacerlo

Muaka

cpmario:
Algo así te debe servir:


--- Código: Text ---Private Sub MnuAltas_Click()    On Error GoTo Tratamiento    '--------------    '-----------    '-----------------Exit SubTratamiento:    Select Case Err.Number        Case 3201:            MsgBox "Debe introducir dato"        Case 3421:            MsgBox "Debe seleccionar cliente"        Case Else            MsgBox "Error al dar de alta"    End SelectEnd Sub  :comp:

CAMELPC:
EFECTIVAMENTE!!!!
Lo he comprobado asi y es correcto. Qu habria hecho yo sin este foro!!! jeje Bueno igual en breve vuelvo por aki

Nalah:
bueno el mensaje anterior era mio tb. es q estaba en casa de mi novio y me he confundido. ahora ya sabeis quienes somos jejejej.

Bueno lo dicho. Muchas gracias y un besazo


muaka

Navegación

[0] Índice de Mensajes