Zoals ik al eerder aangaf, bouw ik tegenwoordig liever db's op basis van Inlognamen. Die kun je namelijk heel makkelijk uitlezen. Je kunt vervolgens een Select Case maken op een startformulier waarbij je dan alle toegestane inlognamen toegang geeft tot bepaalde knoppen, en andere juist weer niet.
Iets als dit:
Code:
sUser = Environ("UserName")
Select Case sUser
Case "Persoon1"
me.cmdFormulier1.Visible=False
me.cmdFormulier2.Visible=True
me.cmdFormulier3.Visible=False
Case "Persoon2"
me.cmdFormulier1.Visible=False
me.cmdFormulier2.Visible=True
me.cmdFormulier3.Visible=True
Case "Persoon3"
me.cmdFormulier1.Visible=True
me.cmdFormulier2.Visible=True
me.cmdFormulier3.Visible=False
Case "Persoon4"
me.cmdFormulier1.Visible=True
me.cmdFormulier2.Visible=True
me.cmdFormulier3.Visible=True
Case "Persoon5"
me.cmdFormulier1.Visible=False
me.cmdFormulier2.Visible=True
me.cmdFormulier3.Visible=False
Case Else
MsgBox "U heeft geen rechten op deze database"
DoCmd.Quit
End Select
Heb je in ieder geval een idee hoe je verder kunt...