Авторизация в Access при входе в свою учетную запись на ПК + пароль

@Spec_0994 · Регистрация: 01.11.2016

Студворк — интернет-сервис помощи студентам

Всем привет!
Нашел одну из интересных примеров авторизации в Access. В Форме "Autorization" Поле13 отображает учетную запись под которой вошел пользователь на ПК (Автоматически подтягивает учетную запись), на рис показано. Есть мысль создать авторизацию с таким автоматическим распознованием пользователя, + каждый пользователь мог бы присвоить на вход пароль.
И на всякий случай чтоб можно было войти админу с любой учетной записи.
Подскажите как можно это реализовать и с чего начать???

@alvk · 09.07.2018, 10:07

Visual Basic
1
pole13.Value = VBA.Interaction.Environ("Username")

не знаю зачем здесь так много букв, достаточно

Visual Basic
1
поле13 = Environ("Username")

да и проще - поставьте в поле13 значение по умолчанию =Environ("Username")

@Spec_0994 · 09.07.2018, 11:20 **[ТС]**

Да какая разница как написано, главное что работает. Решений может быть миллион.
Лучше подскажите как реализовать с паролем и username можно?

@Spec_0994 · 09.07.2018, 11:56 **[ТС]**

Кто может подправить???

@Eugene-LS · 09.07.2018, 12:07

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

Кто может подправить???

Берём на "Слабо?!"
Хитрый ход - но не хорошо ....
.. А вот печалька ... лохов тут нет ...

... перефразируйте пожалуйста свой вопрос, с уточнением, что и где подправить.

@evgenii3000 · 09.07.2018, 13:27

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

Есть мысль создать авторизацию с таким автоматическим распознованием пользователя, + каждый пользователь мог бы присвоить на вход пароль.

нужно создать форму регистрации, если не хотите сами регистрировать пользователей, с обязательной проверкой на совпадение имени пользователя.

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

И на всякий случай чтоб можно было войти админу с любой учетной записи.

Создать группы "пользователь" и "админ" при вводе логина проверяется к какой группе относиться пользователь и открывает нужную форму.
Но в MS access редко кто такое делает, сложно и не эффективно.

Добавлено через 2 минуты
Spec_0994, я давно делал вход для пользователей ("Username"), вставлял его в запрос, он считывал имя пользователя windows (не должны повторятся, лучше использовать сервис AD в сети) и открывал нужные данные (отсортировывал)

@evgenii3000 · 09.07.2018, 13:30

и у пользователя открывалась форма со своими данными как на картинке

@alvk · 10.07.2018, 03:27

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

Решений может быть миллион.

Покажите нам парочку.

@Spec_0994 · 10.07.2018, 06:58 **[ТС]**

Eugene-LS,

Сообщение от Eugene-LS

Берём на "Слабо?!"
Хитрый ход - но не хорошо ....
.. А вот печалька ... лохов тут нет ...

Да нет вы что, я даже об этом и не думал!!!

Сообщение от Eugene-LS

... перефразируйте пожалуйста свой вопрос, с уточнением, что и где подправить.

Извиняюсь, что не так выразился, переформулирую:

Оставил единственную таблицу, где будет указан USERNAME - который имеет права доступа, статус и пароль.
Пока в таблице две записи - мой USERNAME и Admin - который может зайти с любого Usernama.
На Форме "поле13" определяет "USERNAME". Так вот прошу подсказать решения как связать Поле13 на форме, чтобы оно сравнивало записи в таблице FIO, вводили пароль и входили, а если при сравнении не находилтакого USERNAME в таблице под полем FIO- то выдал окно "Нет доступа" и закрыл базу

Но и думал,что наверное должно было быть поле или кнопка, для ввода или выбора пользователя Admin и ввод к нему пароля, что б войти с любой учетной записи на ПК - но это даже сам не представляю, как должно выглядить. Может у вас есть идеи?

evgenii3000,

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

нужно создать форму регистрации, если не хотите сами регистрировать пользователей, с обязательной проверкой на совпадение имени пользователя.

Нет пользователей будет не много, я сам вручную всех внесу в базу. И да, создам потом форму по изменению пароля либо его удалению (так как не каждый пользователь захочет пароль, может заходить под учетной записью без пароля - чтобы просто было пустое поле пароля).

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

и у пользователя открывалась форма со своими данными как на картинке

Да и данные все общие. За исключением наверное блокировать некоторые формы для каждого пользователя.

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

Spec_0994, я давно делал вход для пользователей ("Username"), вставлял его в запрос, он считывал имя пользователя windows (не должны повторятся, лучше использовать сервис AD в сети) и открывал нужные данные (отсортировывал)

Они в моем случае повторятся не будут - так сказать индивидуальные (совпадения исключены)

Добавлено через 5 минут

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

да и проще - поставьте в поле13 значение по умолчанию =Environ("Username")

Кстати, это не работает

@ltv_1953 · 10.07.2018, 07:25

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

Кстати, это не работает

Да не ужели? Пример привести не желаете, чтобы все подивились ... .

@alvk · 10.07.2018, 08:15

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

Кстати, это не работает

видимо проблема в драйвере hands.sys

@Spec_0994 · 10.07.2018, 09:28 **[ТС]**

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

Да не ужели? Пример привести не желаете, чтобы все подивились ... .

Представляете себе , да не работает, может это связано, что работаю на тонком клиенте на терминале через VMWARE. - по крайней мере - pole13.Value = VBA.Interaction.Environ("Username") так вот работает

@alvk · 10.07.2018, 10:35

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

работаю на тонком клиенте на терминале через VMWARE

не вижу проблем ни в терминале, с которым собственно 10 лет проработал, ни в виртуальной машине, которая совсем тут никаким боком.
скриншот в студию, сначала значение по умолчанию в режиме конструктора, потом ошибка в режиме формы

@Spec_0994 · 10.07.2018, 12:09 **[ТС]**

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

не вижу проблем ни в терминале, с которым собственно 10 лет проработал, ни в виртуальной машине, которая совсем тут никаким боком.
скриншот в студию, сначала значение по умолчанию в режиме конструктора, потом ошибка в режиме формы

Вот серьезно, не вижу смысла разбирать вещь, которая и так сделана и прекрасно работает. Мне все равно, в VBA это указано или в условиях по умолчанию. Я прошу помощи в другом. А разбирать, то что и так работает смысл??? Подискуссировать???

@alvk · 10.07.2018, 16:26

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

не вижу смысла

это вы так обычно отвечаете, когда вас ловят на лжи?

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

Я прошу помощи в другом

игнорируя вопросы? Авторизация в Access при входе в свою учетную запись на ПК + пароль

не думаю, что таким способом вы достигнете результата.

@Медерр · 11.01.2020, 06:44

Здравствуйте всем!

столкнулся со следующей проблемой:
создал

Visual Basic
1
2
3
Public Function ИМЯПОЛЬЗОВАТЕЛЯ() As String
    ИМЯПОЛЬЗОВАТЕЛЯ = Environ("UserName")
End Function

далее при открытии файла создал макрос Autoexec
при сравнении ИМЯПОЛЬЗОВАТЕЛЯ()="имя текущего пользователя" открывается форма, либо закрывается приложение.
Все работает, только при компиляции в ACCDE это перестает работать
подскажите в чем ошибка?

@alvk · 11.01.2020, 07:57

Сообщение от Медерр

подскажите в чем ошибка?

Предположу, что макрос не видит функцию. Я бы тоже на его месте не видел.
Делайте загрузочную форму и в неё на событие load ваше присвоение или сравнение юзера.

@Медерр · 11.01.2020, 09:25

все равно не хочет работает при компиляции. Так и пишет "Введенное выражение содержит имя функции, которое приложению "Microsoft Access" не удается найти

@alvk · 11.01.2020, 09:36

Напишите на английском название и покороче желательно

@Медерр · 11.01.2020, 13:02

не работает! сократил до 2 букв английскими и то...
в ACCDE эта функция не работает.
Может как-то по другому можно это сделать?
Задача - запуск приложения только определенным пользователям в ACCDE

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@Spec_0994 0 / 0 / 0 Регистрация: 01.11.2016 Сообщений: 62
	09.07.2018, 11:20 [ТС]
	Да какая разница как написано, главное что работает. Решений может быть миллион. Лучше подскажите как реализовать с паролем и username можно? 0

@evgenii3000 1321 / 540 / 67 Регистрация: 16.01.2013 Сообщений: 4,119
	09.07.2018, 13:30
	и у пользователя открывалась форма со своими данными как на картинке Миниатюры 0

@Медерр 2 / 2 / 0 Регистрация: 23.01.2019 Сообщений: 25
	11.01.2020, 09:25
	все равно не хочет работает при компиляции. Так и пишет "Введенное выражение содержит имя функции, которое приложению "Microsoft Access" не удается найти 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	11.01.2020, 09:36
	Напишите на английском название и покороче желательно 0

@Медерр 2 / 2 / 0 Регистрация: 23.01.2019 Сообщений: 25
	11.01.2020, 13:02
	не работает! сократил до 2 букв английскими и то... в ACCDE эта функция не работает. Может как-то по другому можно это сделать? Задача - запуск приложения только определенным пользователям в ACCDE 0

Авторизация в Access при входе в свою учетную запись на ПК + пароль

Решение