[AP] 卡編輯狀況(預防衝突文件)

Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim doc As NotesDocument

Set doc=Source.document

If Not Source.IsNewDoc Then

If ( doc.Save( False, False ) = False ) Then

Messagebox {此文件正在被其他人修改中,請待會再打開並修改此文件.},,"注意! 文件修改中!"

Continue=False

Call Source.Close

End If

End If

End Sub