Ajout d'une entrée texte dans une gestion des stocks sous Access

Version imprimable

Bonjour,

Je suis en train de travailler avec le tutoriel de Claude Leloup (très bon tutoriel au passage) dont voici le lien :http://claudeleloup.developpez.com/t...tion-de-stock/

Cependant, j'ai voulu lors de l'Encodage des Entrées ajouté une information supplémentaire : les fournisseurs.

J'ai donc dans le code ajouter les différents critères à respecter et actions à faire tels que :
La vérification du bon remplissage de la case:
Code:

1 2 IsEmpty(Me.txtFournisseur) Then MsgBox "Un des champs obligatoires n'est pas rempli"
La remise à zéro après enregistrement :

Code:

Me.txtFournisseur=Null

avec txtFournisseur ma zone de texte à remplir dans le formulaire.

Et enfin l'ajout dans la table de l'information :
Code:

1 2 3 4 5 6 7 8 9 10 11 MajtEntrees: sSql = "INSERT INTO tEntrees ( EntreeDate, EntreeQuant, EntreePU, tArticleCode, EntreeFournisseur, CMUP ) " _ & "SELECT #" & Format(Me.txtDate, "mm/dd/yy") & "# AS Expr1," _ & Me.txtQuant & " AS Expr2, " _ & Me.txtPU & " AS Expr3, " _ & Me.CboArticle & " As Expr4, " _ & Format(Me.txtFournisseur, "String") & " As Expr5, " _ & Replace(dCMUP, ",", ".") & " as Expr6;" DoCmd.SetWarnings False DoCmd.RunSQL sSql DoCmd.SetWarnings True
Le problème est que lorsque que j'ajoute un fournisseur, par exemple "Company A", le logiciel me renvoit une erreur '3075' et me dit "Erreur de syntaxe (opérateur absent)". Lorsque j'entre un chiffre il n'a pas de problème et lorsque j'entre un texte sans espace le logiciel me demande d'entrée une valeur de paramètre, laquelle sera bien enregistrée dans la table quelque soit son format.

J'ai au début cru que le logiciel reconnaissait ma variable comme étant un chiffre, voilà pourquoi j'ai ajouter une fonction "Format" dans la procédure "MajtEntrees", mais ça n'a rien donné..

Voilà mon problème, merci d'avance pour toute tentative d'aide ^^

Cordialement

Bonjour,
on encadre les données texte par des ['] et si dans ton texte il y a des ['] on les double ['']

et on replace toutes les [,] par des [.] si numérique! j'ai fait des modifs de format à toi de voire!

Code:

1
2
3
4
5
6
7
 sSql = "INSERT INTO tEntrees ( EntreeDate, EntreeQuant, EntreePU, tArticleCode, EntreeFournisseur, CMUP ) " _
          & "Values(cdate('" & Format(Me.txtDate, "yyyy-mm-dd") & "')," _
                       & Me.txtQuant & ", " _
                       & Replace(Me.txtPU , ",", ".") & "'," _
                       & Me.CboArticle & "','" _
                       & Replace(Me.txtFournisseur, "'", "''") & "'," _
                       & Replace(dCMUP, ",", ".") & ");"

Bonjour,

Merci pour ta réponse.

J'ai tout d'abord essayer le code que tu m'as fourni, cependant le logiciel m'indique une erreur de syntaxe que je ne parvient pas à corriger.

J'ai ensuite tenté de modifier mon propre code en utilisant Replace comme tu l'as fait:
Code:

1 2 3 4 5 6 7 sSql = "INSERT INTO tEntrees ( EntreeDate, EntreeQuant, EntreePU, tArticleCode, EntreeFournisseur, CMUP ) " _ & "SELECT #" & Format(Me.txtDate, "mm/dd/yy") & "# AS Expr1," _ & Me.txtQuant & " AS Expr2, " _ & Me.txtPU & " AS Expr3, " _ & Me.CboArticle & " As Expr4, " _ & Replace(Me.txtFournisseur, "'", "''") & " As Expr5, " _ & Replace(dCMUP, ",", ".") & " as Expr6;"
Cependant j'ai toujours exactement la même erreur...

