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

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


タグ ：LotusNotesScript保存チェック

同じカテゴリー（タカさんの★PC話し）の記事画像
500GBのSSDを購入してみた
200SHのSD容量が勝手に少なく・・・
我が家のPCからWindowsXPを排除
ASUS 1215BのHDDをSSHDに換装
PSO2 LogicoolのG13を使う
ASUSのネットブックを購入
同じカテゴリー（タカさんの★PC話し）の記事
 500GBのSSDを購入してみた (2015-12-19 14:19)
 virtualbox error rc=-22919　とか発生 (2015-05-22 20:17)
 美女Linux久しぶりに訪問してみた (2014-08-20 19:17)
 200SHのSD容量が勝手に少なく・・・ (2014-06-01 23:55)
 我が家のPCからWindowsXPを排除 (2014-05-18 10:53)
 ASUS 1215BのHDDをSSHDに換装 (2014-05-05 17:53)

Posted by タカさん at 20:17│Comments(0) │タカさんの★PC話し
このBlogのトップへ
上の画像に書かれている文字を入力して下さい
 
＜ご注意＞
書き込まれた内容は公開され、ブログの持ち主だけが削除できます。
このページの上へ▲

削除
LotusNotes（保存時の入力チェック）
    アイコン（絵文字）の挿入
    コメント(0)