Discussion :

[kave]

Bonjour chers développeurs
j'ai créer un formulaire LOGIN sous access 2007 pour se s'authentifier grâce a un identifiant et un mot de passe dont les informations sont dans une table identification.

ma préoccupation est la suivant comment faire pour qu'Access respecte la casse de saisie car j'ai remarqué que pour l'utilisateur A1 avec pour login= A1 et mot de passe = A1. Si l'utilisateur A1 fait login = A1 et le mot de passe = a1, il a accés au programme alors que A1 est diffèrent de a1.

Alors est il possible d'obliger Access à faire la différence entre les casses de saisie?

Merci pour vos réponses

[jimbolion]

kave,

Access étant effectivement insensible à la casse, tu peux utiliser une fonction de conversion de tes chaînes et ainsi les comparer sous forme Hexadécimale.

Insères cette fonction dans un module :

Code :

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

1
2
3
4
5
6
7
Function transforme_chaine(Mavaleur) As String
    If Nz(Mavaleur, "") = "" Then transforme_chaine = "": Exit Function
    For i = 1 To Len(Mavaleur)
        transforme_chaine = transforme_chaine & Hex(Asc(Mid(Mavaleur, i, 1)))
    Next
    '
End Function

L'utilisation de ta fonction te permettra alors d'effectuer la comparaison en gérant la casse. Voilà un exemple d'utilisation :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande4_Click()
    If transforme_chaine(Me.Login) <> transforme_chaine(Me.MotdePAsse) Then
        MsgBox "chaine différente"
    Else
        MsgBox "chaine identique"
    End If
 
End Sub

PS. A noter que cette fonction est également utilisable dans les requêtes si nécessaire

Jimbolion

[kave]

Bonjour à tous,

jimbolion, je vous présente ma base en pièce jointe car j'ai des erreurs dans l’exécution des codes

Merci pour votre réponse

[jimbolion]

Kave bonjour,

Pour commencer mon code suivait la logique développé dans ta question à savoir contrôler un mot de passe avec un identifiant (login) ce qui aurait été une grosse erreur. Il faut donc comparer le mot de passe de l'utilisateur renseigné (dans la table tbUsers) et celui renseigné sur le formulaire d'identification.

Ce copier coller :

Code :

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

If transforme_chaine(Me.Login) <> transforme_chaine(Me.txtPassword) Then

est donc une une aberration.

donc les étapes sont :

1. Vérifier la présence d'un identifiant
2. Récupérer le mot de passe dans la table
3. Comparer les deux mots de passe avec gestion de la casse (ainsi password <> Password)

La récupération d'un mot de passe dans la table avec le filtre identifiant s'opère par l'utilisation des fonctions de domaines grâce à Dlookup : http://starec.developpez.com/tuto/fonctionsdomaines/

Le code fourni sur clic de ton bouton devient :

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
Private Sub Commande7_Click()
    Dim Password As String
    '
    ' On vérifie la saisie d'un login
    '
    If Nz(Me.LOGIN, "") = "" Then
        MsgBox "Vous devez saisir un login !"
        Exit Sub
    End If
    '
    ' Récupère le mot de Passe grâce à une fonction de domaine
    '
    Password = Nz(DLookup("[MOT DE PASSE]", "tblUser", "LOGIN='" & Me.LOGIN & "'"), "")
    '
    ' comparaison du mot de passe stocké dans tbuser avec celui du forms
    ' Uilisation de la fonction contrôle de la casse
    '
    If transforme_chaine(Password) <> transforme_chaine(Me.txtPassword) Then
            MsgBox "Mot de passe erroné"
        Else
            DoCmd.Close                     ' ferme le formulaire frmlogin
            DoCmd.OpenForm "frmMainMenu"    ' ouverture du formulaire menu
    End If
 
End Sub

Malgré tout quelques conseils sur ton projet :
1. Eviter les espaces et accents dans le nom de tes champs dans les tables,
2. donner des noms à tes contrôles (exemple bt_valider plutôt que cmmande7)

Si la réponse donnée est conforme à tes attentes pense à mettre . Pour de nouvelles demandes pense à créer un nouveau fil de discussion.

Cordialement

jimbolion

[kave]

Bonjour jimbolion,

je vous remercie pour votre aide et conseils, je vais en tenir compte

Grand merci à tous les développeurs et à l'équipe de developpez.net

[jimbolion]

A tous,

une autre solution pour ceux qui seraient amenés à lire ce fil de discussion est d'utiliser strcomp :

https://msdn.microsoft.com/fr-fr/lib...(v=vs.90).aspx

ainsi son utilisation :

Code :

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

1
2
3
4
5
6
7
8
9
10
Function comparetext()
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd"    ' Définit les variables.
result = StrComp(MyStr1, MyStr2, 1)    ' Renvoie 0.
 
result = StrComp(MyStr1, MyStr2, 0)    ' Renvoie -1.
 
result = StrComp(MyStr2, MyStr1)    ' Renvoie 1.
 
End Function

Cordialement

[Fidèle1987]

Kave bonjour,

Pour commencer mon code suivait la logique développé dans ta question à savoir contrôler un mot de passe avec un identifiant (login) ce qui aurait été une grosse erreur. Il faut donc comparer le mot de passe de l'utilisateur renseigné (dans la table tbUsers) et celui renseigné sur le formulaire d'identification.

Ce copier coller :

Code :

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

If transforme_chaine(Me.Login) <> transforme_chaine(Me.txtPassword) Then

est donc une une aberration.

donc les étapes sont :

1. Vérifier la présence d'un identifiant
2. Récupérer le mot de passe dans la table
3. Comparer les deux mots de passe avec gestion de la casse (ainsi password <> Password)

La récupération d'un mot de passe dans la table avec le filtre identifiant s'opère par l'utilisation des fonctions de domaines grâce à Dlookup : http://starec.developpez.com/tuto/fonctionsdomaines/

Le code fourni sur clic de ton bouton devient :

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
Private Sub Commande7_Click()
    Dim Password As String
    '
    ' On vérifie la saisie d'un login
    '
    If Nz(Me.LOGIN, "") = "" Then
        MsgBox "Vous devez saisir un login !"
        Exit Sub
    End If
    '
    ' Récupère le mot de Passe grâce à une fonction de domaine
    '
    Password = Nz(DLookup("[MOT DE PASSE]", "tblUser", "LOGIN='" & Me.LOGIN & "'"), "")
    '
    ' comparaison du mot de passe stocké dans tbuser avec celui du forms
    ' Uilisation de la fonction contrôle de la casse
    '
    If transforme_chaine(Password) <> transforme_chaine(Me.txtPassword) Then
            MsgBox "Mot de passe erroné"
        Else
            DoCmd.Close                     ' ferme le formulaire frmlogin
            DoCmd.OpenForm "frmMainMenu"    ' ouverture du formulaire menu
    End If
 
End Sub

Malgré tout quelques conseils sur ton projet :
1. Eviter les espaces et accents dans le nom de tes champs dans les tables,
2. donner des noms à tes contrôles (exemple bt_valider plutôt que cmmande7)

Si la réponse donnée est conforme à tes attentes pense à mettre . Pour de nouvelles demandes pense à créer un nouveau fil de discussion.

Cordialement

jimbolion

Cette fonction m'a sauvé. J'ai galéré pendant très longtemps et voilà, tu m'as donné la solution. Merci beaucoup et longue vie au club