I have a bit of code to change users passwords that works perfectly until I
use a different workgroup or even move the workgroup that works to a
different location! What am I doing wrong? Any ideas appreciated (Access03):


usrx = Me!Combo8
strOldPassword = ""
strNewPassword = Me!Text14

Dim wrk As DAO.Workspace
Dim usr As DAO.User

Set wrk = DBEngine(0)
Set usr = wrk.Users(usrx)

usr.NewPassword strOldPassword, strNewPassword

Set usr = Nothing
Set wrk = Nothing

On Thu, 12 Nov 2009 01:10:01 -0800, 8020
<(E-Mail Removed)> wrote:

I find that hard to believe. If you move the workgroup, and then run
the app again and you have a correct shortcut specifying
/wrkgrp <path_to_mdw>
then you should be OK.

There may be something wrong with your application of security,
because normally speaking if you're not using the workgroup file that
belongs to the app, you can't get in. Workgroup security is an
advanced topic which you should only work with after downloading,
studying, and fully understanding the Access Security FAQ from
microsoft.com

-Tom.
Microsoft Access MVP


>I have a bit of code to change users passwords that works perfectly until I
>use a different workgroup or even move the workgroup that works to a
>different location! What am I doing wrong? Any ideas appreciated (Access03):
>
>
>usrx = Me!Combo8
>strOldPassword = ""
>strNewPassword = Me!Text14
>
> Dim wrk As DAO.Workspace
> Dim usr As DAO.User
>
> Set wrk = DBEngine(0)
> Set usr = wrk.Users(usrx)
>
> usr.NewPassword strOldPassword, strNewPassword
>
> Set usr = Nothing
> Set wrk = Nothing