Suchmaske mit "Suchmöglichkeit auf Feldebene"

    Hi !


    habe folgendes Problem mit meinem Script.
    Ich habe in einer Datenbank eine Suchmaske erstellt mit den Felder Kategorie, Autor, Datum, Bereich und Thema.
    Ich möchte gern auf "Feldebene" eine Volltextsuche starten und das Ergebnis dann anzeigen lassen.
    Die Volltextsuche klappt auch soweit, aber leider nicht auf "Feldebene". :( sondern auf den kompletten Inhalt der Dokumente.


    Da ich schon froh bin, dass es soweit klappt, wäre ich über jeden Hinweis (oder Beispiel) dankbar, wie man die Suche erweitern kann. :)
    Danke vorab.




    LS:


    Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim nam As NotesName
    Dim dc As NotesDocumentCollection
    Dim vc As NotesViewEntryCollection
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim query As Variant


    Set uidoc = workspace.CurrentDocument
    Set doc = uidoc.Document
    Set db = session.CurrentDatabase



    If doc.suche_kategorie(0) <> "" Then
    query = doc.suche_kategorie(0)
    End If

    If doc.suche_autor(0) <> "" Then
    If query = "" Then
    query = doc.suche_autor(0)
    Else
    Set nam = New NotesName(doc.suche_autor(0))
    query =query + " & "+nam.Common
    End If
    End If


    If doc.suche_bereich(0) <>"" Then
    If query = "" Then
    query = doc.suche_bereich(0)
    Else
    query = query + " & " + doc.suche_bereich(0)
    End If
    End If



    If doc.suche_thema(0) <>"" Then
    If query = "" Then
    query = doc.suche_thema(0)
    Else
    query = query + " & " + doc.suche_thema(0)
    End If


    End If



    Set nname = New NotesName(session.EffectiveUserName)
    folderName = "("+Left("Suche" + nname.Abbreviated,60)+")"
    Call db.enableFolder(foldername)
    Set folder = db.GetView(foldername)

    Set view = db.GetView("$All")
    Set vc = view.AllEntries
    Call vc.RemoveAllFromFolder(foldername)


    If query = "" Then Exit Sub
    Set dc = db.FTSearch(query, 0)
    If dc.Count > 0 Then
    Call dc.PutAllInFolder(foldername,True)
    End If


    If Not folder Is Nothing Then
    'Open folder on screen
    Set uidb = workspace.CurrentDatabase
    Call workspace.SetTargetFrame("suche_unten")
    Call uidb.OpenView(foldername)
    Call workspace.ViewRefresh
    End If


    Call uidoc.Refresh

    'Msgbox "Es wurden "+Cstr(dc.Count)+ " Dokumente gefunden. Klicken Sie auf 'Ansicht aktualisieren' , um die Treffer anzuzeigen."
    End Sub