10.1 Создать индивидуальный клиентский файл с определенными правами и ролью
HTML-код
- Опубликовано: 14 окт 2024
- В данном видео рассмотрим, как сделать индивидуальный клиентский файл для конкретного пользователя многопользовательской базы данных, при этом назначим ему роль в БД.
Вспомним, как делать запросы на обновление. Сделаем простейшую форму ввода пароля с помощью маски ввода. Создадим код для изменения заголовка клиентского файла.
Код для создания модуля ModuleAppProperty:
Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo AddProp_Err
dbs.Properties(strName) = varValue
AddAppProperty = True
AddProp_Bye:
Exit Function
AddProp_Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strName, varType.varValue)
dbs.Properties.Append prp
Resume
Else
AddAppProperty = False
Resume AddProp_Bye
End If
End Function
Этот код вставляем на событие Загрузка для Кнопочной формы:
On Error Resume Next
Dim intX As Integer
Const DB_Text As Long = 20
intX = AddAppProperty("AppTitle", DB_Text, Forms![Кнопочная форма]![Назначен идентификатор пользователя]![Роль_в_БД_КБ])
Application.RefreshTitleBar
ВНИМАНИЕ! Поддержать канал можно через Сбербанк 2202 2023 5272 6164
Уважаемый автор! Большое спасибо за Ваш труд! Подскажите, видимо я не совсем разобрался, а как в данном случае будет работать "кто в системе"?
Хороший вопрос)) Да, действительно, "Кто в системе" мы кардинально переделаем. Способ будет проще, легче, универсальнее. Ждите новых видео....
@@msaccess-gk большое спасибо! Очень жду!
Уважаемый автор, спасибо тебе, укажи пожалуйста обратную связь, как можно задать вопрос, если что-то надо конкретизировать?
msaccess.gk@rambler.ru
Если я правильно понял, то если этим файлом завладеет другой пользователь, он также сможет в нем работать под видом первоначально назначенного пользователя.
Чтобы не завладел, откомпилируйте файл на своем компе, и после блокировки шифт разместите в общедоступной папке