Как узнать программно пароль юзера в базе mdb защищеной mdw ?

Как узнать программно пароль юзера в базе mdb защищеной mdw ?

Никак. Можно только попробовать

s = некий пароль
MyUser.NewPassword s, s

и если угадано правильно, то ошибки не будет.

Идея была чтобы сделать обязательным ввод второго пароля для идентификации пользователя при запуске access. А то слишком просто увидеть пароли mdw любой программой.

Хотел сделать так, чтобы код не позволял задавать такой же второй пароль как у пользователя в mdw.

Ну так мой ответ замечательно для этого подходит. Для проверки, является ли некий стринг текущим паролем.

function IsCurrentPwd(s as string)as boolean
on error resume next
err=0
dbengine(0).users(currentuser()).newpassword s,s
IsCurrentPwd=(err=0)
end function

А как это кодом проверки If ... Then написать если новый пароль "NEWPASS". Юзер CurrentUser() ?

ElseIf Me!NEWPASS = CurrentUser().NEWPASSWORD Then
MsgBox "SAME PASSWORD NOT ALLOWED !"

Так не получается

Помогите плиииз !

сравни свою написанную хрень
Me!NEWPASS = CurrentUser().NEWPASSWORD
с тем что тебе Саныч написал
dbengine(0).users(currentuser()).newpassword s,s
и найди 100 отличий

Я эту функцию скопировал один в один, но как ее вызывать программно и проводить проверку ? И какая проверка True or False или чтото еще ?