Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Hans Joachim am 19.04.06 - 11:54:17

Titel: Problem mit Konstanten in LotusScript
Beitrag von: Hans Joachim am 19.04.06 - 11:54:17
Hallo, ich habe folgendes Problem: Er bringt immer den Fehler "Type mismatch". Woran könnte dies liegen?

Const ERR_SET_VIEW = "Ansicht nicht gefunden"

Sub Click(Source As Button)
   ...
   Set viewTimeRecording = db.GetView "Ansichtsname")
   If viewTimeRecording Is Nothing Then Error ERR_SET_VIEW
   ...
End Sub


 ???


Titel: Re: Problem mit Konstanten in LotusScript
Beitrag von: MadMetzger am 19.04.06 - 11:56:41
Vielleicht hilft ein Dollarzeichen hinter dem Konstantennamen, damit es implizit zum String deklariert wird.

Bei der Gelegenheit werde ich auch mal eine Frage zu Konstanten los: Kann man Konstanten nur per Suffix einen Typ verpassen? Oder geht auch irgendwie mit "As String"?
Titel: Re: Problem mit Konstanten in LotusScript
Beitrag von: animate am 19.04.06 - 11:58:37
Type mismatch bedeutet, dass du einen Variablentyp (z. B. String) verwendest, wo ein anderer (z. B. Integer) erwartet wird. In deinem Fall musst du mal einen Blick auf die Dokumentation des Error-Statements werfen.
Titel: Re: Problem mit Konstanten in LotusScript
Beitrag von: Hans Joachim am 19.04.06 - 12:02:38
Das mit dem Dollarzeichen hinter dem Konstantennamen funktioniert leider nicht. Wenn man ein "As String" einfügt, meckert er das auch an. Ich werde mir wohl mal die Dokumentation zum "ERROR" Statement anschauen müssen.

Danke
Titel: Re: Problem mit Konstanten in LotusScript
Beitrag von: Untitled am 19.04.06 - 12:03:49
@MadMetzger

Geht meines Wissens leider nur per Suffix.
Titel: Re: Problem mit Konstanten in LotusScript
Beitrag von: Hans Joachim am 19.04.06 - 12:15:35
So funktionierts laut "Error"- Statement

Const ERR_SET_VIEW = 1001   'Werte von 1000 bis 2000 erlaubt, da diese für User-defined freigehalten werden

Sub Click(Source As Button)
   ...
   Set view = db.GetView "Ansichtsname")
   If view Is Nothing Then Error ERR_SET_VIEW, "Fehler: Ansicht nicht gefunden"
   ...
End Sub


Danke nochmals für Eure Hilfe. Hiermit ist dann mein Problem schon gelöst.