Changing Passwords Error: Item not found in this collection

[8020]

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

 

[Tom van Stiphout]

On Thu, 12 Nov 2009 01:10:01 -0800, 8020

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