Discussion :

[torNAdE]

salut,
ceci est un extrait de code pour une connexion à ma base de données avec un login et mot de passe. tous les identifiants de mes utilisateurs sont enregistrés dans ma table identification.
mon prob est que suuposons q'un utilisateur est identifié par son psw je voudris afficher un message dont le quel j 'affiche son nom. sans que je re-execute ma requete pour connaitre son nom.

est ce que qqn sait comment puis je ajouter du code ds ma fonction dont la quelle je pourra enregister le nom de l'utilisateur.

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
 
Private Sub Connexion_Click()
Me.Requery
Dim sql, User_id, User_groupe   As String
Dim world As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM identification WHERE Identifiant = '" & Me.Ident & "' AND Psw ='" & Me.psw & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "utilisa-frm", acNormal, , , , acWindowNormal
Else
 MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
End If
End Sub

[Demco]

Ayant aucune idée de l'endroit où se trouve son nom, il nous sera difficile de t'aider

[torNAdE]

eh bien une autre fois je suis desolé si j ai rapidement posté ce message car enfin de compte j ai trouvé la solution
il fallait tout simplement ajouter cette ligne
nom=rs("NAME").value
et le code 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
Private Sub Connexion_Click()
Me.Requery
Dim sql, User_id, User_groupe   As String
Dim world As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM identification WHERE Identifiant = '" & Me.Ident & "' AND Psw ='" & Me.psw & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "utilisa-frm", acNormal, , , , acWindowNormal
world = rs("Nom").Value
MsgBox (world)
Else
 MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
End If
End Sub