[設計手札]使用者關閉Notes文件時顯示訊息LotusScript

http://www.domino.club.tw/bbs/bbs2002.nsf/($All)/A2A056E74661014248257309001CEA97?OpenDocument
套表的QueryClose事件
[Code]
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim workspace As New NotesUIWorkspace
Dim doc As NotesUIDocument
Set doc = workspace.CurrentDocument
If doc.EditMode Then
Messagebox(" Are you sure want to exit?")
End If
End Sub
[Step]
1. 建立一個套表
2. 於表單的QueryClose事件中增加以上的Code
3. 開啟表單於Notes Client測試
4. 關閉Notes表單將會出現警示訊息