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 -
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
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
A voir également:
- Pb sous access vba
- Acer quick access - Forum logiciel systeme
- Quick Access service ✓ - Forum PC portable
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Access appdata - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Hello,
A priori il manque un & entre valeur et ";"
ChSQL = "SELECT * FROM Appels WHERE " & rech = valeur & ";"
Bon courage.
Anne-Sophie
A priori il manque un & entre valeur et ";"
ChSQL = "SELECT * FROM Appels WHERE " & rech = valeur & ";"
Bon courage.
Anne-Sophie