Domino 9 und frühere Versionen > ND6: Entwicklung

Übernahme Wert aus FtSearch

(1/2) > >>

LUSBernd:
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

DAU-in:
Ist das uidoc im Editiermodus?
und wenn das feld "empf" heisst und nicht der Feldname in der Variablen enthalten ist, muss es als String übergeben werden.
Und picklist gibt einen variant zurück, und fieldsettext setzt nur einen String, du musst dann das entsprechend setzen, aktuell setzt du dort einen Leerstring.

Call uidoc.FieldSetText( "empf", picklist(0) )

LUSBernd:
danke erst einmal für die schnelle antwort.

das ganze ist im edititermodus.

ich habe den befehl jetzt so ausprobiert und bekomme als fehlermeldung zurück
"Object variable not set"

Ich dachte ja ich hätte schon alle definiert. aber irgendwie bin ihc angsam betriebsblind und sehe wohl irgeneinen offensichtlichen Fehler nicht

koehlerbv:
Ich würde auch den gleichen Beitrag im Dominoforum beobachten - nicht, dass man hier dort bereits geschriebenes erneut postet.

Bernhard  :-P

DAU-in:
du musst das uidoc auch setzen

edit: ok, dann hast du dort ja schon Hilfe

Navigation

[0] Themen-Index

[#] Nächste Seite