Discussion :

[Mstrflux]

bonjour,
Je souhaite créer un formulaire qui dirige l'utilisateur vers un formulaire précise en fonction de ses droits de connexions.
J'ai une table T_agents qui contient les champs login, pass et Droit_connexion
Le code VBA ci dessous marche il permet de s'assurer que l'utilisateur et le mot de passe sont les bons.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub connexion_Click()
Dim db As Database
Dim rs As Recordset
Dim password As String
 
Set db = CurrentDb
Set rs = db.OpenRecordset("select pass from T_Agents_SAPEI where login = '" & Me.login & "'")
With rs
If Not .EOF Then
password = !pass
If password = Me.password Then
DoCmd.OpenForm ("Menu_general")
Else
DoCmd.OpenForm ("Rejet_connexion")
Exit Sub
End If
Else
DoCmd.OpenForm ("Rejet_connexion")
Exit Sub
End If
End With
rs.Close
db.Close
End Sub

Je souhaiterai en plus que le niveau de droit de connexion de l'utilisateur soit pris en compte et l'oriente vers un formulaire précis sachant qu'il y a 3 valeurs possibles en doit de connexion (1,2,3)
j'ai essayé ce code qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Sub connexion_Click()
Dim db As Database
Dim rs As Recordset
Dim password As String
Dim Droit_connex As Integer
 
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from T_Agents_SAPEI where login = '" & Me.login & "'")
With rs
If Not .EOF Then
password = !pass
Droit_connex = !Droit_connexion
If password = Me.password Then
If Droit_connex = 3 Then
DoCmd.OpenForm ("Form3")
ElseIf Droit_connex = 2 Then
DoCmd.OpenForm ("Form2")
Else
DoCmd.OpenForm ("Form1")
End If
 
Else
DoCmd.OpenForm ("Rejet_connexion")
Exit Sub
End If
Else
DoCmd.OpenForm ("Rejet_connexion")
Exit Sub
End If
End With
rs.Close
db.Close
End Sub

Quelles sont mes erreurs ?
Merci d'avance pour votre aide.

[madefemere]

Bonjour,

Déjà, il faut que tu indentes correctement tes codes parce que cela facilite la lecture de l'algorithme.
A priori ton code devrait donner le résultat, mais tu dis que cela ne marche pas ! Qu'est ce qui ne marche pas ? Une erreur ? Si cela n'ouvre pas les bons formulaires, il faudrait débogguer le code avec des MsgBox ou Debug.Print pour voir quelles valeurs sont prises en compte lors de tes If et ELSEIF.

Pour la partie de vérification des connexions, j'utiliserai plutôt un

Code :

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

1
2
3
4
SELECT CASE  Droit_connex
Case 1
Case 2
Case 3

au lieu des IF imbriqués.

Cordialement,

[Mstrflux]

Merci madefemere.
Effectivement maintenant cela fonctionne, alors que ce matin le programme indiquait un problème en ligne 8.
L'essentiel c'est que désormais cela fonctionne.