Modifying document item values

This Formula Language code can be incorporated into a toolbar button for Lotus Notes client 6.5. When a database document is selected and the button is clicked, all item values will be displayed in a pop-up.

Download this free guide

Download: IT Certifications 101

Inside this exclusive essential guide, our independent experts break down which IT certifications are worth your time and effort, and how to get started obtaining them to further your career— including specific certifications that any cloud or desktop pro should seriously consider.

Start Download

• Corporate E-mail Address:

  You forgot to provide an Email Address.

  This email address doesn’t appear to be valid.

  This email address is already registered. Please login.

  You have exceeded the maximum character limit.

  Please provide a Corporate E-mail Address.

By submitting my Email address I confirm that I have read and accepted the Terms of Use and Declaration of Consent.

By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.

You also agree that your personal information may be transferred and processed in the United States, and that you have read and agree to the Terms of Use and the Privacy Policy.

Follow these steps to change selected item values:

REM {Get a listing of all the fields 
on the current document}; 
List := @DocFields;

REM {Possible data types to 
choose from.};
DataTypes := "Text" : "Date" : 
"Integer" : "Password" : 
"Name" : "Common Name" :
 "Remove Field" : 
"Text Multi Value" : "Date Multi Value" :
 "Integer    Multi Value" 
: "Name Multi Value" : "Common Name 
Multi Value";

REM {Prompt for which field 
needs to be updated.}; 
EditField := @Prompt( [OkCancelList] ; 
"Select a field to alter" ; 
"Select the field you wish to alter:" ; 
"CustomerReply" ; List );

REM {Prompt for which data 
type you would like the data to be}; 
REM {This needs to be done before 
value prompt to 
determine if the Picklist or any 
prompting needs to be used.};
DataType := @Prompt
( [OkCancelList] : [NoSort] ; 
"data type or action for field: " 
+ EditField ; 
"Please Select the correct data
 type or action for field: 
" + EditField ; "Text" ; DataTypes );

REM {Based on what type 
of data is being entered 
different prompts will happen 
if any at all.}; 
RawValue := @If( @Contains
( DataType ; "Name Multi Value" ); 
@PickList( [Name] ); @Contains
( DataType ; "Name" ) ; 
@PickList( [Name] : [Single] ); 
DataType = "Remove Field" ; "" ; 
@Contains( DataType ; "Multi Value" );
 @Prompt( [OkCancelEdit] ; 
"New Value for field: " + EditField ; 
"Please enter the new desired value for: 
" + EditField + " seperated with : 
for each value." ; @Abstract([TextOnly] ; 254 ; 
"" ; @Text( EditField ) ) ); 
@Prompt( [OkCancelEdit] ; 
"New Value for field: " + EditField ; 
"Please enter the new desired value for: " 
+ EditField + "." ; @Abstract([TextOnly] ; 
254 ; "" ; @Text( EditField) ) ) );

REM {If data conversion 
doesn't work then don't set field.}; 
@If( DataType = "Date" ; 
@If( @SetField( EditField ; 
@TextToTime( RawValue ) ) ); 
DataType = "Integer" ; 
@If( @IsError( @TextToNumber
( RawValue ) ) ; "" ; 
@SetField( EditField ; 
@TextToNumber( RawValue ) ) ) ; 
DataType = "Common Name" ; 
@SetField( EditField ; 
@Name( [CN]; RawValue ) ) ; 
DataType = "Password" ; 
@SetField( EditField ; 
@Password( RawValue ) ) ; 
DataType = "Remove Field" ; 
@SetField( EditField ; @DeleteField ) ; 
DataType = "Text Multi Value" ; 
@SetField( EditField ; 
@Explode( RawValue ; ":" ) ) ; 
DataType = "Date Multi Value" ; 
@SetField( EditField ; 
@TextToTime( @Explode( RawValue ; ":" ) ) ) ; 
DataType = "Integer Multi Value" ; 
@If( @IsError
( @TextToNumber( @Explode
( RawValue ; ":" ) ) ) ; "" ; 
@SetField( EditField ; @TextToNumber
(@Explode( RawValue ; ":" ) ) ) ) ;
DataType = "Name Multi Value" ; 
@SetField( EditField ; 
@Explode( RawValue ; ":" ) ) ; 
DataType = "Common Name Multi Value" ; 
@SetField( EditField ; @Name( [CN]; 
@Explode( RawValue ; ":" ) ) ); 
@SetField( EditField ; RawValue ) ); ""

Do you have comments on this tip? Let us know.

MEMBER FEEDBACK TO THIS TIP

This tip is very similar to one submitted by Christiaan Walker, 3M Healthcare in March 2003. I've used his tip many times. The one big difference I've noticed is that it lets you know what is currently stored in the field.
—Bil M.

******************************************

This is a great tip, however, it does have a few bugs with multi-value:

1. It shows current values with no separators. It should parse current values and add the colon separators. If I wanted to add one more value to the current value below, I would have to manually add in colons between each one before adding the new one to the end.
   [System] [Editors] [Admin] [CORP-Edit] [CORP-SS-Edit]

2. It only stores as multi-value if you use colon to separate entries. It should allow for commas and semi-colons also, or have instructional text explaining to use colons.

******************************************

To view the current values while changing; replace the existing code between the two remarks with the following code.

REM {Based on what type of data is being entered different 
prompts will happen if any at all.};

RawValue := @If( @Contains
( DataType ; "Name Multi Value" );
@PickList( [Name];@GetField(EditField));
 @Contains( DataType ; "Name" ) ; 
@PickList( [Name] : [Single];@GetField
(EditField)); DataType = "Remove Field" ; "" ; 
@Contains( DataType ; "Multi Value" ); 
@Prompt( [OkCancelEdit] ; 
"New Value for field: " + EditField ; 
"Please enter the new desired value
for:  " + EditField + " seperated with : 
for each value." ; @Abstract([TextOnly] ; 254 ; "" ; 
@Implode(@Text( @GetField(EditField) );":") ) ); 
@Prompt( [OkCancelEdit] ; 
"New Value for field: " + EditField ; 
"Please enter the new desired value
for: "
+ EditField + "." ; @Abstract([TextOnly] ; 254 ;
 "" ; @Implode(@Text(
@GetField(EditField));":") ) ) );

REM {If data conversion doesn't 
work then don't set field.};

Related information from SearchDomino.com: