Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
2 / 2 / 0
Регистрация: 21.03.2017
Сообщений: 74
1

Смена пароля для входа в форму

14.12.2017, 13:05. Просмотров 1043. Ответов 2
Метки нет (Все метки)


Есть таблица "Группы пользователей" в ней столбец "код", "имя пользователя" и "пароль"
В форме есть поле со списком "user" , которое подтягивает имена пользователей с таблицы.
поля oldpass и newpass - новый и старый пароль соответственно.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub changepassbot_Click()
'Проверяем выбрана ли группа, если нет, выдаем сообщение
If IsNull(Me.User) Then
MsgBox "Выберите пользователя!"
Else
    'Проверяем введен ли пароль, если нет, выдаем сообщение
    If IsNull(Me.oldpass) Then
    MsgBox "Введите старый пароль!"
    Else
        If IsNull(Me.newpass) Then
        MsgBox "Введите новый пароль!"
        Else
           'Сверяем введенный пароль с паролем, сохраненным в таблице Группы пользователей и изменяем его
           If Me.oldpass = Me.User.Column(2) Then
              MsgBox "Пароль верный!"
              [Группы пользователей]![пароль] = newpass
              Else
              MsgBox "Пароль не верный!"
            'В зависимости от выбранной группы открываем соотв-ую форму
           End If
        End If
    End If
End If
End Sub
Как ввести данные из поля newpass в нужное поле таблицы "Группы пользователей" ???
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2017, 13:05
Ответы с готовыми решениями:

Форма для входа в БД с использованием пользователя и пароля
Добрый день! Опишите пошагово создание формы с помощью которой можно войти в базу используя имя...

Смена пароля в базе access VBA
Здравствуйте! Вот нашла код, чтобы зайти в форму access через VBA используя логин и пароля(Поле)...

Еще раз про форму входа пользователей
Здравствуйте, Уважаемые форумчане! Вопрос формы входа пользователей - стар как мир. Но гугление...

Блокировка входа в подчиненную форму, если в главной не заполнены основные поля
Доброго времени суток! Бьюсь над таким вопросом: как заблокировать вход в Подчиненную форму, если...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
2 / 2 / 0
Регистрация: 21.03.2017
Сообщений: 74
14.12.2017, 14:00  [ТС] 2
Собственно файл
0
Вложения
Тип файла: rar Base111.rar (424.6 Кб, 7 просмотров)
Заблокирован
14.12.2017, 14:30 3
Лучший ответ Сообщение было отмечено feos как решение

Решение

Цитата Сообщение от feos Посмотреть сообщение
Как ввести данные из поля newpass в нужное поле таблицы "Группы пользователей" ???
Проще запросом на обновление:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub changepassbot_Click()
'Проверяем выбрана ли группа, если нет, выдаем сообщение
Dim s$
If IsNull(Me.User) Then
MsgBox "Выберите пользователя!"
Else
    'Проверяем введен ли пароль, если нет, выдаем сообщение
    If IsNull(Me.oldpass) Then
    MsgBox "Введите старый пароль!"
    Else
        If IsNull(Me.newpass) Then
        MsgBox "Введите новый пароль!"
        Else
           'Сверяем введенный пароль с паролем, сохраненным в таблице Группы пользователей и изменяем его
           If Me.oldpass = Me.User.Column(2) Then
              MsgBox "Пароль верный!"
                
                s = "UPDATE [Группы пользователей] SET Пароль = '" & Me.newpass & "' WHERE КодГруппыПольз=" & Me.User
                'Выполнение запроса
                CurrentDb.Execute s
 
              '[Группы пользователей]![пароль] = newpass
              
              Else
              MsgBox "Пароль не верный!"
            'В зависимости от выбранной группы открываем соотв-ую форму
        '    Select Case Me.ВыборГруппы
        '    Case 1
        '    End Select
           End If
        End If
    End If
End If
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2017, 14:30

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

Разделенный вход через форму ввода пароля и логина
Здравствуйте! Имеется БД с таблицами, формами, отчетами, макросами и модулем VBA. Мне нужно сделать...

Присвоение пароля для входа в БД
таблицы и связи между ними БД созданы в Microsoft SQL Server Management Studio 10.50.1600.1. ...

Сброс пароля для входа
Всем привет. Время учёбы подходит к концу, нужно начинать делать лабораторные :D Решил зайти в...

Восстановление пароля для входа в админку
Здравствуйте! Пожалуйста, научите, как восстановить пароль для входа в админку на сайт. Как и где...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.