Discussion :

[franckimmo]

Bonsoir,

Je souhaite, sur un bouton commande dans un formulaire, introduire une requête qui ajoute des données de la table "Feuil2" vers la table "TblDébCréFeuil2" ( voir le code ci-dessous).

Ma première question : Pour écrire ma requête sur plusieurs lignes il faut mettre en fin de ligne un symbole et à la ligne suivante un autre mais je ne sais plus lesquels. Je pense que c'est : " _ & mais cela ne fonctionne pas.

Ma deuxième question : Manque t'il un code supplémentaire pour que mon bouton de commande fonctionne.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande30_Click()
INSERT INTO TblDébCréFeuil2 ( Numéro, [Date], Compte, [Cpte Bancaire], [Nom Banque], Débit, Société, IDVirmt, Folio, DateVirmt, Libellé, CommentairesFR )
SELECT Feuil2.Numéro, Feuil2.Date, Feuil2.[Compte n°], Feuil2.[Cpte Bancaire], Feuil2.[Nom Banque], Feuil2.Montant, Feuil2.Société, Feuil2.IDVirmt, Feuil2.Folio, Feuil2.DateVirmt, Feuil2.Libellé, Feuil2.CommentairesFR
FROM Feuil2
WHERE (((Feuil2.[Compte n°]) Not Between 411000 And 411999))
ORDER BY Feuil2.[Compte n°];
 
End Sub

Merci bien et bonne soirée à tous
Franck

[B_SKO]

Bonsoir,

ATTENTION tu mélange le code SQL et VBA qui ne sont interprété par le même programme.
Tu peux stocker ta requète sql dans une variable string type

Code VBA :

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

SQL = "select ..."

puis executer ta requète avec :

Code VBA :

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

docmd.runsql SQL

A+

[franckimmo]

Salut,

ok merci pour tes conseils, par contre je pense que si on veut séparer le code SQL dans VBA en plusieurs lignes, pour pas que ta ligne de code mesure 50 cm de long, il faut à chaque fin de ligne insérer un symbole et à la ligne suivante rajouter un symbole.
Mais je ne sais plus lesquels sont utilisés.

A+

Franck

[micniv]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim strSql as string
strSql = " INSERT INTO TblDébCréFeuil2 ( " _
& " Numéro, [Date], Compte, [Cpte Bancaire], [Nom Banque], Débit, Société," _
 & " IDVirmt, Folio, DateVirmt, Libellé, CommentairesFR )" _
 & " SELECT Feuil2.Numéro, Feuil2.Date, Feuil2.[Compte n°], " _
& " Feuil2.[Cpte Bancaire], Feuil2.[Nom Banque], Feuil2.Montant," _ 
& " Feuil2.Société, Feuil2.IDVirmt, Feuil2.Folio, Feuil2.DateVirmt," _
& " Feuil2.Libellé, Feuil2.CommentairesFR" _
& " FROM Feuil2 " _
& " WHERE (((Feuil2.[Compte n°]) Not Between 411000 And 411999))" _
& " ORDER BY Feuil2.[Compte n°];"
debug.print strSql
docmd.runsql strSql

[franckimmo]

Bonjour tous le monde,

Merci à vous deux, maintenant ça marche

Une bonne journée et A+

Franck