J'ai un message d'erreur qui me gâche la fin d'année:
erreur de syntaxe (virgule) dans l'expression tblAchat.Artcles ' Gruyère
Suisse ±1 kg ' AND tblAchat.PrixAcaht=12,3797'
Dim maBD As Database, rstAchat As Recordset, rstDépenses As Recordset,
critère As String
Dim monSQL As String, meD As Form, meF As Form, leNbre As Long, CritPrix
As Currency
Set maBD = CurrentDb
If EstChargé("frmDépenses") Then
Set meD = Forms!frmDépenses
End If
critère = meD!Articles
CritPrix = meD!PrixAchat
monSQL = "SELECT * FROM tblAchat WHERE tblAchat.articles ='" & critère &
"'" _
& "AND tblAchat.PrixAchat=" & CritPrix
Set rstAchat = maBD.OpenRecordset(monSQL)
leNbre = rstAchat.RecordCount
If leNbre = 0 Then
Beep
MsgBox "Il n'existe pas encore d'achat dans ce magasin ",
vbCritical, "Recherches"
Exit Function
Else
MsgBox "Il y en a " & leNbre & " " & critère & "Prix: " & " " &
CritPrix
End If
Où se trouve donc encore cette erreur?
Un grand merci à tous ceux qui pourraient me renseigner.
@+
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
Pierre CFI [mvp]
bonjour si tu as access 2000 ou + ici CritPrix = Replace(meD!PrixAchat,",",".") c'est la virgule qui t'en veut
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Guy FALESSE" a écrit dans le message de news:
Bonjour à tous,
J'ai un message d'erreur qui me gâche la fin d'année: erreur de syntaxe (virgule) dans l'expression tblAchat.Artcles ' Gruyère Suisse ±1 kg ' AND tblAchat.PrixAcaht,3797'
Dim maBD As Database, rstAchat As Recordset, rstDépenses As Recordset, critère As String Dim monSQL As String, meD As Form, meF As Form, leNbre As Long, CritPrix As Currency Set maBD = CurrentDb If EstChargé("frmDépenses") Then Set meD = Forms!frmDépenses End If critère = meD!Articles CritPrix = meD!PrixAchat monSQL = "SELECT * FROM tblAchat WHERE tblAchat.articles ='" & critère & "'" _ & "AND tblAchat.PrixAchat=" & CritPrix Set rstAchat = maBD.OpenRecordset(monSQL) leNbre = rstAchat.RecordCount If leNbre = 0 Then Beep MsgBox "Il n'existe pas encore d'achat dans ce magasin ", vbCritical, "Recherches" Exit Function Else MsgBox "Il y en a " & leNbre & " " & critère & "Prix: " & " " & CritPrix End If
Où se trouve donc encore cette erreur? Un grand merci à tous ceux qui pourraient me renseigner. @+
Guy FALESSE
bonjour
si tu as access 2000 ou +
ici
CritPrix = Replace(meD!PrixAchat,",",".")
c'est la virgule qui t'en veut
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de news:ODhXve17EHA.3756@TK2MSFTNGP14.phx.gbl...
Bonjour à tous,
J'ai un message d'erreur qui me gâche la fin d'année:
erreur de syntaxe (virgule) dans l'expression tblAchat.Artcles ' Gruyère
Suisse ±1 kg ' AND tblAchat.PrixAcaht,3797'
Dim maBD As Database, rstAchat As Recordset, rstDépenses As Recordset,
critère As String
Dim monSQL As String, meD As Form, meF As Form, leNbre As Long, CritPrix
As Currency
Set maBD = CurrentDb
If EstChargé("frmDépenses") Then
Set meD = Forms!frmDépenses
End If
critère = meD!Articles
CritPrix = meD!PrixAchat
monSQL = "SELECT * FROM tblAchat WHERE tblAchat.articles ='" & critère &
"'" _
& "AND tblAchat.PrixAchat=" & CritPrix
Set rstAchat = maBD.OpenRecordset(monSQL)
leNbre = rstAchat.RecordCount
If leNbre = 0 Then
Beep
MsgBox "Il n'existe pas encore d'achat dans ce magasin ",
vbCritical, "Recherches"
Exit Function
Else
MsgBox "Il y en a " & leNbre & " " & critère & "Prix: " & " " &
CritPrix
End If
Où se trouve donc encore cette erreur?
Un grand merci à tous ceux qui pourraient me renseigner.
@+
bonjour si tu as access 2000 ou + ici CritPrix = Replace(meD!PrixAchat,",",".") c'est la virgule qui t'en veut
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Guy FALESSE" a écrit dans le message de news:
Bonjour à tous,
J'ai un message d'erreur qui me gâche la fin d'année: erreur de syntaxe (virgule) dans l'expression tblAchat.Artcles ' Gruyère Suisse ±1 kg ' AND tblAchat.PrixAcaht,3797'
Dim maBD As Database, rstAchat As Recordset, rstDépenses As Recordset, critère As String Dim monSQL As String, meD As Form, meF As Form, leNbre As Long, CritPrix As Currency Set maBD = CurrentDb If EstChargé("frmDépenses") Then Set meD = Forms!frmDépenses End If critère = meD!Articles CritPrix = meD!PrixAchat monSQL = "SELECT * FROM tblAchat WHERE tblAchat.articles ='" & critère & "'" _ & "AND tblAchat.PrixAchat=" & CritPrix Set rstAchat = maBD.OpenRecordset(monSQL) leNbre = rstAchat.RecordCount If leNbre = 0 Then Beep MsgBox "Il n'existe pas encore d'achat dans ce magasin ", vbCritical, "Recherches" Exit Function Else MsgBox "Il y en a " & leNbre & " " & critère & "Prix: " & " " & CritPrix End If
Où se trouve donc encore cette erreur? Un grand merci à tous ceux qui pourraient me renseigner. @+
Guy FALESSE
Eric
Bonjour Guy
"Guy FALESSE" écrivait
& "AND tblAchat.PrixAchat=" & CritPrix
mets : " AND tblAchat.PrixAchat=" & Replace(CritPrix,",",".")
Meilleurs voeux un peu en avance
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
Bonjour Guy
"Guy FALESSE" <guy.falesse@skynet.be> écrivait
& "AND tblAchat.PrixAchat=" & CritPrix
mets : " AND tblAchat.PrixAchat=" & Replace(CritPrix,",",".")
Meilleurs voeux un peu en avance
--
A+
Eric
Lien à suivre : http://users.skynet.be/mpfa/
mets : " AND tblAchat.PrixAchat=" & Replace(CritPrix,",",".")
Meilleurs voeux un peu en avance
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
Guy FALESSE
Salut et remerciements à Pierre et Eric,
C'était bien cela, c'était la 1ère fois que j'avais ce genre de truc. Ce n'est pas trop tôt pour se souhaiter un bon restant et un bon commencement comme on dit par ici :) Encore merci à vous deux. @+ Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:
Bonjour à tous,
J'ai un message d'erreur qui me gâche la fin d'année: erreur de syntaxe (virgule) dans l'expression tblAchat.Artcles ' Gruyère Suisse ±1 kg ' AND tblAchat.PrixAcaht,3797'
Dim maBD As Database, rstAchat As Recordset, rstDépenses As Recordset, critère As String Dim monSQL As String, meD As Form, meF As Form, leNbre As Long, CritPrix As Currency Set maBD = CurrentDb If EstChargé("frmDépenses") Then Set meD = Forms!frmDépenses End If critère = meD!Articles CritPrix = meD!PrixAchat monSQL = "SELECT * FROM tblAchat WHERE tblAchat.articles ='" & critère & "'" _ & "AND tblAchat.PrixAchat=" & CritPrix Set rstAchat = maBD.OpenRecordset(monSQL) leNbre = rstAchat.RecordCount If leNbre = 0 Then Beep MsgBox "Il n'existe pas encore d'achat dans ce magasin ", vbCritical, "Recherches" Exit Function Else MsgBox "Il y en a " & leNbre & " " & critère & "Prix: " & " " & CritPrix End If
Où se trouve donc encore cette erreur? Un grand merci à tous ceux qui pourraient me renseigner. @+
Guy FALESSE
Salut et remerciements à Pierre et Eric,
C'était bien cela, c'était la 1ère fois que j'avais ce genre de truc.
Ce n'est pas trop tôt pour se souhaiter un bon restant et un bon
commencement comme on dit par ici :)
Encore merci à vous deux.
@+
Guy FALESSE
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de news:
ODhXve17EHA.3756@TK2MSFTNGP14.phx.gbl...
Bonjour à tous,
J'ai un message d'erreur qui me gâche la fin d'année:
erreur de syntaxe (virgule) dans l'expression tblAchat.Artcles ' Gruyère
Suisse ±1 kg ' AND tblAchat.PrixAcaht,3797'
Dim maBD As Database, rstAchat As Recordset, rstDépenses As Recordset,
critère As String
Dim monSQL As String, meD As Form, meF As Form, leNbre As Long,
CritPrix As Currency
Set maBD = CurrentDb
If EstChargé("frmDépenses") Then
Set meD = Forms!frmDépenses
End If
critère = meD!Articles
CritPrix = meD!PrixAchat
monSQL = "SELECT * FROM tblAchat WHERE tblAchat.articles ='" & critère
& "'" _
& "AND tblAchat.PrixAchat=" & CritPrix
Set rstAchat = maBD.OpenRecordset(monSQL)
leNbre = rstAchat.RecordCount
If leNbre = 0 Then
Beep
MsgBox "Il n'existe pas encore d'achat dans ce magasin ",
vbCritical, "Recherches"
Exit Function
Else
MsgBox "Il y en a " & leNbre & " " & critère & "Prix: " & " " &
CritPrix
End If
Où se trouve donc encore cette erreur?
Un grand merci à tous ceux qui pourraient me renseigner.
@+
C'était bien cela, c'était la 1ère fois que j'avais ce genre de truc. Ce n'est pas trop tôt pour se souhaiter un bon restant et un bon commencement comme on dit par ici :) Encore merci à vous deux. @+ Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:
Bonjour à tous,
J'ai un message d'erreur qui me gâche la fin d'année: erreur de syntaxe (virgule) dans l'expression tblAchat.Artcles ' Gruyère Suisse ±1 kg ' AND tblAchat.PrixAcaht,3797'
Dim maBD As Database, rstAchat As Recordset, rstDépenses As Recordset, critère As String Dim monSQL As String, meD As Form, meF As Form, leNbre As Long, CritPrix As Currency Set maBD = CurrentDb If EstChargé("frmDépenses") Then Set meD = Forms!frmDépenses End If critère = meD!Articles CritPrix = meD!PrixAchat monSQL = "SELECT * FROM tblAchat WHERE tblAchat.articles ='" & critère & "'" _ & "AND tblAchat.PrixAchat=" & CritPrix Set rstAchat = maBD.OpenRecordset(monSQL) leNbre = rstAchat.RecordCount If leNbre = 0 Then Beep MsgBox "Il n'existe pas encore d'achat dans ce magasin ", vbCritical, "Recherches" Exit Function Else MsgBox "Il y en a " & leNbre & " " & critère & "Prix: " & " " & CritPrix End If
Où se trouve donc encore cette erreur? Un grand merci à tous ceux qui pourraient me renseigner. @+
Guy FALESSE
Eric
"Guy FALESSE" écrivait
Salut et remerciements à Pierre et Eric
C'était avec plaisir. Bon bout d'an comme on dit du côté de chez moi.
Tiens, pour une fois la logique est respectée : Salut pour Pierre ET remerciements pour Eric. Je sens que je finis bien l'année. Quel baume au coeur !
;-))
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
"Guy FALESSE" écrivait
Salut et remerciements à Pierre et Eric
C'était avec plaisir.
Bon bout d'an comme on dit du côté de chez moi.
Tiens, pour une fois la logique est respectée :
Salut pour Pierre ET remerciements pour Eric. Je sens que je finis bien
l'année. Quel baume au coeur !
;-))
--
A+
Eric
Lien à suivre : http://users.skynet.be/mpfa/
C'était avec plaisir. Bon bout d'an comme on dit du côté de chez moi.
Tiens, pour une fois la logique est respectée : Salut pour Pierre ET remerciements pour Eric. Je sens que je finis bien l'année. Quel baume au coeur !
;-))
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
Pierre CFI [mvp]
Charognard, qui se nourrit des restes :o)) un petit coup d'oeil à ma langouste, et je reviens
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Eric" a écrit dans le message de news:
"Guy FALESSE" écrivait
Salut et remerciements à Pierre et Eric
C'était avec plaisir. Bon bout d'an comme on dit du côté de chez moi.
Tiens, pour une fois la logique est respectée : Salut pour Pierre ET remerciements pour Eric. Je sens que je finis bien l'année. Quel baume au coeur !
;-))
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
Charognard, qui se nourrit des restes :o))
un petit coup d'oeil à ma langouste, et je reviens
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:XnF95D0BC174FE09fframZZhotmailcom@207.46.248.16...
"Guy FALESSE" écrivait
Salut et remerciements à Pierre et Eric
C'était avec plaisir.
Bon bout d'an comme on dit du côté de chez moi.
Tiens, pour une fois la logique est respectée :
Salut pour Pierre ET remerciements pour Eric. Je sens que je finis bien
l'année. Quel baume au coeur !
;-))
--
A+
Eric
Lien à suivre : http://users.skynet.be/mpfa/
Charognard, qui se nourrit des restes :o)) un petit coup d'oeil à ma langouste, et je reviens
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Eric" a écrit dans le message de news:
"Guy FALESSE" écrivait
Salut et remerciements à Pierre et Eric
C'était avec plaisir. Bon bout d'an comme on dit du côté de chez moi.
Tiens, pour une fois la logique est respectée : Salut pour Pierre ET remerciements pour Eric. Je sens que je finis bien l'année. Quel baume au coeur !
;-))
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
Guy FALESSE
LOL
@+
Guy FALESSE
"Pierre CFI [mvp]" a écrit dans le message de news:
Charognard, qui se nourrit des restes :o)) un petit coup d'oeil à ma langouste, et je reviens
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Eric" a écrit dans le message de news:
"Guy FALESSE" écrivait
Salut et remerciements à Pierre et Eric
C'était avec plaisir. Bon bout d'an comme on dit du côté de chez moi.
Tiens, pour une fois la logique est respectée : Salut pour Pierre ET remerciements pour Eric. Je sens que je finis bien l'année. Quel baume au coeur !
;-))
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
LOL
@+
Guy FALESSE
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: ef3UDA27EHA.2276@TK2MSFTNGP09.phx.gbl...
Charognard, qui se nourrit des restes :o))
un petit coup d'oeil à ma langouste, et je reviens
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de
news:XnF95D0BC174FE09fframZZhotmailcom@207.46.248.16...
"Guy FALESSE" écrivait
Salut et remerciements à Pierre et Eric
C'était avec plaisir.
Bon bout d'an comme on dit du côté de chez moi.
Tiens, pour une fois la logique est respectée :
Salut pour Pierre ET remerciements pour Eric. Je sens que je finis bien
l'année. Quel baume au coeur !
;-))
--
A+
Eric
Lien à suivre : http://users.skynet.be/mpfa/
"Pierre CFI [mvp]" a écrit dans le message de news:
Charognard, qui se nourrit des restes :o)) un petit coup d'oeil à ma langouste, et je reviens
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "Eric" a écrit dans le message de news:
"Guy FALESSE" écrivait
Salut et remerciements à Pierre et Eric
C'était avec plaisir. Bon bout d'an comme on dit du côté de chez moi.
Tiens, pour une fois la logique est respectée : Salut pour Pierre ET remerciements pour Eric. Je sens que je finis bien l'année. Quel baume au coeur !
;-))
-- A+ Eric Lien à suivre : http://users.skynet.be/mpfa/
