ник: ragman
В наличии ms Access 2003SP3, база с доступом по имени и паролю с помощью файла рабоей группы.
Програмными средствами реализовал добавление и удаление полюзователей в рабочую группу.
Появилась необходимость реализовать смену пароля конкретного пользователя (этакое администрирование пользователей для руководителя организации).
И вот проблема. Использую код, взятый из справки по программе:
Do While True
oldPassword = InputBox("Старый пароль:")
strPassword = InputBox("Новый пароль:")
Select Case Len(strPassword)
Case 1 To 14
myUser.newPassword oldPassword, strPassword
MsgBox "Пароль сменен!"
Exit Do
Case Is > 14
MsgBox "Пароль длиннее 14 символов!"
Case 0
Exit Do
End Select
Loop
|
И вся проблема в том, что пароль меняется даже при несовпадении старого пароля введенного и имеющегося у пользователя.
Как это исправить?