Function HasRights(ObjectType As String, ObjectName As String, RightType As String) As Integer
'функция проверяет, есть ли у ТЕКУЩЕГО юзера определенное право на определенный объект'

'смысл параметров:'

'       ObjectType:         ObjectName:         RightType:'
'       tab - table                             or - open/run'
'       que - query                             rdes - read design'
'       for - form                              mdes - modify design'
'       rep - report                            adm - administer'
'       mod - module                            rd - read data'
'       mac - macro                             ud - update data'
'                                               id - insert data'
'                                               dd - delete data'
'                                               !d - update, insert & delete data'

    Dim rt As Long, i As Integer
    Dim dbX As Database, u As User, o As Document
    On Error GoTo Wrong

    'вычисление кода права:'
    Select Case ObjectType &  "-"  & RightType
        Case  "mac-rdes" ,  "mod-rdes" :                         rt =  2 
        Case  "tab-rdes" ,  "que-rdes" ,  "for-rdes" ,  "rep-rdes" : rt =  4 
        Case  "mac-or" :                                       rt =  8 
        Case  "tab-rd" ,  "que-rd" :                             rt =  16 
        Case  "tab-id" ,  "que-id" :                             rt =  32 
        Case  "tab-ud" ,  "que-ud" :                             rt =  64 
        Case  "tab-dd" ,  "que-dd" :                             rt =  128 
        Case  "tab-!d" ,  "que-!d" :                             rt =  128  +  64  +  32 
        Case  "for-or" ,  "rep-or" :                             rt =  256 
        Case  "mac-mdes" ,  "mod-mdes" :                         rt =  65536  +  4 
        Case  "tab-mdes" ,  "que-mdes" ,  "for-mdes" ,  "rep-mdes" : rt =  65536  +  8 
        Case  "tab-adm" ,  "que-adm" ,  "for-adm" ,  "rep-adm" ,  "mac-adm" ,  "mod-adm" 
                                                             rt =  852478 
        Case Else
            HasRights = False
            MsgBox  "ошибка во входных параметрах" 
            Exit Function
    End Select

    'доступ к объекту:'
    Set dbX = CurrentDb
    Select Case ObjectType
        Case  "for" :        Set o = dbX.Containers!Forms.Documents(ObjectName)
        Case  "mac" :        Set o = dbX.Containers!Scripts.Documents(ObjectName)
        Case  "mod" :        Set o = dbX.Containers!Modules.Documents(ObjectName)
        Case  "rep" :        Set o = dbX.Containers!Reports.Documents(ObjectName)
        Case  "tab" ,  "que" : Set o = dbX.Containers!Tables.Documents(ObjectName)
    End Select

    'проверка прав групп, к которым принадлежит юзер:'
    Set u = DBEngine( 0 ).Users(CurrentUser())
    For i =  0  To u.Groups.Count -  1 
        o.UserName = u.Groups(i).Name
        GoSub CheckRight
    Next

    'проверка прав самого юзера:'
    o.UserName = u.Name
    GoSub CheckRight

NotFound:
    'выход на случай, если прав нет:'
    HasRights = False
    Exit Function

Wrong:
    If Err =  3265  Then
        MsgBox  "объект не найден" 
    Else
        MsgBox Str$(Err) &  " - "  & Error(Err)
    End If
    Resume NotFound

CheckRight:
    If (o.Permissions And rt) <> rt Then Return
    HasRights = True
    Exit Function

End Function