Manage Learn to apply best practices and optimize your operations.

Add Items To Textlist And Check For Uniqueness

Sub Click(Source As Button)
'FIELD "List"; Text, multivalue, editable on creation
'FIELD "NewItem"; Text, editable

' use of @unique to make sure there are no duplicate items

Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Set doc = ws.CurrentDocument.Document

doc.List = Evaluate ( {@Unique(List : NewItem)}, doc)

' Clear the New Item field and take the user there, for easy entry of
another one
doc.NewItem = ""
Call ws.CurrentDocument.Gotofield ("NewItem")

End Sub

Dig Deeper on Domino Resources - Part 2

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...