Examples: FieldAppendText method

  1. This form action script appends the phrase "Over here, balloon man!" to the Body field of the current document.
    Sub Click(Source As Button)
      Dim workspace As New NotesUIWorkspace
      Dim uidoc As NotesUIDocument
      Set uidoc = workspace.CurrentDocument
      Call uidoc.FieldAppendText _
      ( "Body", "Over here, balloon man!" )
    End Sub
  2. This script appends today's date, the current user's name, and the contents of the Event field (each separated by spaces) to the Log field, when the user saves the document. The Event field is cleared.
Sub Querysave(Source As Notesuidocument, Continue As Variant)
  Dim session As New NotesSession
  Call source.FieldAppendText( "Log", Cstr( Date ) )
  Call source.FieldAppendText( "Log", " " )
  Call source.FieldAppendText _
  ( "Log", session.CommonUserName )
  Call source.FieldAppendText( "Log", " " )
  Call source.FieldAppendText _
  ( "Log", source.FieldGetText( "Event" ) )
  Call source.FieldClear( "Event" )
End Sub
  1. This button script appends a new value to a text list. The script prompts the user for a string value. If the choices field is empty, the script adds the new string to the choices field. If the choices field already contains values, the script appends the new string to the choices field, preceded by a semicolon, which is the designated multi-value separator for the field.
    Sub Click(Source As Button)
      Dim workspace As New NotesUIWorkspace
      Dim uidoc As NotesUIDocument
      Dim currentChoices As String
      Dim newChoice As String
      Set uidoc = workspace.CurrentDocument
      currentChoices = uidoc.FieldGetText( "choices" )
      newChoice = Inputbox$( "Please enter a new choice: " )
      If ( currentChoices = "" ) Then
        Call uidoc.FieldSetText( "choices", newChoice )
      Else
        Call uidoc.FieldAppendText("choices", ";" & newChoice)
      End If
    End Sub