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:
| @Command( [ToolsRunMacro] ; "Suche" ) ; |
| @Command([OpenView];"Ergebnis") |
Agent "Suche":
| 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