Discussion :

[CrasherSEP]

Bonjour,

Comme vous pouvez voir dans le fichier joint, j'arrive bien à intégrer l'ouverture d'une fenêtre demandant un mot de passe, mais j'aimerais plus...

J'aimerais qu'au lieu de demander le mot de passe, encodé dans le code du formulaire (Mot de passe : 'test', pour l'exemple), il prenne le mot de passe directement dans la table 'Utilisateurs', avec en plus l'ID de l'utilisateur !

Avez-vous une idée des changements à faire pour que cela fonctionne, car moi, non...

Merci d'avance pour vos lumières :-)

[lucky01]

Bonjour,

Récupérer le mot de passe saisie (MDPsaisi) puis faire une requête qui va chercher dans la table le mot de passe (MDP) que cet utilisateur devrait avoir saisi par rapport a son Id (ID=IDsaisi).

Exemple :

Code sql :

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

SELECT MDP FROM Utilisateurs WHERE ID = IDsaisi

Ensuite, comparer le mot de passe saisi (MDPsaisi) avec la valeure retournée par la requête (MDP)

PS : Vous pouvez aussi utiliser une fonction de domaine du style DLookup.

[Invité]

Bonjour

La FAQ est ton ami : http://access.developpez.com/faq/?page=TAAdmin#login

Philippe

[CrasherSEP]

Merci à vous, mais je n'y arrive pas :-( Pourriez-vous m'aider en me donnant par exemple un exemple ?

Ps : Je n'arrive pas non plus à utiliser ce code :

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
34
Comment concevoir un formulaire login/mot de passe ?	
Mise à jour le 14/10/2007
auteur : Morsi
Pour exécuter ce code, il faut activer la référence : Microsoft DAO 3.x Object Library.

Le formulaire login/mot de passe permettra à un utilisateur de s'identifier et à la base de le reconnaître et de décider de lui donner
ou non la permission d'accéder à la base. Pour ce faire, on aura besoin d'une table T_User et d'un formulaire " F_Connexion ".

Table T_User (TRIGRAMME, NOM, PRENOM, GROUPE, PASWD) tous les champs sont de type texte. Un enregistrement exemple
de cette table : T_User(SED, SEBASTIEN, DULOT, Administrateur, root).

L'événement on_click du bouton Connexion :

Private Sub connexion_Click()
Me.Requery
Dim sql, User_id, User_groupe   As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USERS WHERE TRIGRAMME = \'" & Me.txt_user & "\' AND PASWD =\'"& Me.txt_pass & "\';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "F_Autre_Formulaire", acNormal, , , , acWindowNormal
  DoCmd.close acForm, "F_CONNEXION"
  User_id = rs("TRIGRAMME").value
  User_groupe = rs("GROUPE").value
Else
  MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
  i = i + 1
End If
If i = 3 Then 
Msgbox "Vous avez dépassé le nombre de tentatives autorisées", vbCritical
DoCmd.Quit
End If
End Sub

• Ok, pour la création de la table, enfin, je crois...
• Ok, pour le création du formulaire avec le code sur l'événement on_click d'un bouton...
• PAS Ok, pour les différents champs du formulaire ! Ou entrer l'Id et le mot de passe ? EDIT : txt_user et txt_pass
• Comment sait-il le formulaire à ouvrir après avoir entrer les bons codes ? - EDIT : F_Autre_Formulaire :-)

Dans mon exemple, la fenêtre avec mot de passe peut être utilisée pour n'importe quel formulaire, car cette fenêtre est appelée par le formulaire lui même... ce qui est bien ! Il me faudrait... une fusion entre le code précédent et mon exemple... est-ce possible ?

Merci d'avance pour vos lumières :-)

[CrasherSEP]

ATTENTION, à mon avis, le code devrait plutôt être comme ceci...

Code :

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

sql = "SELECT * FROM T_USERS WHERE TRIGRAMME ='\" & Me.txt_user & "\' AND PASWD ='\" & Me.txt_pass & "\';"

Non ?... Mais ne fonctionne toujours pas...

EDIT : Voici mon test...

[kabamel]

Salut à tous, au faite j'ai le même problème.
Je ne sais pas si le problème provient du sql ou d'autre.
Merci pour votre aide.
NB : Un exemple sera la bienvenue.

[kabamel]

Salut à tous,
Je pense qu'il y avais un problème dans le sql. Voilà je l'ai corrigé.
je te met le code et ta base modifiée :

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 Commande0_Click()
Me.Requery
Dim sql, User_id, User_groupe   As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USERS WHERE TRIGRAMME ='" & Me.txt_user & "' AND PASWD ='" & Me.txt_pass & "'"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "F_MENU", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "F_CONNEXION"
  User_id = rs("TRIGRAMME").Value
  User_groupe = rs("GROUPE").Value
Else
  Me.tenta.Value = Me.tenta.Value - 1
  MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
  i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisées", vbCritical
DoCmd.Quit
End If
End Sub

Le fichier joint est ici, N'oublie pas de mettre résolu :
Formulaire login.zip

[Rayan1]

Salut je pense que les fonctions NZ et DLookup peuvent faire l'affaire. Voir pièce jointeTest_RV.rar

[ALTECHKGO]

Une errer s'est glissé dans le code SQL
sql = "SELECT * FROM T_USERS WHERE TRIGRAMME ='\" & Me.txt_user & "\' AND PASWD ='\" & Me.txt_pass & "\';"

Vous enlever les \


et vous obtenez ceux-ci
sql = "SELECT * FROM T_USERS WHERE TRIGRAMME ='" & Me.txt_user & "' AND PASWD ='" & Me.txt_pass & "';"

Bonne suite