2013年11月19日 星期二

[AP] 限制資料庫不能刪除文件


Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
If db.QueryAccess(session.UserName) < ACLLEVEL_MANAGER Then
Messagebox "不可在此介面刪除資料 !!"
continue = False
End If
End Sub

沒有留言:

張貼留言