Discussion :

[Philosophiste]

Bonjour à tous,

J'ai un formulaire, qui après remplissage par l'utilisateur doit alimenter une table de ma base de données.
J'ai créé en bas de ce formulaire un bouton pour valider l'insertion des données dans ma table. Au clic sur ce bouton une requête est lancée, et c'est elle qui est chargé de ce travail.

Je code avec VB. J'ai tenté deux méthodes pour créér cette requête, et je me suis aperçu que seuls les numériques étaient retournés correctement, pour les chaines de caractères un paramètre m'est demandé au clic sur le bouton et avant insertion dans la table. De plus ce paramètre est alors affecté dans la table à la place de ce qui est écrit dans le formulaire. Je pense que c'est une erreur de codage

Je vous donne les deux méthodes que j'ai employé :

1.

Code :

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

DoCmd.RunSQL "INSERT INTO CONSOMMABLE(numfsseur_conso, numconstructeur_conso, numcat_conso, libelle_conso) VALUES (" & [Forms]![f-consommable_ajout]![fsseur] & ", " & [Forms]![f-consommable_ajout]![constructeur] & ", " & [Forms]![f-consommable_ajout]![categorie] & "," & [Forms]![f-consommable_ajout]![libelle] & ");"

2.

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 numfsseur As Integer
numfsseur = [Forms]![f-consommable_ajout]![fsseur]
 
Dim numconstr As Integer
numconstr = [Forms]![f-consommable_ajout]![constructeur]
 
Dim numcat As Integer
numcat = [Forms]![f-consommable_ajout]![categorie]
 
Dim libelle As String
libelle = [Forms]![f-consommable_ajout]![libelle]
 
DoCmd.RunSQL "INSERT INTO CONSOMMABLE (numfsseur_conso, numconstructeur_conso, numcat_conso, libelle_conso) VALUES (" & numfsseur & ", " & numconstr & ", " & numcat & ", " & libelle & ");"

Merci par avance de vos impressions.

Vini.

[Jean-Philippe André]

salut,
lorsque tu souhaites insérer une valeur de type chaine de caractères, il faut que celle-ci soit encadrée par des quote (')
exemple :

Code sql :

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

INSERT INTO MaTable (MonchampNum,MonChampTxt) VALUES (9,'Neuf')

[Philosophiste]

Merci beaucoup à toi pour ta réactivité, et pour avoir résolu mon problème.