Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: LUSBernd am 14.05.07 - 16:16:56
-
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
-
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) )
-
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
-
Ich würde auch den gleichen Beitrag im Dominoforum (http://www.dominoforum.de/modules/newbb/viewtopic.php?topic_id=15633&forum=47&post_id=87215#forumpost87215) beobachten - nicht, dass man hier dort bereits geschriebenes erneut postet.
Bernhard :-P
-
du musst das uidoc auch setzen
edit: ok, dann hast du dort ja schon Hilfe
-
@koehlerbv: jo das bin auch ich. nur mit nem anderen namen. ist verwirrend ich weiß und ich werde es auch noch ändern.
set uidoc = ???
das ist das große rätsel jetzt.
-
hab es:
set uidoc = ws.currentdatabase
;D
Vielen Dank noch einmal für die schnelle Hilfe. Dieses Forum ist Gold wert
-
und das funktioniert so mit der Definition? :o
-
set uidoc = ws.currentdatabase
Ganz bestimmt nicht! Set NotesUIDocument.NotesUIWorkspace.CurrentDocument ja (wenn das wirklich am Ende des oben geposteten Codes funktionieren soll), aber mit einer NotesUIDatabase kann man in diesem Zusammenhang ja nun gar nichts anfangen.
Bernhard