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 )