Pb sous access vba

griese Messages postés 139 Date d'inscription   Statut Membre Dernière intervention   -  
blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   -
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
 
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 27117 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
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