Tip

Do While Loop In @Functions

For those of us that wish Lotus had created an @DoWhile here is something that
will work.

The loop does have a limit of about 250 iterations and you will have to code
that into the loop or you may cause notes to crash.

In this example I have created a document that has a number field on it called
"Test". The DoWhile loop is activated by an action button, but you may run it
on any "event" that will allow you to run a agent.

Create an agent and set it to "Run Once (@Commands may be used)". My agent is
called "(Test)".

Here is the code for the agent. You will have to adapt the code for your use.
FIELD TestField := TestField;
Tmp :=
@If(@TextToNumber(@Environment("TestEnv"))="";0;@TextToNumber(@Environment("Test
Env")));
@If(Tmp < 250;@Do(@SetField("TestField";Test Field+
1);@SetEnvironment("TestEnv";@Text(tmp
+1));@Command([ViewRefreshFields]);@Command([ToolsRunMacro];"(Test)"));@Do(@SetE
nvironment("TestEnv";"");))

This was first published in November 2000

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.

Back to top