Errorhandling (nicht existierendes Objekt)

[Jenson]

Hallo zusammen,

gibts eine Möglichkeit im Errorhandling explizit abzufangen wenn ein Objekt mittels "CreateObject" in LotusScript nicht erzeugt werden konnte, weil auf dem Arbeitsplatz das Objekt nicht vorhanden ist Betriebssystemseitig?

Ich habe schon die Designer-Hilfe gewälzt, aber nichts finden können. Das Thema Error-Codes ist da irgendwo versteckt, ich finde es aber mal wieder nicht.

Grüsse


Jenson

[Fedaykin]

Vielleicht hilft Dir ja das. Sonst genauer formulieren was das Problem ist.

Sub Click(Source As Button)
   Dim Object As Variant
   On Error 208 Goto Ende
'   On Error Goto errorHandler
   Set Object=CreateObject("Fantasie.Object")
   On Error Goto 0
   
   Exit Sub
errorHandler:
   Msgbox Err
Ende:
   Exit Sub
End Sub

Gruss
Remo

[Axel]

If Object is Nothing...
  'Fehler


Axel

[koehlerbv]

Scheppern tut es aber bei dem CreateObject - das lässt Dir in der Regel gar keine Chance mehr, auf Object Is Nothing zu prüfen ...

Bernhard

[Axel]

Auch wieder wahr.

Axel

[Jenson]

Danke für den Tipp mit

Code

On Error 208 Goto Ende

das hat geholfen.

Grüsse

Jenson

[Fedaykin]

Witzig ist, das diese Frage Dein 208. Posting war. Wohl ein Fehler in der Matrix.

Gruss
Das Orakel

[Jenson]

:-) Ich habe sowas schon immer vermutet :-)

Grüsse

Jenson