J
johny
Вообщем задача такая, есть поле (причем ричтекст), в нем данные, оно едитэйбл, пользователь пытается изменить данные и (или в момент ввода или в момент снятия фокуса) пользователь проверяется на роль и если у енго нету, то фокус с поля снимается без сохранения...сделал вот что, но не могу разобраться как сделать чтоб поле оставалось без сохранения...
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set acl = db.ACL
Set entry = acl.GetEntry(session.UserName)
role = entry.Roles
Forall roles In role
If roles = "[Treasure]" Then
Else
uidoc.Close
End If
End Forall
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set acl = db.ACL
Set entry = acl.GetEntry(session.UserName)
role = entry.Roles
Forall roles In role
If roles = "[Treasure]" Then
Else
uidoc.Close
End If
End Forall