Requête SQL en VBA

**e040098k** · 27/04/2007, 09h26

Bonjour, le cherche à appeller un requête SQL par un code VBA

ma requête est :

Code :

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

1
2
3
INSERT INTO T_Bilan (Client, [Annee] )
SELECT T_Clients.NumClient, [Annee ?] AS Expr1
FROM T_Clients;

En vba j'ai ça mais ça me met un message d'erreur : Trop peu de parmètres, un attendu

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande0_Click()
 Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase("C:\Documents and Settings\stagiaire1\Bureau\Modeles\EssaiBilan.mdb")
    ' Exécution de la requête
    db.Execute "INSERT INTO T_Bilan ([Client], [Annee]) SELECT [T_Clients.NumClient],[Annee ?]AS Expr1 FROM T_Clients ;"
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
End Sub

Merci

**Oleff** · 27/04/2007, 09h48

Bonjour,
A quoi correspond le champ [annee ?] ?

**e040098k** · 27/04/2007, 10h05

En fait le lui demande d'ajouter dans la table T_Bilan un enregistrement pour chaque Numclient de la table T_Clients en renseignant aussi le champ "Annee", d'où le [Annee?], je demande à l'utilisateur de préciser pour quelle année il souhaite ajouté ces enregistrements !!

**Oleff** · 27/04/2007, 10h31

Fais un debug.print du texte de ta requête, cela te permettra de visualiser ce que tu exécutes.

**e040098k** · 27/04/2007, 10h52

Avec Debug.print il me donne ça :

INSERT INTO T_Bilan Set Annee = [Annee ?] T_Clients.NumClient

**Oleff** · 27/04/2007, 11h00

Y'a un souci là ta requête ne passe pas en entier.
En plus, il y a un gros mélange d'instructions SQL.
Normalement un INSERT tout seul ça donne

Code sql :

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

INSERT INTO table (champ, champ) VALUES (valeur, valeur)

Là tu te retrouves avec un 'set' qui correspond à un UPDATE.

De plus si tu as fait

Code :

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

Debug.print "INSERT INTO T_Bilan ([Client], [Annee]) SELECT [T_Clients.NumClient],[Annee ?]AS Expr1 FROM T_Clients ;"

Je ne vois pas comment tu peux te retrouver avec

Code :

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

INSERT INTO T_Bilan Set Annee = [Annee ?] T_Clients.NumClient

Enfin un petite remarque : pense aux balises de code.

**Oleff** · 27/04/2007, 11h03

Différentes question :
Tu lances ce code par un bouton, logiquement, ce bouton est sur un formulaire.
Pourquoi ne pas faire saisir l'année sur le formulaire ou par une input box?

Ton insert doit-il se faire sur une base distante ?

**e040098k** · 27/04/2007, 11h09

OK j'ai refait Debug.print, et j'avais du me planter quelques part car là il me donne çà :

INSERT INTO T_Bilan ([Client], [Annee]) SELECT [T_Clients.NumClient],[Annee ?]AS Expr1 FROM T_Clients ;

Effectivement il serait intéressant de préciser l'année par une input box, mais comment faire passer la variable dans la requête ?
Et non mon insert se faire sur la base actuelle

**ft035580** · 27/04/2007, 11h10

Salut,

Un exemple:

Ta requête:

Code SQL :

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

1
2
3
4
5
PARAMETERS Année text;
INSERT INTO T_Bilan ( Client, Année )
SELECT T_Clients.NumClient, T_Clients.Année
FROM T_Clients
WHERE (((T_Clients.Année)=[Année]));

Dans un formulaire:

Une zone de texte nommée "Année" et un bouton nommé "bouton"

Sur l'évènement Click de ton bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Bouton_Click()
Dim db As DAO.Database
Dim qd As DAO.QueryDef
 
Set db = CurrentDb
Set qd = db.QueryDefs("TaRequête")
      With qd
         .Parameters("année") = Forms![TonFormulaire]![année]
         End With
qd.Execute
 
End Sub

**e040098k** · 27/04/2007, 11h24

Je ne comprend pas tous désolé!!

Le code SQL, où est-ce qu'il faut que je le rentre ? Dans la procédure vba ou ailleurs???

Merci de votre patience!

**ft035580** · 27/04/2007, 11h28

Envoyé par e040098k

Le code SQL, où est-ce qu'il faut que je le rentre

Ce code est à placer dans une simple requête.

Nouveau/Mode création/Fermer/Sql/coller

**e040098k** · 27/04/2007, 11h35

Ok,

C'est vrai que comme ça ca va être beaucoup plus simple !! Merci

Seulement avec maintenant sur clique du bouton il me met une erreur d'éxecution :

" Trop peu de paramètres attendu"