Random value picker

Use this to randomly pick a single value from a @DBLookup, @DBColumn, or any other list array.
Lotus Formula

Returns a single value

values := @DbColumn("":"NoCache"; "" ; "Quotes"; 1); 
numValues := @Elements(values); 
rInteger := @TextToNumber(@ReplaceSubstring(@Text(@Random); "."; "")); 
rIndex := @If(numValues =0; 0; @Modulo(rInteger; numValues) + 1); 
rValue := @If(rIndex = 0; "ERROR : Empty List."; @Subset(@Subset(values; rIndex); -1)); 

rValue

Returns multiple unique values

values := @DbColumn("":"NoCache"; ""; "vendorsHS" ; 1);
numValues := @Elements(values);

indexes := "";

@DoWhile(
	tmpINDEX := @Left(@Text(numValues * @Random + 1);".");
	indexes := @Trim(@Unique(indexes : tmpINDEX));
	@Elements(	indexes)<4
);

indexes

Posted by fbrefere001 on Friday December 7, 2012