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

@feos · Регистрация: 21.03.2017

Есть таблица "Группы пользователей" в ней столбец "код", "имя пользователя" и "пароль"
В форме есть поле со списком "user" , которое подтягивает имена пользователей с таблицы.
поля oldpass и newpass - новый и старый пароль соответственно.

Visual Basic

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 в нужное поле таблицы "Группы пользователей" ???

@feos · 14.12.2017, 14:00 **[ТС]**

Собственно файл

@Eugene-LS · 14.12.2017, 14:30

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

Как ввести данные из поля newpass в нужное поле таблицы "Группы пользователей" ???

Проще запросом на обновление:

Visual Basic

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

Опции темы

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

Решение