Re: Help with some VB Code

On May 6, 9:56=A0pm, "Albert D. Kallal" <PleaseNOOOsPAMmkal...@[EMAIL PROTECTED]
>
wrote:
> Actually, I have to run right now...but, let me take a look at this
later
> tonight....
>
> I do think something can be cooked up here.....
>
> --
> Albert D. Kallal =A0 =A0(Access MVP)
> Edmonton, Alberta Canada
> pleaseNOOSpamKal...@[EMAIL PROTECTED]
 is what I have now, I have defined the function
'NetworkUserName' to return the login name of the user. I want (where
the comments are) to change their user type (as defined in the *.ldb)
to be User instead of Admin, as User only has read only access to the
DB.

Been searching how to do that and can't find it, any help you could
provide would be awesome.


Sub LockDB()

    Dim Show_Box As Boolean
    Dim Response As String
    Dim userName As String

    userName =3D NetworkUserName()

    Show_Box =3D True

    While Show_Box =3D True

        Response =3D InputBox("Enter the Password for Admin. Cancel to
Enter as Read-Only", _
            "Read-Only Unlocking")

        'See if Cancel was pressed.
        If Response =3D "" Then

            'Set userName to the User group HERE
            MsgBox "You can look at anything, but change nothing"
            Show_Box =3D False


        Else
            'Test Entry to find out if it is the correct password.
            If ("safety" =3D Response) Then

                MsgBox "You are granted Admin rights"
                'set userName to the Admin group HERE
                Show_Box =3D False

            Else

                ' If the entry was wrong, show an error message.
                MsgBox "Wrong Password, Try again."

            End If
        End If
      Wend

End Sub

Thanks