Доступ к базе назначенным пользователям

[Kostya777]

Добрый день,
сегодня столкнулся с новой задачей,
1.написал макрос, точнее нашел решение в нэте, работает, который мне позволяет получить UserName из системы - отображается в форме,
2.после создал таблицу пользователей, куда буду вносить все UserName'ы кому разрешено входить в базу,
3. Теперь мне необходимо написать макрос, который будет сверять UserName в таблице с UserName в форме (данная форма работает как автозапуск, тянется из системы). В случае совпадение база должна открываться, если нет, то автозакрытие.
4. Никаких паролей применятся не должно.

Всем большое спасибо. Очень признателен.

[R Dmitry]

Сообщение от Kostya777

Добрый день,
сегодня столкнулся с новой задачей,
1.написал макрос, точнее нашел решение в нэте, работает, который мне позволяет получить UserName из системы - отображается в форме,
2.после создал таблицу пользователей, куда буду вносить все UserName'ы кому разрешено входить в базу,
3. Теперь мне необходимо написать макрос, который будет сверять UserName в таблице с UserName в форме (данная форма работает как автозапуск, тянется из системы). В случае совпадение база должна открываться, если нет, то автозакрытие.
4. Никаких паролей применятся не должно.

Всем большое спасибо. Очень признателен.

Здравствуйте, попробуйте так

Private Sub Form_Load()
'users - таблица, user - ключевое поле с вашими юзерами
Dim ВашЮзер$ ' переменная с вашим юзером
ВашЮзер = "a" '
If IsNull(DLookup("[user]", "users", "[user] = """ & ВашЮзер & """")) Then DoCmd.Close
MsgBox "Работаем.... Вам можно"

End Sub

[Teslenko_EA]

Здравствуйте Kostya777.
в дополнение к предложению R Dmitry
Евгений.