例: ParentDatabase property

次のスクリプトは文書の取得元の NotesDatabase オブジェクト (db) のタイトルと ParentDatabase プロパティから返された NotesDatabase オブジェクト (ParentDb) のタイトルを表示します。db と parentDb は同じデータベース 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 )
```
次のスクリプトは文書を取得してその親文書を返す関数です。文書に親文書がないとき、Nothing を返します。関数は ParentDatabase プロパティを使用して、doc があるデータベースを表す NotesDatabase オブジェクト db を取得します。スクリプトは db を取得した後、GetDocumentByUNID を呼び出し、doc の親文書を検索します。
```
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
```
この関数は任意のスクリプトから呼び出し可能です。以下に例を示します。
```
dim myQuestion as NotesDocument
dim yourAnswer as NotesDocument
'...set value of yourAnswer...
set myQuestion = GetParentDocument( yourAnswer )
```