Доступ к полю

Тема в разделе "Lotus - Программирование", создана пользователем johny, 20 сен 2007.

Статус темы:
Закрыта.
  1. johny

    johny Гость

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

    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
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Запихни поле в Controlled Access Section.

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

    Omh Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Всплывает какая-то пропертя у item'a под названием SaveToDisk.
    Но вообще, Medevic рубит правду-матку.
     
  4. johny

    johny Гость

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

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
  6. johny

    johny Гость

    Репутация:
    0
    угу, нашел ))))
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей