2011年10月20日
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
これで入力されていないフィールドがあれば保存されず
注意を促すメッセージが表示されるようになる。
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
これで入力されていないフィールドがあれば保存されず
注意を促すメッセージが表示されるようになる。