Restrict user access

[aliaslamy2k]

Hello Experts,


I want to ammend below VBA in a way that it should check the user name and open
the form accordingly. Below is the code i got from google, but it works only for one form.

Example:


If user : Abalkhair log-in then he should be able to see only form ABC1




Private Sub BtnLogin_Click()
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("Login", dbOpenSnapshot, dbReadOnly)


rs.FindFirst "UserName='" & Me.TxtUserName & "'"

If rs.NoMatch = True Then
Me.LblWrongUser.Visible = True
Me.TxtUserName.SetFocus
Exit Sub
End If
Me.LblWrongUser.Visible = False




If rs!Password <> Me.TxtPassword Then
Me.LblWrongPass.Visible = True
Me.TxtPassword.SetFocus
Exit Sub
End If
Me.LblWrongPass.Visible = False
DoCmd.OpenForm "Report Form"
DoCmd.Close acForm, Me.NAME

End Sub

[orange]

Here is a youtube video by Steve Bishop that deals with User Access.
Good luck with your project.

[Gicu]

Have a look at my free utility http://forestbyte.com/ms-access-util...access-levels/

Not quite sure what you wanted to achieve with your code as it will not affect any object in your db, but if you want to open a specific form for each user you need to change this line

 DoCmd.OpenForm "Report Form"

to this

 DoCmd.OpenForm rs("FormName")

Cheers,

[aliaslamy2k]

Dear Gicu,

Thank you so much. i changed the code as per your suggestion and its working great.

[Gicu]

Great to hear, good luck with your project!

Cheers,

[alansidman]

Here is a link on how to offer permissions throughout an Access Data Base. In this tutorial, you can make certain forms available to certain people and restrict all others.

https://www.mrexcel.com/board/thread...system.248191/