Discussion :

[le_dilem]

Bonjour à tous voila,
voila j'ai un petit probleme que j'arrive pas comprendre sur access 2003 le code fonctionne bien mais sur 2007 non.

quelqu'un peut il m'eclairé Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande4_Click()
Dim ssql As String
Dim res As Recordset
 
ssql = "SELECT Nom, Password FROM Users WHERE" & _
"Nom = '" & noms & "' " And Password = " & pass"
 
Set res = CurrentDb.OpenRecordset(ssql)
If res.EOF Then
    MsgBox "Le nom tapé n'existe pas.", vbInformation
    pass.SetFocus
    U_Name = res!Nom
End If
End Sub

[mout1234]

Bonjour,

Précise STP ce qui ne fonctionne pas (quel message d'erreur, sur quelle ligne).

En passant il y a un problème de guillemets parasites dans ton code, et ton mot de passe- je présume- est aussi au format texte. Au minimum, il faudrait ajouter les quotes également pour ce champs (ce qui suppose que le mot de passe ne contienne pas de ').

Code :

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

1
2
3
 
ssql = "SELECT Nom, Password FROM Users WHERE" & _
"Nom = '" & noms & "' And Password = '" & pass & "'"

[le_dilem]

erreur de syntaxe dans la close from

Set res = CurrentDb.OpenRecordset(ssql)

[mout1234]

Fais une exécution pas à pas et regarde ce que vaut ta chaine ssql...


En passant, je remarque qu'il manque un espace aprés les WHERE

Code :

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

1
2
ssql = "SELECT Nom, Password FROM Users WHERE " & _
"Nom = '" & noms & "' And Password = '" & pass & "'"