HCL Domino - Examples: ParentView 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: ParentView property
1. This script prints the title of the NotesView object from which a document was retrieved (view), and the title of the NotesView object returned by the ParentView property (parentView). The titles are the same, because view and parentView represent the same view, the Main View in .SOMEDOCS.NSF

Sub Initialize Dim db As New NotesDatabase( "", "somedocs.nsf" ) Dim view As NotesView Dim parentView As NotesView Dim doc As NotesDocument Set view = db.GetView( "By Category" ) If Not view Is Nothing Then Set doc = view.GetFirstDocument Set parentView = doc.ParentView Messagebox view.Name , , "view.Name" Messagebox parentView.Name , , "parentView.Name" End If End Sub

2. This agent demonstrates a function that gets the parent view given a Document object.

Sub Initialize Dim db As New NotesDatabase( "", "" ) Dim doc As NotesDocument Call db.open( "snapper", "progwork2.nsf" ) Dim view As NotesView Set view = db.GetView( "By Category" ) If Not view Is Nothing Then Set doc = view.GetFirstDocument Call printViewName (doc, "first doc in view") End If Dim dc As NotesDocumentCollection Set dc = db.AllDocuments If dc.Count > 0 Then Set doc = dc.getFirstDocument Call printViewName (doc, "first doc in collection") End If Set doc = New notesdocument (db) Call printViewName (doc, "new doc") Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = ws.CurrentDocument Set doc = uidoc.document Call printViewName (doc, "ui doc") End Sub

Sub printViewName (d As NotesDocument, t As String) Dim v As notesview Set v = d.ParentView If v Is Nothing Then Messagebox "Document did not come from a view.", , t Else Messagebox "Document came from the " + _ v.Name + " view.", , t End If End Sub

See Also

ParentView property

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents