Discussion :

[novice06]

bonjour,
petit problème de codage pour mot de passe

la table TUsers contient les champ TUsersId et TUsersMDP
TUsersId correspond à l'utilisateur connecté "prénom.nom"
TUsersMDP le mot de passe lié à TUsersId

UserName est récupéré sur le load du formulaire

Code :

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

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal user As String, usersize As Long) As Long

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim user As String
Dim usersize As Long
 
user = Space$(255)
usersize = Len(user)
Call GetUserName(user, usersize)
If usersize > 0 Then
    Me.UserName = Left$(user, usersize)
    Else
    Me.UserName = Null
    End If
End Sub

le code suivant est censé comparer le mot de passe entré avec le mot de passe de la table TUsers et ouvrir un autre formulaire si le UserName récupéré par l'API correspond au TUsersId de TUsers

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
Private Sub Commande14_Click()
Dim msgerreur As Variant
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim sql As String
    Dim rst As DAO.Recordset
 
sql = "SELECT TUsersId FROM TUsers WHERE TUsersId = " & Chr(34) & Me.UserName & Chr(34)
rst = CurrentDb.OpenRecordset(sql)
If (rst.BOF And rst.EOF) = False Then
   If rst![TUsersMDP] = Me.Mot_de_passe Then
        stDocName = "Menu"
        DoCmd.Close
        DoCmd.OpenForm stDocName, , , stLinkCriteria
   Else
         MsgBox "Mot de passe erroné"
   End If
Else
   msgerreur = MsgBox("Utilisateur non autorisé - Rapprochez-vous de l'administrateur de l'application", vbOKCancel)
End If
rst.Close
End Sub

en cliquant sur Commande14 ça bloque sur:

Code :

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

rst = CurrentDb.OpenRecordset(sql)

par une "erreur de compilation - utilisation incorrecte de la propriété"


Microsoft DAO 3.6 object library est activé

pouvez-vous m'éclairer svp ?

merci

[lvz00]

Salut

Jette un oeil à l'instruction SET.

[novice06]

set me permet de passer le code mais maintenant en cliquant sur Commande14

Code :

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

1
2
Erreur d'éxécution 3075
Erreur de syntaxe dans la chaîne dans l'expression 'TUserId = " prénom1.nom1'.

il y a à première vue un

Code :

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

"

avant

Code :

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

 prénom1.nom1

avec un espace avant

Code :

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

prénom1.nom1

je n'arrive à régler le problème

ma table TUsers:

TUsersN° 1 / TUsersId prénom1.nom1 / TUsersMDP 1414
TUsersN° 2 / TUsersId prénom2.nom2 / TUsersMDP 1111
TUsersN° 3 / TUsersId prénom3.nom3 / TUsersMDP 1111

de plus:
par le débuggeur je m'aperçois que le UserName se compose à l'affichage de

Code :

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

nom1.prénom1

avec ce
à la fin

une idée ?

[novice06]

en remplaçant les Chr(34) par des ""

Code :

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

sql = "SELECT TUsersId and TUsersMDP FROM TUsers WHERE TUsersId = " & """ & Me.UserName & """

le code passe à l'instruction suivante mais:

en rentrant le mot de passe adéquate à prénom1.nom1 en cliquant sur Commande14 j'obtient le msgbox

Code :

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

Utilisateur non autorisé - Rapprochez-vous de l'administrateur de l'application

et si à la place de cliquant sur le bouton je tape manuellement 2 fois sur Entrée j'ai le msgbox

Code :

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

Mot de passe erroné

certes il y a un souci mais lequel ?

merci

[Kloun]

Oubli GetUserName, environ("UserName") fait la même chose

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
Private Sub Commande14_Click()
Dim iStr_MdP as string
 
    msgbox "UserName = " & environ("UserName")
    iStr_MdP = nz(DLookUp("TUsersMDP", "TUsers ", "TUsersId = '" & replace(environ("UserName"), "'", "''") & "'"), "")
    If iStr_MdP <> "" Then
        If iStr_MdP = Mot_de_passe.value Then
            DoCmd.Close
            DoCmd.OpenForm "Menu"   
        Else
            MsgBox "Mot de passe erroné"
        End If
    Else
        MsgBox "Utilisateur non autorisé - Rapprochez-vous de l'administrateur     de l'application", vbOKCancel
    End If
End Sub

[ilank]

Bonjour,
Novice essaie ceci :

Code :

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

Me.UserName=Left$(user,usersize-1)

Le usersize contient le nombre de caractères retournés y compris le caractère de fin de chaine CHR(0). Ou alors utilises

Code :

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

environ("USERNAME")

comme le propose Kloun.