OpenOffice.info

Hi Jeannot,

[quote="Jeannot"]«Err» deklarieren ändert nix. [/quote]

da habe ich mich wohl leider nicht klar genug augedrückt.

Wenn man <<Err>> deklariert [b]dann[/b] wird die 0 ausgegeben!!

Jürgen

Hallo Jürgen,

«Err» deklarieren ändert nix. Dir Fehlernummer bleibt 0. Die OOo Version stammt in der Tat aus der Kubuntu-Distri. Ich werde diese ersetzen. Dann geht's vielleicht. Werde jedenfalls das Resultat hier posten.

Besten Dank und viele Grüße!

Jeannot

Fehlermeldung=Division by zero.

Dim Err as integer

Guten Morgen Jeannot,

[quote="Jeannot"]Komisch was?[/quote]
In der Tat.

Denn der Fehler wird ja richtig erkannt:
[code]Fehlermeldung=Division by zero.[/code]
und müsste deshalb auch die richtige Fehlernummer ausgeben.

Bei meinen Tests auf Win-Basis:

OOo 3.0
OOo 2.4.1
OOo 2.4.1 portable

wird immer die Fehlernummer 11 ausgegeben.

Man kann den Fehler provozieren, wenn man Err z.B. vorher deklariert:
[code]Dim Err as integer[/code]

Andrer Ansatz:
Verwendest Du die in der Distri mitgelieferte OOo Installation oder hast Du OOo separat installiert?
In der Vergangenheit hat sich nämlich gezeigt, dass in der Distri enthaltene OOo-Installationen in
manchen Bereichen leider nicht ganz sauber arbeiten.

Trotzdem weiterhin viel Erfolg.

Jürgen

Fehlernummer=0
Fehlermeldung=Division by zero.
Zeile=62

Hallo Jürgen,

Genauso ist es:
[code]Fehlernummer=0
Fehlermeldung=Division by zero.
Zeile=62[/code]
Komisch was?

Gruß!

Jeannot

Sub ProcedureName_1   
	On Error Goto ErrorHandler
	Dim Ergebnis, i, j as double
	I = 0
	j = 4
	Ergebnis = J / I
	ErrorHandler:
	MsgBox "Fehlernummer: " + Err
	MsgBox "Fehlermeldung: " + Error$
	MsgBox "Zeile: " + Erl
	   Select Case Err
	      Case 0
	      msgbox "Fehlernummer = 0 "
	      Case Else
	      msgbox "Fehlernummer > 0 "   
	   End Select
End Sub

Hi Jeannot,

bekommst Du hiermit auch die Fehlernummer 0?

[code]Sub ProcedureName_1
On Error Goto ErrorHandler
Dim Ergebnis, i, j as double
I = 0
j = 4
Ergebnis = J / I
ErrorHandler:
MsgBox "Fehlernummer: " + Err
MsgBox "Fehlermeldung: " + Error$
MsgBox "Zeile: " + Erl
Select Case Err
Case 0
msgbox "Fehlernummer = 0 "
Case Else
msgbox "Fehlernummer > 0 "
End Select
End Sub[/code]

Jürgen

Sub ProcedureName
	
	On Error Goto ErrorHandler
	
ErrorHandler:
	Select Case Err
		Case 0
		Case Else
			Call GlobalErrorHandler(Error,Err,"ModuleName","ProcedureName",Erl)
	End Select

End Sub

OOo = Version 2.4.1 / OS = Linux Kubuntu Hardy Heron

Hallo,

Habe folgenden Code in meinen Prozeduren eingebaut um Laufzeitfehler elegant aufzufangen:
[code]Sub ProcedureName

On Error Goto ErrorHandler

ErrorHandler:
Select Case Err
Case 0
Case Else
Call GlobalErrorHandler(Error,Err,"ModuleName","ProcedureName",Erl)
End Select

End Sub[/code]
Die globale Prozedur «GlobalErrorhandler» gibt im Falle eines Fehlers eine Meldung mit den nötigen Parametern aus. Die Select-Case Konstruktion hilft mir bei Bedarf anders zu reagieren, indem ich die betreffende Fehlernummer einbaue.

[u]Das Problem[/u]: die Fehlernummer ist immer 0 gleichgültig welcher Fehler auftaucht! Ich kann also genauso gut ein «[i]On Error Resume Next[/i]» an den Anfang jeder Prozedur setzen. Der Effekt ist der Gleiche. «Err.Number» statt einfach «Err» bringt auch nichts, da die Eigenschaft «Number» die Standardeigenschaft des Err-Objekts ist.
Ist das ein Bug dieser Version oder habe ich etwas Wesentliches übersehen? Würde mich freuen wenn jemand von euch mir unter die Arme greifen könnte.

Danke im Voraus und beste Grüße!

Jeannot