Autor Thema: fehlender Bezug zu uidoc  (Gelesen 1676 mal)

Offline Bille

  • Senior Mitglied
  • ****
  • Beiträge: 258
  • Geschlecht: Weiblich
  • Ich kam, sah und ... staunte!
fehlender Bezug zu uidoc
« 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
« Letzte Änderung: 18.12.06 - 09:16:20 von Bille »
Experience is the name
everyone gives to his mistakes.
                                             (Oscar Wilde)

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: fehlender Bezug zu uidoc
« Antwort #1 am: 16.12.06 - 15:46:54 »
Von wo aus startest Du denn den Agenten?

Bernhard

Offline Bille

  • Senior Mitglied
  • ****
  • Beiträge: 258
  • Geschlecht: Weiblich
  • Ich kam, sah und ... staunte!
Re: fehlender Bezug zu uidoc
« Antwort #2 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
Experience is the name
everyone gives to his mistakes.
                                             (Oscar Wilde)

Offline umi

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.062
  • Geschlecht: Männlich
  • one notes to rule'em all, one notes to find'em....
    • Belsoft AG
Re: fehlender Bezug zu uidoc
« Antwort #3 am: 18.12.06 - 08:30:29 »
Schon mal versucht das Ziel auf "None" zu setzen?
Gruss

Urs

<:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jegliche Schreibfehler sind unpeabischigt
http://www.belsoft.ch
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~:>

Offline Bille

  • Senior Mitglied
  • ****
  • Beiträge: 258
  • Geschlecht: Weiblich
  • Ich kam, sah und ... staunte!
Re: fehlender Bezug zu uidoc
« Antwort #4 am: 18.12.06 - 08:40:11 »
Hab grad das Ziel auf "keines" umgestellt.
Ergebnis ist leider das Gleiche. Das uidoc wird nicht gesetzt.
Experience is the name
everyone gives to his mistakes.
                                             (Oscar Wilde)

Offline umi

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.062
  • Geschlecht: Männlich
  • one notes to rule'em all, one notes to find'em....
    • Belsoft AG
Re: fehlender Bezug zu uidoc
« Antwort #5 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.
Gruss

Urs

<:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jegliche Schreibfehler sind unpeabischigt
http://www.belsoft.ch
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~:>

Offline Bille

  • Senior Mitglied
  • ****
  • Beiträge: 258
  • Geschlecht: Weiblich
  • Ich kam, sah und ... staunte!
Re: fehlender Bezug zu uidoc
« Antwort #6 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
Experience is the name
everyone gives to his mistakes.
                                             (Oscar Wilde)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz