Examples: FieldSetText method
- This script sets the value of the Creator field to the user's name after a document is opened in Edit mode. For example, if Brian Flokka creates a new document, the string "Brian Flokka" is placed in the Creator field.
Sub Postopen(Source As Notesuidocument)
Dim session As New NotesSession
If source.EditMode Then
Call source.FieldSetText _
( "Creator", session.CommonUserName )
End If
End Sub
- This script gets the value of four number fields: Q1, Q2, Q3, and Q4. It then converts them to integers using Cint(). It adds the four values together and sets the value of the Total field, using Cstr() to convert the result to a string.
Sub Querysave(Source As Notesuidocument, Continue As Variant)
a% = Cint( source.FieldGetText( "Q1" ) )
b% = Cint( source.FieldGetText( "Q2" ) )
c% = Cint( source.FieldGetText( "Q3" ) )
d% = Cint( source.FieldGetText( "Q4" ) )
Call source.FieldSetText _
( "Total", Cstr( a% + b% + c% + d% ) )
End Sub
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.