Bonjour
Pour me permettre de faire une gestion des utilisateurs, j'ai crée un formulaire contenant 2 champs (Login, Password) et un bouton "Authentification"
Dans l'événement sur clic du bouton j'ai inséré le code ci-après:
Lorsque j'introduis le Login et Password, ça marche nickel
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 Private Sub Commande11_Click() Dim dbs As Database Dim rs As Recordset Dim strSql As String Set dbs = CurrentDb strSql = "SELECT * FROM Utilisateurs Where Nom='" & Replace(Me.Login, "'", "''") & "'" Set rs = dbs.OpenRecordset(strSql) sUser = "" sProfil = "" sService = "" If Not (rs.EOF And rs.BOF) Then If StrComp(Me.Password, rs.Fields("Connexion"), vbBinaryCompare) > 0 Then MsgBox "Utilisateur ou mot de passe incorrect", vbCritical Else sUser = rs.Fields("Nom") sProfil = rs.Fields("Profil") sService = rs.Fields("Service") & "" DoCmd.Close Select Case sProfil Case "R", "G" DoCmd.Openform "Utilisateur" Case Else DoCmd.Openform "Administrateur" End Select End If Else MsgBox "Utilisateur ou mot de passe incorrect", vbCritical End If End Sub
Par contre, lorsque j'introduis uniquement le Login et que j'appuie sur le bouton ça rentre alors que ça doit pas rentrer
Je crois qu'il y quelque chose qui manque au code VBA, que j'en connais rien du tout puisque ce code ci-dessus m'a été préparé par un informaticien de passage
Merci beaucoup pour votre aide
Partager