Création des droit utilisation sous access

Messages postés
21
Date d'inscription
dimanche 29 mars 2015
Dernière intervention
1 décembre 2016
- - Dernière réponse : yusefbasraoui
Messages postés
21
Date d'inscription
dimanche 29 mars 2015
Dernière intervention
1 décembre 2016
- 29 avril 2016 à 21:15
Bonjour,
J'ai réusie a crée un formulaire qui ce lance au démarage et qui demande un pseudo et un mot de passe.....mais ce que je veux d'avoir appliquer des droits d'acces
administrateur et utilisateur normale
comment procéder
merci trooooop. :)
Afficher la suite 

Votre réponse

6 réponses

Messages postés
12421
Date d'inscription
mardi 11 mars 2003
Dernière intervention
18 décembre 2018
0
Merci
Bonjour
Quel Vb
  • Vb6
  • VBS
  • Vb.net
  • VBA

yusefbasraoui
Messages postés
21
Date d'inscription
dimanche 29 mars 2015
Dernière intervention
1 décembre 2016
-
VBA
t as une idee??
merci brow
Whismeril
Messages postés
12421
Date d'inscription
mardi 11 mars 2003
Dernière intervention
18 décembre 2018
-
Non c'est pour demander à un modérateur de mettre ta question dans le bon forum
Commenter la réponse de Whismeril
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Dernière intervention
23 août 2018
0
Merci
Tu pourrais ajouter un onglet (masqué en xlSheetVeryHidden) dans lequel tu mets les noms des usagers et à côté le type (Admin ou autre)

Au démarrage, après la validation au Userform tu mets ce type dans une variable Public (dans un Module) et tu l'utilises selon.
Commenter la réponse de cs_MPi
Messages postés
21
Date d'inscription
dimanche 29 mars 2015
Dernière intervention
1 décembre 2016
0
Merci


voila le code le formulaire
comment faire plz
Commenter la réponse de yusefbasraoui
Messages postés
21
Date d'inscription
dimanche 29 mars 2015
Dernière intervention
1 décembre 2016
0
Merci
Option Compare Database
Option Explicit

Private Sub btnlogin_Click()
Dim rs As Recordset

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

rs.FindFirst "Login = '" & Me.login & "'"

If rs.NoMatch = True Then
Me.fauxlogin.Visible = True
Me.login.SetFocus
Exit Sub
End If
Me.fauxlogin.Visible = False
If rs!mdp <> Me.mdp Then
Me.fauxmdp.Visible = True
Me.mdp.SetFocus
Exit Sub
End If
Me.fauxmdp.Visible = False
DoCmd.RunMacro "Menu"
DoCmd.Close acForm, Me.Name
End Sub
Commenter la réponse de yusefbasraoui
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Dernière intervention
23 août 2018
0
Merci
Je ne vois pas ce qui ne fonctionne pas.
J'irais plutôt avec une requête du genre

Set rs = CurrentDb.OpenRecordset("Select * from tbUser Where Login = '" & Me.Login & "'")

If Rs.Recordcount = 0 then 'Erreur de login - non trouvé
'....
ElseIf Rs!mdp <> Me.mdp Then 'erreur au niveau du mot de passe
'....
End if

UserType = Rs!UserSecurity


Commenter la réponse de cs_MPi
Messages postés
21
Date d'inscription
dimanche 29 mars 2015
Dernière intervention
1 décembre 2016
0
Merci
j t ai donné le code....pour m'indiquer comment insérer le test de user type.
merci broow t as consacré ton temps
Commenter la réponse de yusefbasraoui

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.