Discussion :

[jouclar]

Bonjour à tous,

Je vous sollicite car je coince sur l'insertion via vba de chiffres à virgules. J'ai essayé de m'inspirer de cette discussion https://www.developpez.net/forums/d9...e-requete-sql/ mais rien n'y fait ...

Je construis la requête SQL en concaténant des variable et je souhaite garder 1 valeur en paramètre celle contenant mes chiffres à virgules, c'est "curBpuItemPrix"

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim oQdf As DAO.QueryDef
Set db = CurrentDb
...
        qryInserBpuItems = "PARAMETERS curBpuItemPrix CURRENCY" & _
                            " INSERT INTO tblTravMinutes (tmiChiffrageFK, tmiMarcheTypeFK, tmiLot, tmiItemRubrique, tmiItemCode, tmiItemLibelle, tmiItemUniteFK, tmiItemUniteLibelle, tmiItemPrixUnitaire, tmiItemTravauxType)" & _
                            " VALUES (" & lgTblTravChiffrageMaxPk & ", " & sngMarcheTypeFK & ", " & sglLot & ", '" & strRubrique & "'" & ", '" & strBpuItemCode & "'" & ", '" & strBpuItemLibelle & "'" & ", " & strBpuItemUniteFK & ", '" & strBpuItemUniteLibelle & "'" & ", " & "curBpuItemPrix" & ", '" & strBpuItemTravType & "'" & ")"
        Debug.Print qryInserBpuItems
 
        Set oQdf = db.QueryDefs("qryInserBpuItems")
        oQdf.Parameters("curBpuItemPrix") = CCur(rs!bblPrixUnitaire)

Le message d'erreur est : Elément non trouvé dans cette collection à la ligne Set oQdf = db.QueryDefs("qryInserBpuItems")

le 1er Debug.Print renvoie :
10
le 2ième Debug.Print renvoie :
PARAMETERS curBpuItemPrix CURRENCY INSERT INTO tblTravMinutes (tmiChiffrageFK, tmiMarcheTypeFK, tmiLot, tmiItemRubrique, tmiItemCode, tmiItemLibelle, tmiItemUniteFK, tmiItemUniteLibelle, tmiItemPrixUnitaire, tmiItemTravauxType) VALUES (21, 3, 5, '', '21.05.376', 'Fourniture, pose et retrait des blindages lourds - spécial tranchées réseau', 4, 'm2', curBpuItemPrix, 'EXP')


Merci de votre aide

[marot_r]

Bonjour.

Quand tu passes par du code SQL, il faut que la virgule (le séparateur de décimales) soit un point. Habituellement si ton champ source est un nombre (au sens de Access) cela ne pose pas vraiment de problème et Access s'occupe de tout.

Si ta source n'est pas un nombre ou si Access se croise les yeux tu peux utiliser replace(). Ça donne quelque chose comme replace(curBpuItemPrix, ",", ".").

A+

[jouclar]

Bonjour,

Merci marot_r pour ta réponse que j'ai un peu adapté.

Ma question initiale venait donc d'une incompréhension dans le fonctionnement d'Access, en effet je pensais que si j'injectais des chiffres avec un point à la place d'une virgule mon résultat dans Access serait un chiffre avec un point et pas une virgule donc incompatibilité de type avec mon champ de destination qui lui est un réel. La réalité est différente si j'injecte un chiffre décimal avec un point comme séparateur, il apparaît avec une virgule dans Access, j'ai donc modifié la requête initiale en convertissant en string le décimal à injecter le code devient alors :

Code :

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

1
2
3
4
5
 
qryInserBpuItems = "INSERT INTO tblTravMinutes (tmiChiffrageFK, tmiMarcheTypeFK, tmiLot, tmiItemRubrique, tmiItemCode, tmiItemLibelle, tmiItemUniteFK, tmiItemUniteLibelle, tmiItemPrixUnitaire, tmiItemTravauxType)" & _
                            " VALUES (" & lgTblTravChiffrageMaxPk & ", " & sngMarcheTypeFK & ", " & sglLot & ", '" & strRubrique & "'" & ", '" & strBpuItemCode & "'" & ", '" & strBpuItemLibelle & "'" & ", " & strBpuItemUniteFK & ", '" & strBpuItemUniteLibelle & "'" & ", " & Str(curBpuItemPrix) & ", '" & strBpuItemTravType & "'" & ")"
 
db.Execute (qryInserBpuItems)

et le résultat est tip top

Merci