Fehler 5613

[littleS]

Hallo,

ich versuche folgenden sourcecode zu verstehen:

Code

myerrhandle:
	
   If Err = 5613 Then
      Resume Next
   Else	
      Messagebox ".... " & Erl & ": " & Error$
   End If
	
End Sub

Ich hab keine Ahnung was dieser Fehler 5613 sein soll. In der Designerhilfe hab ich bisher nichts gefunden, für Tips wie ich solche Nummern in eine aussagekräftigere Fehlermeldung umwandeln kann, wäre ich dankbar.

s.

[Glombi]

Den Text der Meldung liefert Error$

Was jetzt 5613 ist kann ich nicht sagen. Offenbar eher kein Fehler wegen Resume Next.

Der Programmierer war nachlässig, da er keine Kommentare geschrieben hat.

Andreas

[Marinero Atlántico]

Verändere das in:

Code

If Err = 5613 Then
      print "Fehler: " & Error$ & "(" & Cstr(Err) & ") in Zeile:" & cstr(Erl)
      Resume Next
   Else
      Messagebox ".... " & Erl & ": " & Error$
   End If

dann siehst du entweder in der Statuszeile (Client-Agent) oder in der Log.nsf eine Erklärung für den Fehler sowie die Zeile, wo dieser aufgetreten ist.
Ich würde den Programmierer nicht als nachlässig bezeichnen, sondern als *real asshead*

[Mark³]

oder verwende die OpenLog-Datenbank von openntf und schreibe das so:

Code

If Err = 5613 Then
      Call LogError
      Resume Next
   Else
      Messagebox LogError
   End If

 

[littleS]

Danke das hat mir geholfen.

s.

PS:

Ich würde den Programmierer nicht als nachlässig bezeichnen, sondern als *real asshead*

Ihn so zu nennen, verkneife ich mir jetzt mal  

[Semeaphoros]

Ok, Dokumentation wäre gut gewesen ...

Was eine Errormeldung soll, wenn sie nicht auftritt, lässt sich leicht mit dem Befehl

 error  ErrNo

feststellen.

Error 5613

liefert: User Defined Error ....


Tja, da muss man wohl mal hingehen und im Quellcode weiter nachschauen, wo und wie der ausgelöst wird.

[Glombi]

Die Standardfehlermeldungen und -nummern von Notes findet man im Notes-Programmverzeichnis in den Dateien
lserr.lss, lsxbeerr.lss, lsxuierr.lss

Fehlernummer über 5000 gibt es da nicht.

Andreas

[Mark³]

Error 5613

liefert: User Defined Error ....

besser wäre wohl:

Code

User Undefined Error...

[Semeaphoros]

Wieso?

User defined error heisst schlicht und einfach, diese Errornummer darf vom  Entwickler für eigene Fehlermeldungen - die mit Error xxxx auszulösen sind - verwendet werden. Die Meldung ist schon richtig, setzt aber voraus, dass der "User" = Entwickler auch tatsächlich seine Aufgaben macht. Man kann dem auch noch einen Error-Text mitgeben ....

[TMC]

Was im o.g. Code auch noch fehlt ist ein Resume.
Denn sonst kommt zusätzlich zur Fehlermeldung noch eine weitere Msgbox, dass Resume fehlt (oder so ähnlich...).

[koehlerbv]

"No Resume" nöhlt dann Notes.

Alternativ kann man auch vor dem End Sub nach "myerrhandle" auch ein "Exit Sub" verwenden - das killt den error state ebenso.

Noch ein Tip an das "kleine S": Durchsuche doch mal die DB-Synopse ("Datei - Datenbank - Gestaltungsübersicht") - oder, wenn Du gut ausgestattet bist, mit dem Teamstudio Analyzer - nach dem Vorkommen von "5613" im Quelltext. Da diese Fehlernummer nicht von Notes intern vergeben wird, muss dieser Error code ja auch irgendwo gesetzt werden.

Bernhard

[Semeaphoros]

Genau, irgendwo müsste der gesetzt werden, es sei denn, der kommt von einer externen DLL (LSX .... oder so)