作成者カテゴリ 
公開
a
11/17/2009 10:42 PM
-- 分類を選んでください --
ノーツサーバノーツクライアントサーバOSクライアントOSネットワークプロトコル
7.x7.xN/AN/AN/A

保存しないでフォームを閉じるスクリプト

スクリプトでフォームを保存せずに、同一文書を開き直したいのですが、「保存しますか?」のメッセージがでます。
どうしたらいいのでしょうか?

これをやる経緯として、ビューの選択文書に対して処理を行いエラーがあった場合は、そこで処理を中止します。
このあと、ビューに戻って再度処理をしようとした際に、選択文書が解除されていないため、同じ選択文書に対してまた処理がされます。
これを回避するために、一旦ビューにもどり選択を解除してエラー文書を開き直します。
既にある表示文書に対する処理に、数件纏めて処理できるように手を加えているものです。


unid = Doc.UniversalID

Set ndoc = db.GetDocumentByUNID(unid)
If ndoc Is Nothing Then
 'unidに一致する文書が存在しない場合
 Msgbox "文書の開き直しができません。"
 Exit Sub
End If
'文書を開き直す
Call ws.EditDocument(False, ndoc)
'ノーセーブで閉じる
doc.SaveOptions = 0
Call uidoc.Close

以上


[Previous Main Document]
保存しないでフォームを閉じるスクリプト (a) * 現在地 *
. . Re: 保存しないでフォームを閉じるスクリプト (とおりすがり)
[Next Main Document]