Hallo,
ich habe ein hoffentlich kleines Problem.
ich habe mittels FtSearch eine Volltextsuche generiert. Funktioniert auch tadellos.
Das einzige ist nur, dass ich nicht weiß, mit welchem Befehl ich die Suche aus meiner Picklist in die aktuelle Maske übernehme. Ich probier jetzt schon ewig rum. aber leider ohne Erfolg.
Hier noch meine Abfrage mit einem enthaltenen Fehlversuch zur Übernahme in die aktuelle Maske.
Das ausgewählte Suchergebnis soll in der akteuellen MAske in das Feld empf übernommen werden:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim news As NotesNewsletter
Dim uiws As New NotesUIWorkspace
Dim view As NotesView
Dim collection As NotesDocumentCollection
Dim vc As NotesViewEntryCollection
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set db = session.getdatabase ("", "jacobi/Kontakte.nsf", True)
Set view = db.getView ("Kontakte Namen")
REM Update full-text index
REM Call db.UpdateFTIndex(True)
REM Get query and put in quotes
query$ = Inputbox("Suchbegriff eingeben (Kontakte)", "Query")
If query$ = "" Then Exit Sub
query$ = """" & query$ & """"
REM Get 25 most relevant documents that match the query
Set dc= db.AllDocuments
Call dc.FTSearch(query$, 5)
REM Send newsletter to yourself
If dc.Count > 0 Then
' In einen Ordner kopieren (wird angelegt, falls nicht vorhanden)
Set doc = dc.GetFirstDocument
While Not ( doc Is Nothing )
Call doc.PutInFolder( "Auswahl" )
Set doc = dc.GetNextDocument( doc )
Wend
' Folder anzeigen
Set view = db.getview("Auswahl")
Set vc = View.AllEntries
' Auswahl anzeigen
picklist = ws.PickListStrings(PICKLIST_CUSTOM, _
True,_
"",_
"jacobi/Kontakte",_
"Auswahl",_
"Bitte wählen Sie einen Kontakt",_
"Bitte auswählen",_
1)
' Feld auswählen
Call uidoc.FieldSetText( empf, " " )
' Auswahl löschen
Call vc.removeallfromfolder("Auswahl")
End If
End Sub
Ich hoffe ihr könnt mir behilflich sein
Viele Grüße
