[VBA]Fonction 'ajout' en vba sur une table

Bonjour,
Voici mon Problème, j'ai 4 tables qui contiennent le même nombre de champs et les mêmes intitulés de champs. Je voudrais réunir les informations de chaque table dans une table base globale.

J’ai essayé une requête union qui marche parfaitement mais derrière j'ai des problèmes avec mon formulaire alors qu’avec la table je n'avais pas de problème (à l'époque je n'avais qu'une table !).
Alors je me dis, si je conserve la structure actuelle et que j'enrichi de manière automatique à l'ouverture de la l'application la table globale avec les données des autres tables qui viennent d'apparaitre j'aurai résolu mon problème !

Mais je nage un peu pour faire cela en vba.
Merci pour votre aide.
;)

Il faut que tu te crée 3 requête qui ajoutera tes champs dans la table voulu.

Exemple:

Code:

---

1 2 3 4

CurrentDb.Execute ("Ajout_table_2_dans_table1") CurrentDb.Execute ("Ajout_table_3_dans_table1") CurrentDb.Execute ("Ajout_table_4_dans_table1")

---

Alex

Bonjour,
Merci pour cette piste, je vais faire des essais de ce pas !
:P

Oublie pas le résolu si ça marche, sinon je suis là pour t'aider ;)

Alex

Je comprend pas comment faire !
merci de me fournir plus d'explication :oops:

J'ai un problème dans l'expression et la syntaxe !

CurrentDb.Execute (Le nom de ta requête déjà existante)

Est ce que c'est ce que tu as fait?

Alex

Oui je fais cela mais j'ai un mesage d'erreur d'exécution 3065, impossible d'exécuter une requête de selection !

Je le note comme ci-dessous:
code

Code:

---

1 2 3 4

Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize CurrentDb.Execute ("Rockfon") End Sub

---

Bonjour,
Autre possiblité tu crées ta table globale à partir de ta requête UNION

Code:

---

1 2	SELECT requeteUnion.* INTO tableGlobale FROM extract_goubie;

---

Bémol, si ta table globale existe, le système va la remplacer... A manier avec précaution !

C'est une requête d'ajout que tu dois avoir.
Test ta requête pour qu'elle marche avant de la mettre dans le vba (pour quelle ajoute tes données voulues dans la table voulu)

J'ai créé ma requête 'ajout' et elle marche !
Que dois-je faire maintenant ?

;)

Test le code VBA que tu m'as donné

[Code = VBA]
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
CurrentDb.Execute ("Rockfon") 'C'est ta requête d'ajout que tu place là!
End Sub
[/Code]

Aussi, pour t'assurer de garder l'intégrité des données, tu peux te faire une requête de suppression des champs inverse de celle d'ajout.

Si tu as d'autre question n'hésite pas.

Alex

Bonjour,
j'ai fait le test avec le code, j'ai mis le nom de la requête et cela ne marche pas.

Youpi ça fonctionne, j'avais un problème de syntaxe.
Merci pour tout.
;)

C'est bien une requête comme celle ci :

Code:

---

1 2 3 4

INSERT INTO tbl_1( [Valeur du champ], [Nom du champ] ) SELECT "champ1","champ2" FROM [tbl_2];

---

Sinon, je ne vois pas ce qu'il y a de pas correct...

Alex