Discussion :

[Gremandine]

Bonjour,

Dans un formulaire, j’ai créer un tableau croisé que les utilisateurs doivent remplir une fois par mois. (en ligne les produits et en colonne les services, le nombre à renseigner est le nombre de dossiers)

Produit 1 Produit 2 ….
Service 1
Service 2
…

En cliquant sur un bouton valider, un code VBA ajoute les nouvelles données dans la table.
Voici le code de mon bouton

Private Sub Commande120_Click()

Dim requete As String

requete = "INSERT INTO Nbdossierssaisis (Service, Nombredossiersaisis, Mois, Annee, Produit) VALUES ('"
requete = requete & TexteService1.Value & "' , '"
requete = requete & NBdossiers.Value & "', '"
requete = requete & ListeMois.Value & "', '"
requete = requete & ListeAnnee.Value & "', "
requete = requete & TexteProduit.Value & " );"

MsgBox requete
DoCmd.RunSQL requete

End Sub

Mon souci est que le code me renvoie bien dans le msgbox les données à ajouter et qu’il va ajouter des lignes dans ma table mais il me demande « TexteProduit : valeur du paramètre ». Je ne comprends pas pourquoi il me demande la valeur du paramètre d’une zone de texte. Quelqu’un voit le problème ???

Merci d’avance

[Kloun]

TexteProduit n'est pas entre '
Remplace

Code :

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

DoCmd.RunSQL requete

par

Code :

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

currentdb.execute requete, dbfailOnError

[Gremandine]

, juste après avoir posté le sujet sur le forum, je me suis aperçu que dans mon code, il me manquait des crochets pour la dernière zone de texte, donc c'est normal qu'il m'affiche la valeur du paramètre...
Donc ce sujet est résolu,

Bonne journée à tous.

[Gremandine]

Heu pas des crochets mais des ' (j'ai vraiment du mal ce matin).
Désolé et merci quand même.