Examples: CurrentField property

  1. A Description field has the following script. Each time a user places the cursor inside the Description field, Notes prints "Welcome to the Description field. Describe the problem." in the status bar.
    Sub Entering(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Print( "Welcome to the " + uidoc.CurrentField +  _
  " field. Describe the problem." )
End Sub
  2. A Body field has the following script. Each time a user moves the cursor from the Body field to the Comments field, Notes prints "Thanks for visiting the Comments field" in the status bar. The CurrentField property changes as soon as the user moves the cursor to a different field.
    Sub Exiting(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Print( "Thanks for visiting the " +  _
  uidoc.CurrentField + " field.")
End Sub