variable vba dans requête sql

[pasb71]

Bonjour,

J'ai beaucoup trouvé de problèmes identique au mien malgré les réponses, je n'ai pas réussi à résoudre le mien.

Dans un formulaire access lorsque je clique sur un bouton je fais une requête d'ajout vers une table.

Pour celai je récupére une valeur d'un champ et la met dans une variable..

Ma variable a bien la valeur.

Ensuite j'ai l'erreur: Erreur d'exécution 3061 Trop peu de paramètre. 1 attendu.

voici mon code:

Code :

1
2
3
4
5
6
7
8
9
Private Sub Commande120_Click()
 
monnumero = [Forms]![SF-saisie-statistique]![id_match] 'récupère la valeur du champ id_match
 
 
CurrentDb.Execute "INSERT INTO [T-joueur-expluser-pas-paye] ( id_saison, saison, id_match, date_match, Joueurs, id_equipe, equipe_domicile, SommeDesommedepen ) SELECT [RS-joueur-expulsion].id_saison, [RS-joueur-expulsion].saison, [RS-joueur-expulsion].id_match, [RS-joueur-expulsion].date_match, [RS-joueur-expulsion].Joueurs, [RS-joueur-expulsion].id_equipe, [RS-joueur-expulsion].equipe_domicile, [RS-joueur-expulsion].SommeDesommedepen FROM [RS-joueur-expulsion] WHERE ((([RS-joueur-expulsion].id_match)=monnumero));"
 
 
End Sub

Par contre si je met un chiffre ex:341 à la fin de ma requête celle-ci fonctionne

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub Commande120_Click()
 
monnumero = [Forms]![SF-saisie-statistique]![id_match] 'récupère la valeur du champ id_match
 
 
CurrentDb.Execute "INSERT INTO [T-joueur-expluser-pas-paye] ( id_saison, saison, id_match, date_match, Joueurs, id_equipe, equipe_domicile, SommeDesommedepen ) SELECT [RS-joueur-expulsion].id_saison, [RS-joueur-expulsion].saison, [RS-joueur-expulsion].id_match, [RS-joueur-expulsion].date_match, [RS-joueur-expulsion].Joueurs, [RS-joueur-expulsion].id_equipe, [RS-joueur-expulsion].equipe_domicile, [RS-joueur-expulsion].SommeDesommedepen FROM [RS-joueur-expulsion] WHERE ((([RS-joueur-expulsion].id_match)=341));"
 
 
End Sub

Merci

[vodiem]

salut pasb71 et bienvenu,

Code :

CurrentDb.Execute "INSERT INTO Table1 (champ1,...) SELECT champ2,... FROM Table2 WHERE (id_match=" & monnumero & ");"

[loufab]

Bonjour,

En complément ce tuto peut t'en apprendre.

http://cafeine.developpez.com/access...el/debugprint/

Cordialement,

[pasb71]

Ok merci c'est super

[LE VIEUX]

bonsoir,
donc a priori ton problème est résolu - donc le tag résolu OK ?