Отображение состояния блокировки записи

'------------------------------------------------------------
' Пользователи_И_Группы
'------------------------------------------------------------
Function Пользователи_И_Группы()
 DoCmd.RunCommand acCmdUserAndGroupAccounts
End Function
 
'------------------------------------------------------------
' Файл_Рабочей_Группы
'------------------------------------------------------------
Function Файл_Рабочей_Группы()
 DoCmd.RunCommand acCmdWorkgroupAdministrator
End Function
'------------------------------------------------------------
' Пользователи_Группы_Разрешения
'------------------------------------------------------------
Function Пользователи_Группы_Разрешения()
 DoCmd.RunCommand acCmdUserAndGroupPermissions
End Function

Private Sub NoteOOKS_AfterUpdate()
    Me.Dirty = False
    Me.idBlock = ""
End Sub
 
Private Sub NoteOOKS_Change()
    Call ControlBlock(Me.NoteOOKS)
End Sub
 
Private Sub ControlBlock(NameControl)
    'Если idBlock не пустой и в нем не Я, тогда нельзя трогать строку
    If Me.idBlock <> "" And Me.idBlock <> Forms!Login!LoginName Then
        MsgBox "Заблокировано пользователем: " & Me.idBlock.Value
        NameControl = ""
     Else
        Me.idBlock = Forms!Login!LoginName
    End If
End Sub