Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Erreur de synthaxe virgule dans l'expression

Erreur de synthaxe virgule dans l'expression

4 réponses
Avatar
francisco
Bonjour tout le monde
J'ai créé la requête suivante et j'ai un probleme avec ma clause where qui
s'appuie sur un combobox ou se trouve des chiffres à virgule.Vous trouverez
dans ce code comment j'alimente le combo et end essous ma requête Sql. Que
dois je faire pour que ma virgule soit pris en compte dans ma requete Sql ?
Et comment dois je definir cette variable Dim CritereVolume as ???? ?

Amicalement Francisco
Merci tout le monde

CritereVolume = FrmSaisie.CboListeVolume.Value

'------------------------------------------------
'Remplissage de CboListeVolume
'--------------------------------------------------
rst5.Open ReqVolume, cnt
While Not rst5.EOF
cc = Format(rst5!Volume, "0.00")
FrmSaisie.CboListeVolume.AddItem (cc)
rst5.MoveNext

Wend

rst5.Close
Set rst5 = Nothing
' on ferme la connexion
cnt.Close
Set cnt = Nothing
End Sub


Rsql = "Select Ventes1999.CodeProduct, Ventes1999.LibelleCodeProduct,
Ventes1999.CodeCouleur," _
& " Ventes1999.Volume, Ventes1999.FixedCosts, Ventes1999.TonnesHeures FROM
Ventes1999 " _
& "WHERE (Ventes1999.Volume >" & CritereVolume & " );"
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonjour Francisco;
CritereVolume = CDbl(FrmSaisie.CboListeVolume.Value)
MP

"francisco" a écrit dans le message de
news:c6l01f$4b3$
Bonjour tout le monde
J'ai créé la requête suivante et j'ai un probleme avec ma clause where qui
s'appuie sur un combobox ou se trouve des chiffres à virgule.Vous trouverez
dans ce code comment j'alimente le combo et end essous ma requête Sql. Que
dois je faire pour que ma virgule soit pris en compte dans ma requete Sql ?
Et comment dois je definir cette variable Dim CritereVolume as ???? ?

Amicalement Francisco
Merci tout le monde

CritereVolume = FrmSaisie.CboListeVolume.Value

'------------------------------------------------
'Remplissage de CboListeVolume
'--------------------------------------------------
rst5.Open ReqVolume, cnt
While Not rst5.EOF
cc = Format(rst5!Volume, "0.00")
FrmSaisie.CboListeVolume.AddItem (cc)
rst5.MoveNext

Wend

rst5.Close
Set rst5 = Nothing
' on ferme la connexion
cnt.Close
Set cnt = Nothing
End Sub


Rsql = "Select Ventes1999.CodeProduct, Ventes1999.LibelleCodeProduct,
Ventes1999.CodeCouleur," _
& " Ventes1999.Volume, Ventes1999.FixedCosts, Ventes1999.TonnesHeures FROM
Ventes1999 " _
& "WHERE (Ventes1999.Volume >" & CritereVolume & " );"




Avatar
malabar
;-)))
peut etre quelquechose comme çà :
CritereVolume = Application.Substitute
(FrmSaisie.CboListeVolume.Value,".",",")

@+


-----Message d'origine-----
Bonjour tout le monde
J'ai créé la requête suivante et j'ai un probleme avec
ma clause where qui

s'appuie sur un combobox ou se trouve des chiffres à
virgule.Vous trouverez

dans ce code comment j'alimente le combo et end essous
ma requête Sql. Que

dois je faire pour que ma virgule soit pris en compte
dans ma requete Sql ?

Et comment dois je definir cette variable Dim
CritereVolume as ???? ?


Amicalement Francisco
Merci tout le monde

CritereVolume = FrmSaisie.CboListeVolume.Value

'------------------------------------------------
'Remplissage de CboListeVolume
'--------------------------------------------------
rst5.Open ReqVolume, cnt
While Not rst5.EOF
cc = Format(rst5!Volume, "0.00")
FrmSaisie.CboListeVolume.AddItem (cc)
rst5.MoveNext

