Execution requete access VBA
Fermé
spartaboom
Messages postés
12
Date d'inscription
jeudi 3 juillet 2014
Statut
Membre
Dernière intervention
17 juillet 2014
-
11 juil. 2014 à 16:43
Tessel75 - 15 juil. 2014 à 12:28
Tessel75 - 15 juil. 2014 à 12:28
A voir également:
- Docmd.openquery
- Find vba - Astuces et Solutions
- Access runtime ✓ - Forum Access
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Acer quick access - Forum Logiciels
- Access appdata - Guide
4 réponses
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 711
11 juil. 2014 à 17:45
11 juil. 2014 à 17:45
Bonjour,
Je n'ai jamais eu de problème avec l'écriture:
DoCmd.OpenQuery "[Blabblabla]"
Fais attention à tous tes guillemets, il en manque un à la fin de l'écriture que tu nous présente, et Access n'aime habituellement pas trop les espaces dans les noms d'objets, et il est peut-être inutile d'avoir un nom aussi long et compliqué que "Moins_Values_derives_Coefficientes", "MoinsValDerivesCoeff" aurait aussi bien fait le travail sans risquer la faute d'écriture.
Bonne suite
Je n'ai jamais eu de problème avec l'écriture:
DoCmd.OpenQuery "[Blabblabla]"
Fais attention à tous tes guillemets, il en manque un à la fin de l'écriture que tu nous présente, et Access n'aime habituellement pas trop les espaces dans les noms d'objets, et il est peut-être inutile d'avoir un nom aussi long et compliqué que "Moins_Values_derives_Coefficientes", "MoinsValDerivesCoeff" aurait aussi bien fait le travail sans risquer la faute d'écriture.
Bonne suite
spartaboom
Messages postés
12
Date d'inscription
jeudi 3 juillet 2014
Statut
Membre
Dernière intervention
17 juillet 2014
15 juil. 2014 à 10:13
15 juil. 2014 à 10:13
Quand je lance l'execution de mon code ci-dessous , y'a une erreur qui s'affiche :
Erreur d'exécution '424': objet requis
en lettant en jaune la ligne "Set q = CurrentDb.QueryDefs("MAXhistovl")"
Merci pour votre reponse
Sub bal()
Dim db As DAO.Database
Dim q As DAO.QueryDef
Dim rs As DAO.Recordset
Set q = CurrentDb.QueryDefs("MAXhistovl")
Set q = Nothing
End Sub
Erreur d'exécution '424': objet requis
en lettant en jaune la ligne "Set q = CurrentDb.QueryDefs("MAXhistovl")"
Merci pour votre reponse
Sub bal()
Dim db As DAO.Database
Dim q As DAO.QueryDef
Dim rs As DAO.Recordset
Set q = CurrentDb.QueryDefs("MAXhistovl")
Set q = Nothing
End Sub