Richtext Validation

RichText field validation
Sub RT_Valisation()
Dim w As New notesuiworkspace
dim w as new notesuiworkspace
dim uidoc as notesuidocument
set uidoc=w.currentdocument
Dim doc As notesdocument
Set doc=uidoc.document

Dim item As NotesItem
Dim RTSize As Integer
Set item = doc.GetFirstItem( "Body" )
RTSize = Item.ValueLength
(96 is the size of empty rt item)
if RTSize=96 then '
'your input validation goes here
msgbox "Nothing"
else
msgbox RTSize
End If
END Sub
This was first published in November 2000

Dig deeper on Domino Resources - Part 7

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com'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 ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close