nsfl10n

Lotus Notes/Domino のブログ。nsf:Notes Storage Facility。l10n:Localization。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告|
  3. トラックバック(-)|
  4. コメント(-)

返答がある文書が削除されないようにするには

Prevent document deletion if there are response documents

 返答文書が存在するメイントピックが削除されないようにするためのTipsをご覧いれよう。このロジックを、DatabaseスクリプトのQueryDocumentDeleteイベントに入れるだけでいい。

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant) 'Get a handle on the current document Dim ns As New NotesSession Dim nDocCurrent As NotesDocument Dim ndcCollection As NotesDocumentCollection Set ndcCollection = Source.Documents Set nDocCurrent = ndcCollection.GetFirstDocument 'See if the current document has any responses associated with it 'if so do not allow the deletion Dim ResponseCollection As NotesDocumentCollection Set ResponseCollection = nDocCurrent .Responses numDocs& = ResponseCollection.Count '# of response documents If numDocs& > 0 Then Messagebox "この文書には返答文書がついているため削除できません。",64,"Action Cancelled Continue = False End If End Sub
This LotusScript was converted to HTML using the ls2html routine,
provided by Julian Robichaux at nsftools.com.
スポンサーサイト
  1. 2005/05/15(日) 01:37:45|
  2. Designer|
  3. トラックバック:0|
  4. コメント:0
04 | 2005/05 | 06
Sun Mon Tue Wed Thu Fri Sat
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -

Search

Featured Entries

Recent Entries

Recent Comments

Recent Trackbacks

Archives

Category

Links

Ads

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。