[vba access] pb de syntaxe avec openrecordset
bob
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
je souhaite récupérer certaines données d'une table dans un code en vba. Pour cela j'utilise openrecordset mais j'ai des problèmes dans la syntaxe pour arriver à filtrer les informations qui me seront nécessaires.
Je voudrais avoir dans infos uniquement les actions dont le type est le type choisi (dans une liste déroulante) et dont l'année est l'année choisie (dans une liste déroulante aussi)
mais ce code donne une erreur 424 objet requis..
pouvez vous me dire ce qui cloche?
merci
je souhaite récupérer certaines données d'une table dans un code en vba. Pour cela j'utilise openrecordset mais j'ai des problèmes dans la syntaxe pour arriver à filtrer les informations qui me seront nécessaires.
Je voudrais avoir dans infos uniquement les actions dont le type est le type choisi (dans une liste déroulante) et dont l'année est l'année choisie (dans une liste déroulante aussi)
Dim db As DAO.Database
Set db = CurrentDb
Set infos = db.OpenRecordset("select * from Actions where Actions.Type = " & """" & [Forms]![Menu]!type & """" And "Format(ActionsCorrectives.date, "yyyy") =" & """" [Forms]![Menu]!AnneeChoisie & """" )
mais ce code donne une erreur 424 objet requis..
pouvez vous me dire ce qui cloche?
merci
A voir également:
- [vba access] pb de syntaxe avec openrecordset
- Acer quick access - Forum logiciel systeme
- Quick Access service ✓ - Forum PC portable
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
3 réponses
re:
dans un cas comme celui-ci, je commence toujours par pousser la chaine SQL dans un variable string !
Dim db As DAO.Database, ChaineSQL As String
Set db = CurrentDb
ChaineSQL = "Select * From Actions Where Actions.Type = " & """" & [Forms]![Menu]!Type & " And Format(ActionsCorrectives.date," & """" & "yyyy" & """" & ") =" & """" & [Forms]![Menu]!AnneeChoisie & """"
à l'aide d'un point d'arrêt, assure toi que le syntaxe de la requête SQL est correct !
La valeur dans chaine doit être accepter lors d'un copier/coller dans les requêtes en mode SQL.
si la chaine est bonne alors :
Set infos = Db.OpenRecordset(ChaineSQL)
Est-ce clair ?
Lupin
dans un cas comme celui-ci, je commence toujours par pousser la chaine SQL dans un variable string !
Dim db As DAO.Database, ChaineSQL As String
Set db = CurrentDb
ChaineSQL = "Select * From Actions Where Actions.Type = " & """" & [Forms]![Menu]!Type & " And Format(ActionsCorrectives.date," & """" & "yyyy" & """" & ") =" & """" & [Forms]![Menu]!AnneeChoisie & """"
à l'aide d'un point d'arrêt, assure toi que le syntaxe de la requête SQL est correct !
La valeur dans chaine doit être accepter lors d'un copier/coller dans les requêtes en mode SQL.
si la chaine est bonne alors :
Set infos = Db.OpenRecordset(ChaineSQL)
Est-ce clair ?
Lupin