Désolé si je n'ai pas su résoudre le problème avec ta réponse, je ne connais pas le VBA depuis longtemps et suis encore peu familiarisé à ce langage.
Et je ne suis pas sûr d'où est ce que je dois ajouter des ['] dans mon code?

En tout cas merci pour ta réponse.

11/05/2016, 13h41
Invité

précises moi les types NvarChar,DateTime, etc.. pour ces champ (EntreeDate, EntreeQuant, EntreePU, tArticleCode, EntreeFournisseur, CMUP ) dans ta table et je te dirai!
11/05/2016, 13h50
Ikart

Alors pour ma table tEntree:
EntreeDate : Date/Heure
EntreeQuant : Numérique
EntreePU : Monétaire
tArticleCode : Numérique
EntreeFournisseur : Texte court
CMUP : Monétaire

Je ne saurais pas te donné le nom en donnée SQL précis (si c'est bien comme ça que ça s'appelle, les NvarChar, DateTime etc...), est-ce que ces informations te suffisent?

Code:

1
2
3
4
5
6
7
8
sSql = "INSERT INTO tEntrees ( EntreeDate, EntreeQuant, EntreePU, tArticleCode, EntreeFournisseur, CMUP ) " _
          & "Values(#" & Format(Me.txtDate, "yyyy-mm-dd") & "#," _
                       & Me.txtQuant & ", " _
                       & Me.txtPU & "," _
                       & Me.CboArticle & ",'" _
                       & Replace(Me.txtFournisseur, "'", "''") & "'," _
                       & Replace(dCMUP, ",", ".") & ");"
CurrentDb.Execute sSql

11/05/2016, 14h29
Ikart

Ça marche!

Merci beaucoup pour avoir pris le temps de m'aider (ou même carrément résoudre mon problème).

Bien cordialement,

Bonjour,

Je me permet de réouvrir cette discussion suite à un problème survenant à la même ligne de code. Lors de mes entrée dans une le formulaire, il y a "PU" le prix unitaire, au format euro. Je n'avait rien vu jusqu'à aujourd'hui où j'ai essayé de rentrer un prix unitaire sous la forme d'un nombre décimal.
Lorsque je n'ai aucun chiffre derrière la virgule, je n'ai pas de problème, mais dès que j'en ai un Access me dit : Erreur d’exécution '3346' : Le nombre de valeurs de la requête doit coïncider avec le nombre de champs destination.

A mon avis, la virgule donne l'information au logiciel que je rentre deux variables séparées, mais je ne sais pas comment faire en sorte qu'il n'en considère qu'une... (j'ai essayé avec des crochets des guillemets etc mais je ne suis pas sur de bien les placer puisque ça na me donne rien).

Voici le code (encore merci à rdurupt pour son aide dessus) :
Code:

1 2 3 4 5 6 7 8 sSql = "INSERT INTO tEntrees ( EntreeDate, EntreeQuant, EntreePU, tArticleCode, EntreeFournisseur, CMUP ) " _ & "Values(#" & Format(Me.txtDate, "yyyy-mm-dd") & "#," _ & Me.txtQuant & ", " _ & Me.txtPU & ", " _ & Me.CboArticle & ",'" _ & Replace(Me.CboSupplier, "'", "''") & "'," _ & Replace(dCMUP, ",", ".") & ");" CurrentDb.Execute sSql
Le débogueur m'affiche une erreur à CurrendDB.Execute sSql, mais je pense que le problème se trouve en ligne 4...

Est-ce que vous auriez des idées s'il vous plait? :?

EDIT: excusez moi, mais la réponse se trouvais dans le code de rdurupt...il suffisait de faire un Replace(Me.txtPU , ",", "."), encore merci à lui du coup...
Et désolé d'avoir reéouvert la discussion

16/05/2016, 11h14
Invité

Bonjour,
Il faut bien comprendre que le séparateur décimale est virgule ce qui du point de vue Sql est unn séparateur de champs! Donc le nombre de paramètres passé à ta requête est déséquilibré!

De plus le séparateur décimal international n'est pas virgule mais le point!
replace(Me.txtPU ,",",".")
16/05/2016, 11h34
Ikart

Oui c'est ce que je me suis dit mais j'ai pas pensé à faire un replace pour avoir le bon format :mrgreen:
En tout cas merci pour tes réponses, ça m'a beaucoup aidé et ça m'aidera sûrement après :D