Detecting user with blank password?

26 Jul 2006 9:37 AM

SF

Hi,

I want to secure my database. Users are using the database for some time now
and some of them does not have their password for login into the DB. Is
there a code to detect users with blank password?

SF

26 Jul 2006 12:12 PM

Joan Wild

You can try to open a new workspace, passing CurrentUser() as the username
and "" as the password.
If you don't get an error, then the "" password is correct, and they have a
blank password.

Dim ws as Workspace
Set ws = DBEngine.CreateWorkspace("tempws", CurrentUser(),"")
If Err=0 then
'they have a blank password
'open a form for them to change their password
Else
'they don't have a blank password
'do nothing
End If

--
Joan Wild
Microsoft Access MVP

SF wrote:

Show quoteHide quote

> Hi,
>
> I want to secure my database. Users are using the database for some
> time now and some of them does not have their password for login into
> the DB. Is there a code to detect users with blank password?
>
> SF

20 Oct 2006 3:26 PM

Neil Morris

I also need to do this, but need more details to complete this task - could
you please explain in a little more detail what you need to do? Many thanks.

Show quoteHide quote

"Joan Wild" wrote:

> You can try to open a new workspace, passing CurrentUser() as the username
> and "" as the password.
> If you don't get an error, then the "" password is correct, and they have a
> blank password.
>
> Dim ws as Workspace
> Set ws = DBEngine.CreateWorkspace("tempws", CurrentUser(),"")
> If Err=0 then
> 'they have a blank password
> 'open a form for them to change their password
> Else
> 'they don't have a blank password
> 'do nothing
> End If
>
>
>
> --
> Joan Wild
> Microsoft Access MVP
>
> SF wrote:
> > Hi,
> >
> > I want to secure my database. Users are using the database for some
> > time now and some of them does not have their password for login into
> > the DB. Is there a code to detect users with blank password?
> >
> > SF
>
>
>