LotusNotesな日々IBM社のLotusNotesに関係する何かを日々語ってるようなきがしないでもないブログです。 

スポンサーサイト

   ↑  --/--/-- (--)  カテゴリー: スポンサー広告
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

(記事編集) http://mesosune.blog123.fc2.com/?overture" target="_new

--/--/-- | Comment (-) | HOME | ↑ ページ先頭へ |

競合回避方法(Notes)

   ↑  2007/12/16 (日)  カテゴリー: Notes(LotusScript)
自分自身を競合としてしまっていないかを判定する。
Notes用LotusScript版。
例としてQuerysaveで。


Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim doc as NotesDocument
Dim ErrMsg as String

Set doc = Source.Document

If ( doc.HasItem("$Conflict") = True ) Then
'競合メッセージ表示後,保存しない
ErrMsg = "この文書は競合しています。" + Chr( 10 )+_
"保存できません。" + Chr( 10 ) + Chr( 10 ) + "一度文書を閉じてください"
Messagebox ErrMsg,0,"エラー"
Continue = False
Exit Sub
End If


スポンサーサイト

(記事編集) http://mesosune.blog123.fc2.com/blog-entry-51.html

2007/12/16 | Comment (0) | Trackback (0) | HOME | ↑ ページ先頭へ |
この次の記事 : 競合回避方法(Web)
この前の記事 : 競合回避方法(@式)

Comment

コメントを投稿する 記事: 競合回避方法(Notes)

お気軽にコメントをぞうぞ。
非公開 (管理人のみ閲覧可能なコメント) にしたい場合には、ロック にチェックを入れてください。

  任意 : 後から修正や削除ができます。
  非公開コメントとして投稿する。(管理人にのみ公開)
 

Trackback

この次の記事 : 競合回避方法(Web)
この前の記事 : 競合回避方法(@式)
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。