Hier:
Der Code mit dem Search:
Dim checkCollection As NotesDocumentCollection
Dim formel As String
Dim pathname As String
pathname = doc.GetItemValue(CATALOG_FIELD_DATABASE_FILE_NAME$)(0)
formel = {Form = "}+FORM_NAME$+{" & } + FIELD_FILE_NAME$ +{ = "}+pathname+{"}
Print formel
Print SEARCH_FORMULA$
Set checkCollection = target.Search(formel,Nothing,0)
Die Konstanten:
'Gerätedatenbankfeldnamen
Const FIELD_CATEGORY$ = "Softwarekategorie"
Const FIELD_FILE_NAME$ = "SWDateiname"
Const FIELD_REPLICA_ID$ = "ReplicaID"
Const FIELD_DATABASE_TITLE$ = "SWName"
'Katalogfeldnamen
Const CATALOG_FIELD_DATABASE_TITLE$ = "Title"
Const CATALOG_FIELD_DATABASE_FILE_NAME$ = "Pathname"
Const CATALOG_FIELD_REPLICA_ID$ = "ReplicaID"
Const FORM_NAME$ = "Software"