LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim db As New NotesDatabase( "", "mother.nsf" ) Dim parentDb As NotesDatabase Dim collection As NotesDocumentCollection Set collection = db.AllDocuments Set parentDb = collection.Parent Messagebox( db.Title ) Messagebox( parentDb.Title ) End Sub
See Also