vous avez besoin de plus de codes
Placer les oAccess = le CreateObject (« Access.Application »)
oAccess.OpenCurrentDatabase (strDatabasePath)
oAccess.Visible=true
oAccess.UserControl=true
Si RS (« rôle ») = « administrateur » puis
oAccess.DoCmd.SelectObject jouable, vrai
Autrement
oAccess.DoCmd.SelectObject jouable, vrai
acCmdWindowHide d'oAccess.DoCmd.RunCommand
Finir si
signaler juste en arrière le résultat.