Problem mit Konstanten in LotusScript

[Hans Joachim]

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

 

[MadMetzger]

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"?

[animate]

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.

[Hans Joachim]

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

[Untitled]

@MadMetzger

Geht meines Wissens leider nur per Suffix.

[Hans Joachim]

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.