[ホーム] - [ノーツドミノ プログラミングサンプル一覧] - [リッチテキストフィールドが空か確認するロータススクリプト]




リッチテキストフィールドが空か確認するロータススクリプト


ノーツドキュメント内のリッチテキストフィールドが空かどうかチェックする方法を紹介します。リッチテキストフィールドが空の場合は、サイズが14であるためそれを利用して確認します。
以下の例ではfield1(リッチテキストフィールド)が空がどうかをチェックしています。


Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim richTextItem As NotesRichTextItem
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set richTextItem = doc.GetFirstItem("field1")

rem サイズが14か確認する
If (richTextItem .ValueLength = 14) Then
  Msgbox("field1は空です。")
End If




(注)このチェックが正常に実行されるためには、文書が保存されている必要があります。リッチテキストフィールドの変更後に文書が保存されていない場合には、最後に保存された状態に対してチェックが実行されます。正しく確認するには文書を保存してから実行してください。

(補足)Lotus Script を使用しています。(VBを Notesに拡張した言語です。)




本ページは IBM Lotus Notes Domino (ロータスノーツドミノ)を対象としています。 基本的には Notes 4,5,及び6以後を対象としていますが、バージョンによっては対応していない場合があります。 lotus scriptや @関数 (@コマンド)を対象としていて、VB Scriptには対応していません。 本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。 このページはリンクフリーです。(このページへの直接リンクも可能です。)

[ホーム] - [ノーツドミノ プログラミングサンプル一覧]