.

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
.

EN - English CN - 中文 JP - 日本語 DE - Deutsch FR - Français BR - Português RU - Pу́сский IT - Italiano IN - हिन्दी ES - Español KR - 한국어 ID - Indonesia NL - Dutch TR - Türkçe SA - العربية SE - Svenska NO - Norsk PL - Polski TH - ไทย DK - Dansk MY - Malay PH - Filipino GR - Ελληνικά FI - Suomi IL - עברית IE - Gaeilge CZ - Čeština UA - Українська RO - Română VN - Tiếng Việt BD - বাংলা HU - Magyar

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

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

3. 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

FieldAppendText method

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help