Bonjour,
Me voici bien embêté avec la commande DocCmd.RunSQL.
Mon code suivant ne marche pas
Quelqu'un(e) pourrait il(elle) éclairer ma lanterne SVP ?
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 Commande5_Click() 'on stock en variable le pseudo choisi dans la liste déroulante Dim pseudo As String pseudo = Forms!f_identification!pseudo.Value 'on stock le mot de pass saisie en variable Dim pass As String pass = Forms!f_identification!password.Value 'On va rechercher dans la table t_utilisateur le mot de pass pour le pseudo selectionné Dim passbase As String Dim req As String req = "SELECT t_utilisateur.pass FROM t_utilisateur WHERE t_utilisateur.pseudo=" + pseudo DoCmd.RunSQL (req) End Sub
Merci d'avance.
Partager