Авторизация и изменение пароля

[Avetis62]

Здравствуйте друзья, создал базу при открытии которой, запускается форма авторизации “PWD”.
На форме создал кнопку “Изменить”. При попытке изменит, выдается ошибка “Не верный старый пароль”. Прошу помочь исправить ошибку. И еще, необходимо, чтобы при запуске формы авторизации “PWD”, в поле “User name” по умолчанию было бы пользователь “администратор”. Файл прилагаю. Заранее спасибо.

[Aleksandr H.]

1. а) для чего это

strPassword = RegKluch(СтарыйПароль.Value)

?
б) не верно работает выборка пароля с tblUsers

s = rstTemp!Password.

не дает нужную строку для сравнения
2. https://www.fmsinc.com/microsoftacce...ect-first.html

[Avetis62]

Здравствуйте Aleksandr H. Спасибо за то, что Вы меня помогайте. Я, с помощью ссылки, Ваше 3-ое замечание исправил, а вот остальные не могу исправить. Опять не работает "изменить" пароль. Если у Вас будет время, то исправьте мои ошибки, пожалуйста. Новый файл прилагаю.

[Aleksandr H.]

Что делает строка

strPassword = RegKluch(СтарыйПароль.Value)

?

[Avetis62]

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

[Aleksandr H.]

как вариант

Private Sub КнОК_Click()
On Error GoTo Err_
Dim rstTemp As Recordset
Dim s, strPassword As String
    strPassword = "SELECT * FROM tblUsers WHERE sName like """ & Form_PWD.Поле0 & """"
    Set rstTemp = CurrentDb.OpenRecordset(strPassword)
    strPassword = rstTemp.Fields(2)
    If IsNull(СтарыйПароль) Then
        MsgBox "Введите старый пароль!", vbCritical, "администратор"
        СтарыйПароль = Null
        СтарыйПароль.SetFocus
        Exit Sub
    ElseIf strPassword <> СтарыйПароль Then
        MsgBox "Не верный старый пароль!", vbCritical, "администратор"
        СтарыйПароль = Null
        СтарыйПароль.SetFocus
        Exit Sub
    ElseIf IsNull(НовыйПароль) Then
        MsgBox "Введите новый пароль!", vbCritical, "администратор"
        НовыйПароль.SetFocus
        Exit Sub
    ElseIf IsNull(Подтвердить) Then
        MsgBox "Введите подтверждение нового пароля!", vbCritical, "администратор"
        Подтвердить.SetFocus
        Exit Sub
    ElseIf Len(НовыйПароль.Value) <= 3 Then
        MsgBox "Слишком короткий пароль, нужно не менее 6 символов!", vbCritical, "администратор"
        НовыйПароль = Null
        Подтвердить = Null
        НовыйПароль.SetFocus
        Exit Sub
    ElseIf НовыйПароль.Value = Подтвердить.Value Then
        With rstTemp
            .Edit
            !Password = (НовыйПароль.Value)
            .Update
        End With
        rstTemp.Close
        MsgBox "Пароль сохранен!", vbInformation, "администратор"
        DoCmd.Close acForm, Me.Form.Name
    Else
        MsgBox "Подтвеждение не соответствует новому паролю!", vbCritical, "администратор"
        Подтвердить = Null
        Подтвердить.SetFocus
    End If
Exit_:
    Exit Sub
Err_:
    MsgBox Err.Description
    Err.Clear
    Resume Exit_
End Sub

[Avetis62]

Здравствуйте Александр, Ваш код нормально заработал, спасибо.