Доступ к полю

[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

 

[Medevic]

Запихни поле в Controlled Access Section.

Соответственно, всякие проверки можно убрать.

 

[Omh]

Всплывает какая-то пропертя у item'a под названием SaveToDisk.
Но вообще, Medevic рубит правду-матку.

 

[johny]

блин )))))) а как юзать эти секции....как там формулу доступа прописывать....

 

[Medevic]

F1 ?

 

[johny]

угу, нашел ))))