Domino 9 und frühere Versionen > ND8: Entwicklung

Fehler im Agenten (Unknown gefunden, Unknown erwartet)

<< < (4/4)

Peter Klett:
Du kannst doch in Deinem Errorhandler die einzelnen Fehlernummern abfragen, dann brauchst Du keine mehrfachen On Error's

Glombi:
Wie das Error handling funktioniert, kannst Du am besten in der Designer Hilfe für In Error Statement nachlesen. Da steht dann bspw.

How does On Error work?
An On Error statement is in effect from the time the statement runs until superseded by another On Error statement or until control returns to the calling procedure:

An On Error statement that specifies an error number affects only that error. An On Error statement that specifies no error number affects all errors. For a given error, the effective On Error statement is the most recently executed that either specifies the error number or specifies no error number.

An On Error statement is not in effect for an error in the following cases:
No On Error statement that affects the error has run.

The most recently executed On Error statement that affects the error is On Error GoTo 0.

If the current procedure does not handle an error, the On Error statements in the calling procedure process the error. If no procedure handles the error, processing terminates with output of the error message.

schroederk:
Ich hab noch eine Frage, bezüglich meines Scripts. Wollte dafür nicht extra einen neuen Thread aufmachen:

Überfolgenden Code kann der Benutzer eine DB auswählen. Die Auswahl wird in dbname gespeichert.

--- Code: ---Dim dbname As Variant
dbname=CurrUIWs.Prompt(13, "", "")

--- Ende Code ---

In dbname(0)  steht der Server, in dbname(1) der Name und Pfad und in dbname(3) der Titel der DB.

Wie kann ich diese Struktur manuell nachbauen?

Wenn ich das über

--- Code: ---Dim CurrSession As New NotesSession
Dim CurrDB As NotesDatabase

Set CurrDB = CurrSession.CurrentDatabase

Dim dbname As Variant
Dim dbdir As New NotesDbDirectory(CurrDB.Server)
Dim db As NotesDatabase

Set db = dbdir.GetFirstDatabase(DATABASE)

MsgBox "-> " & db.Server & " " & db.Filename & " " & db.Title

dbname(0) = db.Server
dbname(1) = db.Filename
dbname(2) = db.Title

--- Ende Code ---
nachbauen möchte, quittiert mir Notes das mit "Variant enthält keinen Container"

Die MsgBox zeigt alle Werte korrekt an.

Peter Klett:
Dim dbname As Variant
Redim dbname (2)
dbname(0) = db.Server
dbname(1) = db.Filename
dbname(2) = db.Title

schroederk:
Vielen Dank, das hat mir sehr geholfen.

Navigation

[0] Themen-Index

[*] Vorherige Sete