Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB Runtime Error 32755 abfangen
Autor: Michael_HU
Datum: 08.04.13 15:53
Hallo an Alle! bastele gerade an einer vbscript Routine: Sub CommandOpen_Click() On Error GoTo ErrTrap Text1.SetFocus With MDIFormMain.CD1 .Flags = cdlOFNOverwritePrompt + cdlOFNFileMustExist .Filter = "VB Script Files (*.Vbs)|*.Vbs|All Files|*.*" .ShowOpen If Err Then Err.Clear: Exit Sub 'user cancel opening Dim f As Long f = FreeFile Open .FileName For Input As f Text1.Text = Input$(LOF(f), #1) Close f If Err Then MsgBox "Error during load:" + vbCrLf + vbCrLf + Err.Description, , "Error": Err.Clear Caption = .FileTitle + " - Script Editor" Tag = .FileName End With ErrTrap: If Not Err.Number = 0 Then MsgBox "Fehler in Makro: " & Err.Description Err.Clear End If End Sub Habe versucht den Fehler abzufangen, wenn trotz Öffnen des Dialogs nicht auswähle und abbreche. Doch bekomme ich den Run-time Fehler wieder. Ist die Reihenfolge falsch oder wo liegt mein Fehler? Kann mir bitte wer behilflich sein? Danke Vorab. gruß michael

Re: VB Runtime Error 32755 abfangen
Autor: Zardoz
Datum: 08.04.13 17:05
Hallo Michael, lies mal dieses: http://www.vbarchiv.net/forum/id3_i24092t24073_undquot-on-error-resume-nextundquot-tut-nicht-was-es-verspricht.html Aus einem With-End-With-Code besser nicht mit Goto springen. Das kann zu Problemen mit dem Stack führen. Vor der Fehlerbehandlung (ErrTrap)ein Exit Sub einsetzen. Gruss, Zardoz

Re: VB Runtime Error 32755 abfangen
Autor: Michael_HU
Datum: 08.04.13 17:42
Hallo Zardoz, die Fehlermeldung kommt trotzdem, obwohl der leere Script-Editor geöffnet wird. Sub CommandOpen_Click() On Error GoTo Err_handler Text1.SetFocus With MDIFormMain.CD1 .Flags = cdlOFNOverwritePrompt + cdlOFNFileMustExist .Filter = "VB Script Files (*.Vbs)|*.Vbs|Alle Files|*.*" .ShowOpen If Err Then Err.Clear: GoTo Err_handler 'Exit Sub: 'user cancel opening Dim f As Long f = FreeFile Open .FileName For Input As f Text1.Text = Input$(LOF(f), #1) Close f 'If Err Then MsgBox "Hiba a feltöltés közben:" + vbCrLf + vbCrLf + Err.Description, , "Hiba": Err.Clear Caption = .FileTitle + " - Script Editor" Tag = .FileName End With Exit Sub: Err_handler: MsgBox "Fehler während des Ladens:" + vbCrLf + vbCrLf + Err.Description, , "Error": Err.Clea On Error GoTo 0 End Sub

Re: VB Runtime Error 32755 abfangen
Autor: Zardoz
Datum: 08.04.13 18:10
Hallo Michael, Zitat: die Fehlermeldung kommt trotzdem, obwohl der leere Script-Editor geöffnet wird. Was heisst "leerer Editor"? Ist der Optionsbutton "bei nicht verarbeiteten Fehlern" ausgewählt? Gruss, Zardoz

Re: VB Runtime Error 32755 abfangen
Autor: Michael_HU
Datum: 08.04.13 20:38
Nein. Error trapping: bei Break on all errors. gleich das erste. gruß michael

Re: VB Runtime Error 32755 abfangen
Autor: Michael_HU
Datum: 08.04.13 20:54
Hallo Zardoz, jetzt habe ich die dritte aktiviert (break on unhandled errors), so bricht das Programm nicht ab, sondern kommt meine Fehlermeldung. Ich denke, dass so i.O. sei. Demnach muss ich bei allen erdenklichen Routinen eine Fehlerroutine einbauen, wenn ich diese Einstellung beibehalten will. Dank für den Tipp mit der Einstellung. Wäre sicherlich viel später drauf gekommen. Gruß michael

Re: VB Runtime Error 32755 abfangen
Autor: Michael_HU
Datum: 08.04.13 21:18
Und so kommt überhaupt keine Fehlermeldung bei 32755 (cancel)! Sub CommandOpen_Click() On Error GoTo ErrTrap Text1.SetFocus With MDIFormMain.CD1 .Flags = cdlOFNOverwritePrompt + cdlOFNFileMustExist .Filter = "VB Script Files (*.Vbs)|*.Vbs|Alle Files|*.*" .ShowOpen If Err Then Err.Clear: GoTo ErrTrap 'user cancel opening Dim f As Long f = FreeFile Open .FileName For Input As f Text1.Text = Input$(LOF(f), #1) Close f Caption = .FileTitle + " - Script Editor" Tag = .FileName End With Exit Sub: ErrTrap: If Err.Number = 32755 Then 'cancel was selected Else MsgBox "Fehler ist aufgetreten:" + vbCrLf + vbCrLf + Err.Description, , "Error": Err.Clear End If On Error GoTo 0 End Sub

Re: VB Runtime Error 32755 abfangen
Autor: Zardoz
Datum: 08.04.13 22:46
Logisch. Da ist ja auch ein Else zuviel drin. Gruss, Zardoz

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen