Code to check that users Access password is not null? 1

[planetdrouin]

I have a form that allows users to change their own passwords. However, I would like to add code upon startup which checks to make sure the users password (Access built-n security) is not null and if so open the change password form.

Does anybody know how to do this?

Thanks

Lawrence

 

[RickSpr]

You can't access the password directly to check, but here's something that should work:

Public Function UserHasPassword() As Boolean
    Dim ws As DAO.Workspace
    
    On Error Resume Next
    Set ws = DBEngine.CreateWorkspace("Temp", CurrentUser, "")
    If Err Then UserHasPassword = True
    Set ws = Nothing
End Function

This attempts to create a new workspace and log on as the current user with a blank password. If an error occurs, the user must have a non-blank password. Rick Sprague

 

[planetdrouin]

Rick,

Your accolades as a top tipmaster are well deserved. The code worked like a charm. Thanks for your help.

Lawrence