Discussion :

[Philosophiste]

Bonjour,

J'ai créé un formulaire sous Acess 07. Il contient différents champs à remplir, ainsi qu'un bouton de validation.

Au clic sur ce bouton de validation, une requête Sql est exécutée. Elle enregistre dans une table les données issues du formulaire.

J'utilise VB pour coder l'action au clic de ce bouton de validation. Et le soucis est que je parvient bien à enregistrer dans ma table les données issues du formulaire de types entier et string, mais pas les données de type monétaire.
En effet, lorsque j'entre un nombre entier cela fonctionne bien, mais lorsque je rentre dans mon formulaire un nombre à virgule, l'erreur suivante apparait :

" Erreur d'exécution '3346' :
Le nombre de valeurs de la requête doit coincider avec le nombre de champs destination. "

Et voici ma requête :

Code :

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

DoCmd.RunSQL "INSERT INTO CONSOMMABLE (numfsseur_conso, numconstructeur_conso, numcat_conso, libelle_conso, designfsseur_conso, qtemin_conso, ref_conso, prix_conso) VALUES (" & numfsseur & ", " & numconstr & ", " & numcat & ", '" & libelle & "'" & ", '" & designfsseur & "'" & ", " & qtemin & ", '" & ref & "'" & ", " & pu & ");"

J'ai donc là je pense un soucis de syntaxe pour l'enregistrement de données de type monétaire. Il est également à noter que j'ai déclaré des variables avant la requête, comme cela :

Code :

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

1
2
3
4
5
6
7
8
Dim numfsseur As Integer
Dim numconstr As Integer
Dim numcat As Integer
Dim libelle As String
Dim designfsseur As String
Dim qtemin As Integer
Dim ref As String
Dim pu As Currency

Je vous remercie par avance pour vos impressions, en espérant vous avoir là donné tous les éléments nécessaires.

Vini.

[loufab]

Bonjour,

En VBA les virgules sont des points c'est peut-être de là que vient ton problème.

Avec le peu de code fournit je ne vois pas plus.

Cordialement,

[antoinev2]

Bonjour vini76,

dans ton formulaire, as-tu bien défini le format de ta zone de texte correspondant au prix à "Monétaire"?

[Philosophiste]

Que je rentre un point ou une virgule le message d'erreur s'affiche. Et j'ai bien effectivement défini le format de ma zone de texte en 'monétaire'. Avec un entier je peux ajouter l'enregistrement, avec un nombre à virgule il y'a erreur.

Y'a t-il une fonction sinon qui pourrait me permettre de récupérer la valeur de mon nombre à virgule, de la formater pour pouvoir ensuite l'enregistrer dans ma table en 'monétaire' ??

[Invité]

Bonjour

Avec le peu de code fournit je ne vois pas plus.

Je suis d'accord avec Loufab, comment affectes-tu ta donnée à ta variable ?

As-tu essayé la fonction de conversion CCur ?

Philippe

[Philosophiste]

C'est vrai que j'ai omis de mettre le code d'affectation de mes variables, le voila :

Code :

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

1
2
3
4
5
6
7
8
numfsseur = [Forms]![f-consommable_ajout]![fsseur]
   numconstr = [Forms]![f-consommable_ajout]![constructeur]
   numcat = [Forms]![f-consommable_ajout]![categorie]
   libelle = [Forms]![f-consommable_ajout]![libelle]
   designfsseur = [Forms]![f-consommable_ajout]![designation]
   qtemin = [Forms]![f-consommable_ajout]![qtemin]
   ref = [Forms]![f-consommable_ajout]![reference]
   pu = [Forms]![f-consommable_ajout]![pu]

Et je n'ai pas essayé la fonction CCur, je ne connaissais pas..