Discussion :

[Milupa]

Bonjour,

Ca fait plusieurs jours que je bloque sur 2 problemes.
En premier lieu, j'aimerais, a l'aide d'un code vba, inserer une table dans une requete, ou alors ajouter des champs dans une requete.

Deuxiemement, j'ai cree un graphique dans une subform que j'ai integre a un formulaire. Le probleme, c'est que le graphique est lie a une condition et donc a chaque fois que j'ouvre mon formulaire, une boite de message apparait et me demande de preciser les conditions. J'aurais bien aime trouve un moyen d'eliminer ces boites de dialogue et de mettre a jour le graphique automatiquement.

Merci beaucoup.

[_developpeur_]

Bonjour,
je crois avoir compris que tu souhaites modifier une requête déja existante dans ta base Access.
Pour ce faire tu peux utiliser l'objet QueryDef

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim qdf As DAO.QueryDef 'Déclare l'objet
Set qdf = CurrentDb.QueryDefs("nomdemarequete") 'Accède à la requête qu'il faut modifier
qdf.SQL = Replace("Select * from ..................") 'Modifier la requête

Une entrée existe dans la faq sur ce sujet

[Milupa]

Merci bcp pour la reponse.
Meme si je voulais mettre a jour et non pas creer, bref ca marche.
Enfin, j'ai toujours 1 probleme (il faut dire que je suis vraiment nulle).
En relation avec ma 1ere question, j'aimerais nommer les champs d'une table par un nom de variable pour eviter des kms de lignes de programmation et surtout des erreurs de frappe.

J'ai ecrit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub x
Dim qdf As DAO.QueryDef
Dim article as DAO.TableDef
Dim classarticle as DAO.Field
Set article = CurrentDb.TableDefs("Article")
Set  classarticle  = article.Fields("N°Classification")
Set qdf = CurrentDb.QueryDefs("SuiviVentes")
qdf.SQL = " SELECT classarticle FROM article "
End Sub

J'ai un probleme pour definir le champ de la table.
Est ce que qq'un pourrait m'aider, svp.

Merci