Ich will eine DocumentCollection aufbauen - aber es landet dort einfach nix.
Ja schon aber nur dann wenn ich die variante 1 verwende - variante 2 bring nix !!!
Variante 1: searchFormula = {Form = "KundeKontakt"}
Variante 2: searchFormula = {Form = "KundeKontakt" & "FIELD KundenNummer=yy"}
Is da im Coding was falsch ?
Oder falsche Erwartungshaltung meinerseits ?
Sub Exiting(Source As Field)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim searchdoc As NotesDocument
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.document
Set db=session.CurrentDatabase
kundenkontakt=doc.getitemvalue("Kundenkontakt")
kundennummer=doc.GetItemValue("KundenNummer")
xx$=kundenkontakt(0)
yy$=kundennummer(0)
searchFormula = {Form = "KundeKontakt" & "FIELD KundenNummer=yy"}
Set collection = db.Search(searchFormula, Nothing,0)
Set searchdoc = collection.GetFirstDocument()
End Sub