chrisbekas.com

Ever wanted to open Notes documents from a view in a pop-up dialog box instead of the standard Notes form? This may be usefull say for keyword type of scenarios where you quickly want to change keyword values without going in and out of forms (which typically display full screen).

Well the code to do it is pretty simple (once you put it in the right place that is):

Dim w As New NotesUIWorkspace
Dim col As NotesDocumentCollection
Dim doc As NotesDocument

‘/* stop the document from being displayed with a form
continue = False

‘/* get the collection of documents in the NotesUIView (source)
Set col = source.documents

‘/* the first document in the collection is the selected document
Set doc = col.GetFirstDocument

‘/* show keyword document using the dialogbox
Call w.DialogBox (”Keyword”,True, True , “Keyword document”, doc)

You need to place this code in the ‘Queryopen’ event of your view in order to work. I have created a simple Notes database to demonstrate this so go and grab it from here.