Übernahme Wert aus FtSearch

    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, " " ) :hammer:
    ' Auswahl löschen
    Call vc.removeallfromfolder("Auswahl")

    End If
    End Sub



    Ich hoffe ihr könnt mir behilflich sein


    Viele Grüße