Ich möchte eine sehr dynamische Suche erstellen. Dazu habe ich ein kleines Script geschrieben.
Code
Dim s As New notessession
Dim ws As New notesuiworkspace
Dim ui As notesuidocument
Dim doc As notesdocument
Dim view As notesview
Dim db As notesdatabase
Dim searchcol As notesdocumentcollection
Set ui=ws.currentdocument
Set db=s.currentdatabase
Set view=db.getview("Suchergebnisse")
Set doc=view.getfirstdocument
Print "Suchergebnisordner wird gelöscht!"
While Not(doc Is Nothing)
Call doc.removefromfolder("Suchergebnisse")
Set doc=view.getfirstdocument
Wend
Print "Suche wird ausgeführt. Bitte haben Sie etwas Geduld!"
'Suchkriterien umsetzen
Set searchcol=db.FTSearch(ui.fieldgettext("Suche"),0)
Set doc=searchcol.getfirstdocument
While Not(doc Is Nothing)
Call doc.putinfolder("Suchergebnisse",True)
Set doc=searchcol.getnextdocument(doc)
Wend
Alles anzeigen
Den Suchstring möchte ich im Dialog mit dem Nutzer generieren; der Nutzer soll angeben welches Feld durchsucht werden soll und mehrere Suchkriterien sollen mittels AND (eventuell zusätzlich mit OR) verknüpft werden können.
Gibt es eine Möglichkeit alle Felder auslesen zu lassen oder muss ich diese als Auswahlmöglichkeit gedachten Felder alle einzeln einzutragen?