Notes Clinet Search
Posted on 2006-07-14
I have a home made portal in Notes 6.5 used on the client. It is frame based, I have one frame that I have populate dwith a "search engine" (lets call it that) I have a form with a field that the user will input a persons name, either last or first, department, etc, then they click on a button to start the search: this is the button script:
Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim news As NotesNewsletter
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set uidoc = ws.currentdocument
Set doc = uidoc.document
searchFormula$ = doc.BasicSearch(0)
If searchFormula$ = "" Then
Set dc = db.FTSearch(searchFormula$, 0)
Set news = New NotesNewsletter(dc)
news.DoScore = False
news.DoSubject = True
news.SubjectItemName = "DeptTitle"
Set doc = news.FormatMsgWithDoclinks(db)
doc.subject = "Search Results For: " & searchFormula$
doc.form = "Search"
doc.SaveOptions = "0"
Set uidoc = ws.EditDocument(False, doc)
This script searches the current db, I want to search my Employee database (by name view) and return either a record or a list of results either is fine with me....All help is appreciated......