Hallo,
danke erstmal für eure Antworten!
Ich werde mir auch die Lernscripte noch besorgen.
Prinzipiell kannst du einem Agenten keinen Parameter übergeben (von einer Ausnahme abgesehen). Du musst in deinem Fall innerhalb des Agenten auf das Dokument mit dem Feld zugreifen. Schau dir dazu mal die Methode GetDocumentByKey aus der Klasse NotesView in der Designer-Hilfe an. Dort sind auch genügend Beispiele vorhanden.
Also.. ich habe für das Dokument eine Maske mskKonfiguration erstellt. Es existiert ein Dokument das mit dieser Maske erstellt wurde. Wenn ich eine Ansicht AnsKonfiguration erstelle und als Bedingung die Dokumente angebe die damit erstellt wurden kann bekomm ich eine Liste mit einem Eintrag,
[1] aber wie kann ich gleich dieses eine zurückgegebene Dokument anzeigen lassen und nicht die Liste?
Wegen der Wertübergabe an den Agenten...
Habe in der Hilfe folgenden Code gefunden:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
key = "Leather"
Set db = session.CurrentDatabase
Set view = db.GetView ("By Category" )
Set doc = view.GetDocumentByKey (key )
If Not (doc Is Nothing) Then
Messagebox "$" & doc.GetItemValue ("Price")(0),, _
"Price"
Else
Messagebox "By Category " + key,, "Not found"
End If
End Sub
In meiner Ansicht gibt es nur eine Spalte, Spalte1 und die zeigt als Spaltenwert die einfache Funktion "Nummer in Ansicht" an, so daß der tatsächlich angezeigte Wert "1" ist.
Müsste dann der benötigte Code bei mir ungefähr so aussehen, oder?
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
key = "1"
Set db = session.CurrentDatabase
Set view = db.GetView ("AnsKonfiguration" )
Set doc = view.GetDocumentByKey (key )
If Not (doc Is Nothing) Then
Messagebox "$" & doc.GetItemValue ("txtCoordinatorErinnerung")(0),, _
"Titel der Messagebox"
Else
Messagebox "By Category " + key,, "Not found"
End If
End Sub
Wenn ich auf meiner Maske mskKonfiguration einfach testweise mal einen Hotspot-button einfüge und ihm den Code auf das Clickereignis lege dann kommt die Fehlermeldung:
Object variable not set
(Ab dem zweiten Click auf den Button passiert einfach gar nichts mehr !? :-: )
Vielen Dank für eure Hilfe!
Andreas
Du meinst AnsKonfiguration und AnsKategorie. War ein Fehler. Nun funktioniert das Script zumindest syntaktisch. Semantisch scheints jedoch noch fehlerhaft zu sein, da ich jetzt ein "$" also den If-Zweig zurückbekomme aber noch nicht den Inhalt meines Text-Feldes "txtCoordinator".
hier nochmal der Code:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
key = "1"
Set db = session.CurrentDatabase
Set view = db.GetView ("AnsKonfiguration" )
Set doc = view.GetDocumentByKey (key )
If Not (doc Is Nothing) Then
Messagebox "$" & doc.GetItemValue ("txtCoordinatorErinnerung")(0),, _
"Titel der Messagebox"
Else
Messagebox "By Category " + key,, "Not found"
End If
End Sub