Pb sous access vba

Fermé
griese Messages postés 139 Date d'inscription dimanche 9 mai 2004 Statut Membre Dernière intervention 27 février 2008 - 15 juin 2004 à 17:33
blux Messages postés 26498 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 28 novembre 2024 - 16 juin 2004 à 09:26
Salut a tous,
G un probleme avec mon code sous access pourriez vous me dire ce qui cloche??
Merci d'avance
voila le code :
Dim cnx As New ADODB.Connection
Dim jeu As New ADODB.Recordset
Dim ChSQL As String
Dim rech As String
Dim valeur As String

Set cnx = CurrentProject.Connection
rech = Me.rech.Value
valeur = Me.valeur.Value
ChSQL = "SELECT * FROM Appels WHERE " & rech = valeur ";"
jeu.Open ChSQL, cnx, adOpenStatic
Me.NumAppel.Value = jeu.Fields(0)
Me.Date.Value = jeu.Fields(1)
Me.Heure.Value = jeu.Fields(2)
Me.NumAgence.Value = jeu.Fields(3)
Me.Contact.Value = jeu.Fields(4)
Me.Codeappli.Value = jeu.Fields(5)
Me.Nature.Value = jeu.Fields(6)
Me.Descriptif_appel.Value = jeu.Fields(7)
Me.Solution_immediate.Value = jeu.Fields(8)
Me.Descriptif_solution.Value = jeu.Fields(9)
jeu.Close
cnx.Close

Le pb vient de ma requte SQL, Access me dit qu'il y a une erreur de syntaxe

2 réponses

Anne-Sophie
15 juin 2004 à 17:39
Hello,

A priori il manque un & entre valeur et ";"
ChSQL = "SELECT * FROM Appels WHERE " & rech = valeur & ";"

Bon courage.

Anne-Sophie
0
blux Messages postés 26498 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 28 novembre 2024 3 317
16 juin 2004 à 09:26
Salut,

Il manque l'inclusion des apostrophes (car le champ valeur est de type string) et du = :
ChSQL = "SELECT * FROM Appels WHERE " & rech & "= '" & valeur & "';" 

A+ Blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
0