HCL Domino - Examples: ParentDatabase property - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: ParentDatabase property
1. This script prints the title of the NotesDatabase object from which a document was retrieved (db), and the title of the NotesDatabase object returned by the ParentDatabase property (parentDb). The titles are the same, because db and parentDb represent the same database, SOMEDOCS.NSF.

Dim db As New NotesDatabase( "", "somedocs.nsf" ) Dim parentDb As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Set collection = db.AllDocuments Set doc = collection.GetFirstDocument Set parentDb = doc.ParentDatabase Messagebox( db.Title ) Messagebox( parentDb.Title )

2. This script shows a function that takes a document and returns its parent document (or Nothing if the document has no parent). The function uses the ParentDatabase property to get db, a NotesDatabase object representing the database that doc is in. Once the script has db, it can call GetDocumentByUNID to find doc's parent.

Function GetParentDocument( doc As NotesDocument ) Dim db As NotesDatabase Dim parentDoc As NotesDocument Set db = doc.ParentDatabase If doc.IsResponse Then Set parentDoc = db.GetDocumentByUNID _ ( doc.ParentDocumentUNID ) End If Set GetParentDocument = parentDoc End Function

This function can be called from any script. For example:

dim myQuestion as NotesDocument dim yourAnswer as NotesDocument '...set value of yourAnswer... set myQuestion = GetParentDocument( yourAnswer )

See Also

ParentDatabase property

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents