Discussion :

[cedill23]

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 :

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

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

[Invité]

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

Code :

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

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

[mout1234]

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 :

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

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).