Discussion :

[Jeannot45]

Bonjour,

J'essaie de me remettre un peu à Access et voilà que déjà je bute sur un petit problème.
je recherche dans une table un identifiant qui est rattaché à une valeur Monetaire

J'ai donc le code suivant :

Code :

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

1
2
3
 
l_curRemboursDu = (Nz(DSum("Mensualite", "Reglements", "ID = " & m_lngFamille & " AND Regle = 0 AND TypeEcheance <> 'E'"), 0)
MsgBox "ID Chef de famille : " & DLookup("ID", "Reglements", "Mensualite = " & l_curRemboursDu)

Si la valeur récupérée dans l_curremboursDu est une valeur entière, je n'ai pas de problème par contre si la valeur récupérée contient des centimes, le Dlookup du MsgBox affiche une erreur

Erreur d'exécution 3075
erreur de syntaxe (virgule) dans l'expression "Mensualite = 51,50"

Je n'arrive pas à me sortir de ce problème, j'ai essayé de convertir l_curRemboursDu avec les fonctions : CDbl ou Ccur, ça ne change rien.

Quelqu'un aurait-il une idée

Merci d'avance pour vos remarques

[Invité]

Salut Jeannot ,

Est-ce que ton séparateur décimal dans Windows est une virgule ou un point ?

Si c'est un point, peut-être que le décimal avec la virgule est pris comme un texte ?

C'est juste une hypothèse.

Philippe

[Jeannot45]

Bonjour Philippe,

Le séparateur décimal est bien une virgule au niveau de mes parametres.
Mais meme si la valeur était reprise comme texte, le fait d'utiliser une fonction de conversion ne devrait-elle pas suffire pour resoudre l'anomalie ?
D'autre part, VBA ne change-t-il pas automatiquement la "," en "." dans les syntaxes SQL ?

Je t'avoue que je suis perdu, je ne pensais pas qu'on pouvait perdre aussi vite

En tout cas merci pour ton intervention (J'avais relu ton tuto sur les fonctions de domaine )

[Invité]

Re

Je ne vois pas, à part enlever l'espace avant et après le =.

Philippe

[tee_grandbois]

bonjour Jeannot45 et Philippe,
cela me rappelle un peu ce problème évoqué sur ce post (ici) sauf que dans ton cas c'est le problème inverse : il s'agit de substituer le séparateur décimal Windows par celui de VBA.
Voici comment je ferai :

Code :

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

1
2
3
4
5
6
7
8
9
Dim l_curRemboursDu as Variant  ' et pas Currency
Dim stDecimalSep As String
 
stDecimalSep = Mid$(1 / 2, 2, 1)                        ' permet de trouver le séparateur de décimales utilisé sur le poste.
 
l_curRemboursDu = Nz(DSum("Mensualite", "Reglements", "ID = " & m_lngFamille & " AND Regle = 0 AND TypeEcheance <> 'E'"), 0)
l_curRemboursDu = (Replace(l_curRemboursDu, stDecimalSep, "."))  ' pour remplacer le séparateur de décimales par celui de VBA
 
MsgBox "ID Chef de famille : " & DLookup("ID", "Reglements", "Mensualite = " & l_curRemboursDu)

Cela parait aberrant de faire cela, mais on le fait pour formater les dates au format US puisque c'est le format utilisé dans VBA.

[tee_grandbois]

en fait je pense que la raison probable est que la virgule est un caractère réservé (utilisé pour séparer les paramètres dans Dlookup)

[Invité]

Salut

en fait je pense que la raison probable est que la virgule est un caractère réservé (utilisé pour séparer les paramètres dans Dlookup)

Je n'avais pas pensé à cela, je pense que c'est une bonne piste à suivre.

Philippe

[Jeannot45]

Merci Tee_GrandBois, Philippe

J'avais pensé au Replace, mais j'avais complètement zappé le type de la variable si bien qu'Access me jetait à chaque fois en m'indiquant un mauvais type de variable.
Ça marche nickel.

J'ai perdu "mes réflexes"