création des droit utilisation sous access

Question

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. :)

Whismeril · Answer

Bonjour
Quel Vb

Vb6
VBS
Vb.net
VBA

cs_MPi · Answer

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.

yusefbasraoui · Answer

voila le code le formulaire
comment faire plz

yusefbasraoui · Answer

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

cs_MPi · Answer

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 ifUserType = Rs!UserSecurity

yusefbasraoui · Answer

j t ai donné le code....pour m'indiquer comment insérer le test de user type.
merci broow t as consacré ton temps

Création des droit utilisation sous access

6 réponses

Votre réponse

Discussions similaires