Hallo liebe Notes-Experten,
ich habe folgendes Probelm und hoffe auf eure Hilfe:
ich habe eine embedded view in einem Formular. Diese View soll aber in diesem einen bestimmten Formular nur bestimmte Werte anzeigen. Um dies zu tun, möchte ich dass meine Programmierung einen feldwert aus dem Formular mit dem Wert aus einer spalte in der view vergleicht. wenn diese werte übereinstimmen, dann sollen auch nur diese dokumente in der view angezeigt werden.
Folgender Quellcode ist bereits erstellt:
Sub Postopen(Source As Notesuiview)
Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim profile_protocol As Variant
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("Untersuchungskartei")
Set doc = view.GetFirstDocument
Do While Not (doc Is Nothing)
profile_protocol = doc.GetItemValue("Patient")
'Hier fehlt dann noch der Hinweis, dass auf den feldwert zugegriffen werden soll
Set doc = view.GetNextDocument(doc)
Loop
End Sub
Vielleicht kann mir jemans weiterhelfen.....
Vielen Dank schonmal.
Grüße