Доступ к полю

  • Автор темы johny
  • Дата начала
Статус
Закрыто для дальнейших ответов.
J

johny

Гость
#1
Вообщем задача такая, есть поле (причем ричтекст), в нем данные, оно едитэйбл, пользователь пытается изменить данные и (или в момент ввода или в момент снятия фокуса) пользователь проверяется на роль и если у енго нету, то фокус с поля снимается без сохранения...сделал вот что, но не могу разобраться как сделать чтоб поле оставалось без сохранения...

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
 

Omh

Well-Known Member
Lotus team
04.07.2007
2 210
1
37
Латвиджа, Рига
#3
Всплывает какая-то пропертя у item'a под названием SaveToDisk.
Но вообще, Medevic рубит правду-матку.
 
J

johny

Гость
#4
блин )))))) а как юзать эти секции....как там формулу доступа прописывать....
 
Статус
Закрыто для дальнейших ответов.