Problem mit Evaluate

[Mandalor]

Hallo,

ich habe ein problem mit Evaluate.

Ich habe folgendes vor:

^{dim code as string
code = doc.code(0)
dim erg as variant
erg = Evaluate(code)}

geht alles super, nur wenn in dem Feld code unsinn drin steht, geht nichts mehr

(erg = Evaluate(@if(@iserror(code);"Fehler";code)) hat auch nicht funktioniert.

[Glombi]

Du kannst ein
On Error goto ErrorHandling einbauen

Du kannst DSir mit Err die Fehlernummer mal ausgeben lassen und ein spezielles Error Handling für das Evaluate machen:

On Error <Error nr> goto ErrorHandlingEvaluate

In R6 gibt es nun die Funktion
@CheckFormulaSyntax(Formeltext)

Damit kannst Du in der Maske prüfen, ob die Formel korrekt ist.

Andreas

[Mandalor]

Danke, ich habe echt vergessen, dass es auch unter R5 laufen soll. bin so an R6 gewöhnt, dass ich es hier rein gepostet habe.

Entschuldigung

[Mandalor]

habe es mal so versucht:

^{Function eval(doc As NotesDocument, code As String, n As Integer) As Variant
   On Error Goto errorLabel
   eval=Evaluate(code,doc)
   Exit Function
errorLabel:
   eval="Fehler"
End Function}

Funktioniert super, wenn kein fehler in der Formel ist, naja der rest dürfte klar sein: wenn ein Fehler drin ist dann

Was mache ich falsch

[TMC]

wenn ein Fehler drin ist dann

Dann was 
Was willst Du den machen, wenn ein Fehler auftritt?

Vermutlich kommt bei Dir auch ein "No Resume", wenn ein Fehler auftritt, schau Dir mal diesen Thread an zu ErrorHandling:
http://www.atnotes.de/index.php?topic=11980.0

[koehlerbv]

Wie Matthias geht es mir auch: Ich habe keinen Plan, auf was Du jetzt hinauswillst.

Ich habe mal an meiner Kristallkugel gerieben:
Wenn Du innerhalb des error handlings herausbekommen, ob es das Evaluate war, was in die Hose gegangen ist: Dann musst Du prüfen, ob dann Err den Wert 1024 hat. Dies bedeutet dann, dass der Formelausdruck fehlerhaft war.

Bernhard

[Mandalor]

Sorry!

Wenn der Fehler auftritt soll die Function einfach einen Fehler zurückgeben.

Ich habe meinen Fehler auch bemerkt und wollte gerade die Lösung hineinposten:

im Fehlerhandlich Fehlte die Zeile exit Function, sonst kommt No RESUME.