Insertion de données via un programme vba qui fait à une requete

Bonjour,

Je voudrais insérer un programme vba derriere mon bouton de mon formulaire mais je ne sais pas le faire. AIDEZ-moi Svp,MERCI.

Ce programme consiste à utiliser une requete sql.
Ma requete sera du type :

Code:

---

INSERT INTO <NomTableDestination> SELECT <Champ1>, <Champ2>….FROM <NomTableSource> WHERE <condition>

---

Comment utiliser une requete comme celle-ci avec un programme en vba dès lors de mon click il m'affecte mes données dans cette table.

Par ailleurs c'est bien une fonction dont j'ai besoin je pense.

Merci de m'ecrire la fonction svp je débute j'y connais rien ...j'apprends avec vous à dire vrai. Merci d'avance

Bonjour
Le principe:
Sur l'évènement On click de ton bouton:
[CODE]

Code:

---

1 2 3 4

Private Sub Ton_Bouton_Click() Dim req As String req = "INSERT INTO <NomTableDestination> SELECT <Champ1>, <Champ2>….FROM <NomTableSource> WHERE <condition>;" DoCmd.RunSQL req

---

Bonjour,

Une des approches courantes pour générer dynamiquement et exécuter du SQL en VBA consiste à utiliser la méthode Execute d'un objet Database.
http://warin.developpez.com/access/d...tie_3#L3.3.3.6


Classiquement, tu commences par créer ton instruction SQL dans une variable de type String, puis tu l'exécutes...

QQ chose du genre:

Code:

---

1 2 3 4 5 6 7 8

Dim oDB as database Dim sSQL as string sSQL = "INSERT INTO <NomTableDestination> " & _ " SELECT <Champ1>, <Champ2>…." & _ " FROM <NomTableSource> " & _ " WHERE <condition>;" set odb = currentdb oDB.execute sSQL, dbFailOnError

---

PS: Un des avantages de cette solution est de pouvoir lever une erreur d'exécution si un problème survient dans l'exécution de la commande SQL (gâce à l'option dbFailOnError).