Pb sous access vba

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

  • Votes
  • Date
  • Date décroissante
  1. Hello,

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

    Bon courage.

    Anne-Sophie
    1. Modérateur
      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"