Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Bille am 16.12.06 - 15:19:54

Titel: fehlender Bezug zu uidoc
Beitrag von: Bille am 16.12.06 - 15:19:54

Ich hab wieder ein Verständnisproblem mit dem NotesUIDocument.

In einer Datenbank habe ich eine "Auswertungsmaske", in der die Kollegen bestimmte Kriterien anhaken können. Gemäß dieser Kriterien sollen dann die Dokumente gesucht und in einer Ansicht dargestellt werden.
Durch die Suche im Forum bin ich draufgekommen, dass ich die Suche in einen Agenten auslagern soll, um danach auf die Ansicht wechseln zu können.

Button in Auswertungsmaske:

Code

@Command( [ToolsRunMacro] ; "Suche" ) ;
@Command([OpenView];"Ergebnis")

Agent "Suche":

Code

	Dim s As New NotesSession     
	Dim db As NotesDatabase
	Set db = s.CurrentDatabase
	Dim ws As New notesuiworkspace
	Dim doc As NotesDocument 
        Dim uidoc as NotesUIDocument
        Set uidoc = ws.currentdocument
	Set doc = uidoc.Document 
	Dim col As NotesDocumentCollection
	Dim Selektion As String

	Selektion = "FIELD Lage = "   & doc.Lage(0)
	Set col = db.FTSearch (Selektion, 0)        

In der Zeile "Set doc = ws.currentdocument.Document " kommt der Fehler "Object variable not set", da er das uidoc nicht hat.
Wie stelle ich hier den Bezug zu den Daten in der Auswertungsmaske her?

Gruß
Bille

Titel: Re: fehlender Bezug zu uidoc
Beitrag von: koehlerbv am 16.12.06 - 15:46:54

Von wo aus startest Du denn den Agenten?

Bernhard

Titel: Re: fehlender Bezug zu uidoc
Beitrag von: Bille am 18.12.06 - 08:03:07

Servus Bernhard,

der Agent wird durch das Click-Ereignis in einer Schaltfläche der Maske "Auswertung" gestartet (siehe Post#1).
Der o.g. Code steht im Initialize des Agenten "Suche".
Einstellungen des Agenten:
- Auslösen durch Ereignis
- Auswahl im Menü Aktionen
- Ziel: Alle Dokumente in der Ansicht

Bille

Titel: Re: fehlender Bezug zu uidoc
Beitrag von: umi am 18.12.06 - 08:30:29

Schon mal versucht das Ziel auf "None" zu setzen?

Titel: Re: fehlender Bezug zu uidoc
Beitrag von: Bille am 18.12.06 - 08:40:11

Hab grad das Ziel auf "keines" umgestellt.
Ergebnis ist leider das Gleiche. Das uidoc wird nicht gesetzt.

Titel: Re: fehlender Bezug zu uidoc
Beitrag von: umi am 18.12.06 - 09:05:43

Evtl. hat es was mit der Ausführungsreihenfolge im Button zu tun.
Versuche doch mal das @command([OpenView].. wegzulassen
und dann im Agenten die View zu öffnen.

Titel: Re: fehlender Bezug zu uidoc
Beitrag von: Bille am 18.12.06 - 09:16:03

Super, Urs!
Genau daran hat's gelegen.

Ich hab die Formel im Button auf

Code

@Command( [ToolsRunMacro] ; "Suche" ) ;
@PostedCommand ([OpenView];"Ergebnis")

geändert. Jetzt wird das uidoc gesetzt und ich kann somit auf die Daten im Auswertungsdokument zugreifen.

Vielen Dank für die Hilfe
Bille
 :D