LotusNotes（保存時の入力チェック）

最近ユーザーからの要望で
LotusNotesの掲示板を作成し
入力もれがあった場合に保存できなくしてほしいということで
スクリプトを使用したので
備忘録として残しておく

Scriptを記述する場所は
入力チェックしたいフォームを開き
QuerySaveの中に記述

Sub QuerySave(Source As NotesUIDocument, Continue As Variant)

Continue = False

Dim NotesDoc As NotesDocument
Dim FieldName As String

Set NotesDoc = Source.Document

FieldName = "チェックするフィールド名"

If doc.GetItemValue(FieldName)(0) = "" Then
Messagebox "入力されていない項目があります。確認してください。"
Exit Sub
End If

Continue = True
End Sub

これで入力されていないフィールドがあれば保存されず
注意を促すメッセージが表示されるようになる。