on error goto...????

Saludos

Nohel Hernandez
Caracas - Venezuela

(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro

"er diegui" escribió:

tengo en mi programa la sentencia On Error Goto
ControlErrores, ...
... tengo un bukle ke se repite 3 veces, la primera
vez me lo hace korrektamente, pero a partir de la
segunda, no va a la etiketa... alguien sabe xq
puede ser esto???

Hola

En la rutina de control de errores «ControlErrores», por casualidad no
tendrás escrita la instrucción «On Error GoTo 0», ya que la misma desactiva
el controlador de errores del procedimento donde se halla incluido dicha
rutina. Prueba lo siguiente:

Private Sub Command1_Click()
Dim x As Integer

On Error GoTo ControlErrores

' Simulamos tres errores
For x = 0 To 2
Error x
Next

Exit Sub

ControlErrores:
MsgBox Err.Description
Resume Next
End Sub

Un saludo

Enrique Martínez
[MS MVP - VB]

mutxas grazias x las kontestaziones, pero lo he
soluzionado... el kodigo ke yo tenia era el siguiente:

Private Sub Form_Load()
Dim x As String

On Error GoTo ControlErrores

Open miFicherodeDatos For Input As #numfich

LeerSiguienteRegistro:

Do While not EOF(numfich)

'Dentro del bukle lo ke hago es leer el
'siguiente registro del fichero y provocar un error
'para que vaya a la etiketa controlErrores

Loop

Fin:
Exit Sub

ControlErrores:

'Si el tipo de error que se ha producido no me permite
'kontinuar, lo envio a la etiketa Fin, pero si sí me lo
'permite, lo envio a la etiketa LeerSiguienteRegistro,
'ya ke según mis necesidades lo ke debe hacer es pasar
'siguiente registro del fitxero, y no kontinuar donde
'se ha producido el error.

if Err.Number=X then
Goto Fin
else
Goto LeerSiguienteRegistro
end if
End Sub

al final, kambiando las llamadas ke tenia en mi etiketa
ControlErrores a las etiketas Fin y LeerSiguienteRegistro
se ha soluzionado todo... en lugar de hacer un Goto Fin,
debia poner un Resume Fin... pekeño fallo pero ke me trajo
de kabeza...
en serio, grazias