Wend

rst5.Close
Set rst5 = Nothing
' on ferme la connexion
cnt.Close
Set cnt = Nothing
End Sub


Rsql = "Select Ventes1999.CodeProduct,
Ventes1999.LibelleCodeProduct,

Ventes1999.CodeCouleur," _
& " Ventes1999.Volume, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures FROM

Ventes1999 " _
& "WHERE (Ventes1999.Volume >" & CritereVolume & " );"


.



Avatar
Pierre CFI [mvp]
Salut Franscico
comme tu fais du ADO tu dois avoir excel 2000 ou +
& "WHERE (Ventes1999.Volume >" & Replace(CritereVolume,",",".") & " );"



--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"francisco" a écrit dans le message de news:c6l01f$4b3$
Bonjour tout le monde
J'ai créé la requête suivante et j'ai un probleme avec ma clause where qui
s'appuie sur un combobox ou se trouve des chiffres à virgule.Vous trouverez
dans ce code comment j'alimente le combo et end essous ma requête Sql. Que
dois je faire pour que ma virgule soit pris en compte dans ma requete Sql ?
Et comment dois je definir cette variable Dim CritereVolume as ???? ?

Amicalement Francisco
Merci tout le monde

CritereVolume = FrmSaisie.CboListeVolume.Value

'------------------------------------------------
'Remplissage de CboListeVolume
'--------------------------------------------------
rst5.Open ReqVolume, cnt
While Not rst5.EOF
cc = Format(rst5!Volume, "0.00")
FrmSaisie.CboListeVolume.AddItem (cc)
rst5.MoveNext

Wend

rst5.Close
Set rst5 = Nothing
' on ferme la connexion
cnt.Close
Set cnt = Nothing
End Sub


Rsql = "Select Ventes1999.CodeProduct, Ventes1999.LibelleCodeProduct,
Ventes1999.CodeCouleur," _
& " Ventes1999.Volume, Ventes1999.FixedCosts, Ventes1999.TonnesHeures FROM
Ventes1999 " _
& "WHERE (Ventes1999.Volume >" & CritereVolume & " );"




Avatar
francisco
Merci Michel ,Merci Malabar, Merci Pierre pour vous reponses
Amicalement Francisco

"Pierre CFI [mvp]" a écrit dans le message de
news: #
Salut Franscico
comme tu fais du ADO tu dois avoir excel 2000 ou +
& "WHERE (Ventes1999.Volume >" & Replace(CritereVolume,",",".") & " );"



--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"francisco" a écrit dans le message de
news:c6l01f$4b3$

Bonjour tout le monde
J'ai créé la requête suivante et j'ai un probleme avec ma clause where
qui


s'appuie sur un combobox ou se trouve des chiffres à virgule.Vous
trouverez


dans ce code comment j'alimente le combo et end essous ma requête Sql.
Que


dois je faire pour que ma virgule soit pris en compte dans ma requete
Sql ?


Et comment dois je definir cette variable Dim CritereVolume as ???? ?

Amicalement Francisco
Merci tout le monde

CritereVolume = FrmSaisie.CboListeVolume.Value

'------------------------------------------------
'Remplissage de CboListeVolume
'--------------------------------------------------
rst5.Open ReqVolume, cnt
While Not rst5.EOF
cc = Format(rst5!Volume, "0.00")
FrmSaisie.CboListeVolume.AddItem (cc)
rst5.MoveNext

Wend

rst5.Close
Set rst5 = Nothing
' on ferme la connexion
cnt.Close
Set cnt = Nothing
End Sub


Rsql = "Select Ventes1999.CodeProduct, Ventes1999.LibelleCodeProduct,
Ventes1999.CodeCouleur," _
& " Ventes1999.Volume, Ventes1999.FixedCosts, Ventes1999.TonnesHeures
FROM


Ventes1999 " _
& "WHERE (Ventes1999.Volume >" & CritereVolume & " );"