VB6: On Error GoTo Anweisung wird ignoriert

  • VB6

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Neptun.

    VB6: On Error GoTo Anweisung wird ignoriert

    Hintergrund:
    Ein Word-Dok wird schrittweise durch den User gesteuert gefüllt.
    Er entscheidet, wann das Word-Dok beendet wird
    Problem:
    Wenn das Word-Dok nicht mehr aktiv ist, greift VB ins Leere.
    Die Anweisung On Error Resume Next oder     On Error GoTo FEHLER
    Wird nicht ausgeführt.
    Kann mir jemand helfen ???

    Visual Basic-Quellcode

    1. Dim objAnw As Object
    2. Dim objDok As Object
    3. Private Sub Word_Start()
    4. Set objAnw = CreateObject("Word.Application")
    5. With objAnw
    6. .Visible = True: .Activate: .WindowState = wdWindowStateNormal
    7. End With
    8. Set objDok = objAnw.Documents.Add(App.Path & "\Test.dot")
    9. End Sub
    11. Private Sub Word_Vorschau()
    12. 'wird mehrfach wiederholt
    13. On Error Resume Next ' Oder
    14. 'On Error GoTo FEHLER ' <<<
    15. objDok.Content.InsertAfter "TEXTE"
    16. If ERR.Number <> 0 Then
    17. GoTo FEHLER
    18. End If
    19. GoTo Ende
    20. FEHLER:
    21. If ERR.Number = 462 Then 'Laufzeitfehler MsgBox " Fehler Nr. = " & ERR.Number & " " & ERR.Description
    22. Call Word_Start
    23. Else
    24. End If
    25. On Error GoTo 0
    26. Ende:
    27. End Sub

    Danke und Gruß Wini

    ich würde On Error GoTo FEHLER nemen:

    Visual Basic-Quellcode

    1. On Error GoTo FEHLER
    3. 'deine Anweisungen
    4. '...
    5. '...
    7. Exit Sub
    8. Fehler:
    9. Reset


    Mit On GoTo keine saubere programmierung, warum nimmst du Prozeduren/ Functionen nicht, ist doch viel einfacher und übersichtlicher !

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Alex2000“ ()

    Alex vielen Dank.

    Das Problem das ich habe ist, >On Error Goto FEHLER< wird nicht angsprochen.
    Auch wenn ich es so realisiere wie du es vorschlägst.

    Was kann der Grund sein, daß VB die Goto-Anweisung nicht anspringt?

    Gru Wini