LotusScript for Visual Basic Programmers - IBM Redbooks

NotesUIDocument = EditDocument([bool]) puts the current document in
edit mode.
For more information about the NotesCurrentDocument class, refer to
Chapter 3.
Let’s look at an example.
Example
This example executes when the user enters a field in edit mode. The script
displays information about the field and the document. You can try this
example on a form you created.
Dim workspace As Object
Dim uidoc As Object
Set workspace = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = workspace.CurrentDocument
If uidoc.EditMode Then
End If
If uidoc.IsNewDoc Then
Else
Print_
("This is the " & _
uidoc.CurrentField & " field")
Print _
("This is the " & uidoc.CurrentField & _
" field of " & uidoc.WindowTitle)
End If
End Sub
Folllowing is an explanation of the code.
Current document is a unique object class in Notes. We declare uidoc as an
object to reference the current document.
Dim uidoc As Object
We get a reference to the current document using the CurrentDocument
property of the NotesUISession class and store it in uidoc.
Set uidoc = workspace.CurrentDocument
Chapter 9: Accessing Notes Documents 155