Discussion :

[bobdylan]

bonjour
s'il vous plait, quelqu'un pourrait m'aider. J'ai besoin de stocker l'id et le groupe d'un utilisateur dans des variables globales, de sorte que si quelqu'un se connecte je spécifie les tâches qu'il puisse effectuer sur certains objets en VBA Access.
Comment faire?

voici mon code:

Option Compare Database
Public GrpUtil As String
Public CodeUtil As String

Private Sub Validation_Click()
Dim Ssql As String
Dim Ssql1 As String
Dim Ssql2 As String
Dim rst_Admin As Object
Dim rst_SupTech As Object
Dim rst_UtilSimple As Object

Set conect = Application.CurrentProject.Connection

Ssql = "SELECT Password FROM T_utilisateurs WHERE Code_utilisateur = '" & Me.Controls!Code_utilisateur & "' AND Id_groupe = 'Grp1'"
Set rst_Admin = CreateObject("ADODB.recordset")

Ssql1 = "SELECT Password FROM T_utilisateurs WHERE Code_utilisateur = '" & Me.Controls!Code_utilisateur & "' AND Id_groupe = 'Grp2'"
Set rst_SupTech = CreateObject("ADODB.recordset")

Ssql2 = "SELECT Password FROM T_utilisateurs WHERE Code_utilisateur = '" & Me.Controls!Code_utilisateur & "' AND Id_groupe = 'Grp3'"
Set rst_UtilSimple = CreateObject("ADODB.recordset")

rst_Admin.Open Ssql, conect, 1
rst_SupTech.Open Ssql1, conect, 1
rst_UtilSimple.Open Ssql2, conect, 1

If (rst_Admin.BOF And rst_Admin.EOF) = False Then
If rst_Admin![Password] = Me.Controls!Mot_de_passe Then


MsgBox "Password Correct, vous êtes connecté en tant qu'administrateur"
DoCmd.OpenForm "Interf_admin", acViewNormal
DoCmd.close acForm, "conct", acSaveNo

Else
MsgBox "Password invalide, retapez le mot de passe en respectant la casse"
End If



ElseIf (rst_SupTech.BOF And rst_SupTech.EOF) = False Then
If rst_SupTech![Password] = Me.Controls!Mot_de_passe Then


MsgBox "Password Correct, vous êtes connecté en tant que support technique"
DoCmd.OpenForm "Interf_Support", acViewNormal
DoCmd.close acForm, "conct", acSaveNo

Else
MsgBox "Password invalide, retapez le mot de passe en respectant la casse"
End If


ElseIf (rst_UtilSimple.BOF And rst_UtilSimple.EOF) = False Then
If rst_UtilSimple![Password] = Me.Controls!Mot_de_passe Then


MsgBox "Password Correct, vous êtes connecté en tant qu'utilisateur simple"
DoCmd.OpenForm "Interf_User", acViewNormal
DoCmd.close acForm, "conct", acSaveNo

Else
MsgBox "Password invalide, retapez le mot de passe en respectant la casse"
End If
Else

MsgBox ("Utilisateur invalide, saisissez le bon pseudonyme")

End If

rst_Admin.close
rst_SupTech.close
rst_UtilSimple.close
End Sub


Merci d'avance pour votre aide!

[marot_r]

Ton code est un peu long :-) mais si tu as récupéré le code de l'utilisateur il suffit d'écrire un truc du genre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
maVariableGlobale=maValeur

et le tour est joué.

Attention, de part leur facilité à être modifiées sans contrôle, les variables globales sont des sources de problèmes donc à utiliser avec modération.

A+