SQLCreon = "SELECT tblAchat.Articles, tblAchat.PrixAchat,tblAchat.DateAchat
FROM tblAchat WHERE tblAchat.Articles= ""Creon Caps 100X150 Mg""" _
And tblAchat.DateAchat = DMax("tblAchat.DateAchat")
Set rstAchat = maBD.OpenRecordset(SQLCreon)
rstAchat.MoveLast
If rstAchat.RecordCount > 0 Then
Me![CreonPrix] = rstAchat!prixachat
Else
Me![CreonPrix] = 0
End If
Mais, je reçois le message: erreur de compilation
argument non facultatif.
Merci pour ta réponse, mais, j'ai dû faire comme ceci à cause d'une erreur réclamant une parenthèse ")"
Dim Prix As Double Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon")) & "#" MsgBox "prix: " & Prix
Peut-être que la parenthèse est mal placée :-(
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d5011ed$0$21110$
Le 07/02/2011 16:07, Fguy a écrit :
?Salut Gloops,
On a des problème de conjugaison, ah! La langue française a de ces difficultés. :-) Pour en revenir à nos moutons, voilà ce que j'ai fait en suivant tes instructions:
Private Sub Commande8_Click() Dim txtDate As String, txtPrix As String txtDate = DMax("tblAchat.DateAchat", "qryCreon", "") MsgBox "date: " & txtDate txtPrix = DLookup("prixachat", "qryCreon", txtDate) MsgBox "prix: " & txtPrix
End Sub
Et ceci ? :
Private Sub Commande8_Click() Dim Prix as double Prix = DLookup("prixachat", "qryCreon", _ "DateAchat=#" & DMax("DataAchat","qryCreon") & "#) MsgBox "prix: " & Prix
db
?Salut db,
Merci pour ta réponse, mais, j'ai dû faire comme ceci à cause d'une erreur
réclamant une parenthèse ")"
Dim Prix As Double
Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" &
DMax("DataAchat", "qryCreon")) & "#"
MsgBox "prix: " & Prix
Peut-être que la parenthèse est mal placée :-(
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion :
4d5011ed$0$21110$426a74cc@news.free.fr...
Le 07/02/2011 16:07, Fguy a écrit :
?Salut Gloops,
On a des problème de conjugaison, ah! La langue française a de ces
difficultés. :-)
Pour en revenir à nos moutons, voilà ce que j'ai fait en suivant tes
instructions:
Private Sub Commande8_Click()
Dim txtDate As String, txtPrix As String
txtDate = DMax("tblAchat.DateAchat", "qryCreon", "")
MsgBox "date: " & txtDate
txtPrix = DLookup("prixachat", "qryCreon", txtDate)
MsgBox "prix: " & txtPrix
End Sub
Et ceci ? :
Private Sub Commande8_Click()
Dim Prix as double
Prix = DLookup("prixachat", "qryCreon", _
"DateAchat=#" & DMax("DataAchat","qryCreon") & "#)
MsgBox "prix: " & Prix
Merci pour ta réponse, mais, j'ai dû faire comme ceci à cause d'une erreur réclamant une parenthèse ")"
Dim Prix As Double Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon")) & "#" MsgBox "prix: " & Prix
Peut-être que la parenthèse est mal placée :-(
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d5011ed$0$21110$
Le 07/02/2011 16:07, Fguy a écrit :
?Salut Gloops,
On a des problème de conjugaison, ah! La langue française a de ces difficultés. :-) Pour en revenir à nos moutons, voilà ce que j'ai fait en suivant tes instructions:
Private Sub Commande8_Click() Dim txtDate As String, txtPrix As String txtDate = DMax("tblAchat.DateAchat", "qryCreon", "") MsgBox "date: " & txtDate txtPrix = DLookup("prixachat", "qryCreon", txtDate) MsgBox "prix: " & txtPrix
End Sub
Et ceci ? :
Private Sub Commande8_Click() Dim Prix as double Prix = DLookup("prixachat", "qryCreon", _ "DateAchat=#" & DMax("DataAchat","qryCreon") & "#) MsgBox "prix: " & Prix
db
db
Le 07/02/2011 16:58, Fguy a écrit :
?Salut db,
Merci pour ta réponse, mais, j'ai dû faire comme ceci à cause d'une erreur réclamant une parenthèse ")"
Dim Prix As Double Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon")) & "#" MsgBox "prix: " & Prix
Il manquait surtout des guillemets après le dernier # :
Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon") & "#")
Le 07/02/2011 16:58, Fguy a écrit :
?Salut db,
Merci pour ta réponse, mais, j'ai dû faire comme ceci à cause d'une
erreur réclamant une parenthèse ")"
Dim Prix As Double
Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" &
DMax("DataAchat", "qryCreon")) & "#"
MsgBox "prix: " & Prix
Il manquait surtout des guillemets après le dernier # :
Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" &
DMax("DataAchat", "qryCreon") & "#")
Merci pour ta réponse, mais, j'ai dû faire comme ceci à cause d'une erreur réclamant une parenthèse ")"
Dim Prix As Double Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon")) & "#" MsgBox "prix: " & Prix
Il manquait surtout des guillemets après le dernier # :
Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon") & "#")
Fguy
?Salut DB,
j'ai maintenant une erreur 2001 :-( Pas de chance, ça devait être si simple...et c'est pour cela que c'est compliqué toutes ces histoires de guillemets :-( @+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d50175b$0$31570$
Le 07/02/2011 16:58, Fguy a écrit :
?Salut db,
Merci pour ta réponse, mais, j'ai dû faire comme ceci à cause d'une erreur réclamant une parenthèse ")"
Dim Prix As Double Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon")) & "#" MsgBox "prix: " & Prix
Il manquait surtout des guillemets après le dernier # :
Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon") & "#")
?Salut DB,
j'ai maintenant une erreur 2001 :-(
Pas de chance, ça devait être si simple...et c'est pour cela que c'est
compliqué toutes ces histoires de guillemets :-(
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion :
4d50175b$0$31570$426a74cc@news.free.fr...
Le 07/02/2011 16:58, Fguy a écrit :
?Salut db,
Merci pour ta réponse, mais, j'ai dû faire comme ceci à cause d'une
erreur réclamant une parenthèse ")"
Dim Prix As Double
Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" &
DMax("DataAchat", "qryCreon")) & "#"
MsgBox "prix: " & Prix
Il manquait surtout des guillemets après le dernier # :
Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" &
DMax("DataAchat", "qryCreon") & "#")
j'ai maintenant une erreur 2001 :-( Pas de chance, ça devait être si simple...et c'est pour cela que c'est compliqué toutes ces histoires de guillemets :-( @+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d50175b$0$31570$
Le 07/02/2011 16:58, Fguy a écrit :
?Salut db,
Merci pour ta réponse, mais, j'ai dû faire comme ceci à cause d'une erreur réclamant une parenthèse ")"
Dim Prix As Double Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon")) & "#" MsgBox "prix: " & Prix
Il manquait surtout des guillemets après le dernier # :
Prix = DLookup("prixachat", "qryCreon", "DateAchat=#" & DMax("DataAchat", "qryCreon") & "#")
db
Le 07/02/2011 17:42, Fguy a écrit :
?Salut DB,
j'ai maintenant une erreur 2001 :-( Pas de chance, ça devait être si simple...et c'est pour cela que c'est compliqué toutes ces histoires de guillemets :-(
On peut voir l'ensemble de la procédure VBA ?
Le 07/02/2011 17:42, Fguy a écrit :
?Salut DB,
j'ai maintenant une erreur 2001 :-(
Pas de chance, ça devait être si simple...et c'est pour cela que c'est
compliqué toutes ces histoires de guillemets :-(
j'ai maintenant une erreur 2001 :-( Pas de chance, ça devait être si simple...et c'est pour cela que c'est compliqué toutes ces histoires de guillemets :-(
On peut voir l'ensemble de la procédure VBA ?
Fguy
?Salut,
Voilà:
Private Sub Commande10_Click() Prix = DLookup("prixachat", "qryCreon", "DateAchat= #" & DMax("DataAchat", "qryCreon") & "#") End Sub
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d502544$0$27741$
Le 07/02/2011 17:42, Fguy a écrit :
?Salut DB,
j'ai maintenant une erreur 2001 :-( Pas de chance, ça devait être si simple...et c'est pour cela que c'est compliqué toutes ces histoires de guillemets :-(
On peut voir l'ensemble de la procédure VBA ?
?Salut,
Voilà:
Private Sub Commande10_Click()
Prix = DLookup("prixachat", "qryCreon", "DateAchat= #" &
DMax("DataAchat", "qryCreon") & "#")
End Sub
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion :
4d502544$0$27741$426a34cc@news.free.fr...
Le 07/02/2011 17:42, Fguy a écrit :
?Salut DB,
j'ai maintenant une erreur 2001 :-(
Pas de chance, ça devait être si simple...et c'est pour cela que c'est
compliqué toutes ces histoires de guillemets :-(
Private Sub Commande10_Click() Prix = DLookup("prixachat", "qryCreon", "DateAchat= #" & DMax("DataAchat", "qryCreon") & "#") End Sub
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d502544$0$27741$
Le 07/02/2011 17:42, Fguy a écrit :
?Salut DB,
j'ai maintenant une erreur 2001 :-( Pas de chance, ça devait être si simple...et c'est pour cela que c'est compliqué toutes ces histoires de guillemets :-(
On peut voir l'ensemble de la procédure VBA ?
Fguy
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as envoyé, je n'ai rien d'autre. @+
Guy FALESSE
"Fguy" a écrit dans le message de groupe de discussion : 4d5027c2$0$14263$
?Salut,
Voilà:
Private Sub Commande10_Click() Prix = DLookup("prixachat", "qryCreon", "DateAchat= #" & DMax("DataAchat", "qryCreon") & "#") End Sub
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d502544$0$27741$
Le 07/02/2011 17:42, Fguy a écrit :
?Salut DB,
j'ai maintenant une erreur 2001 :-( Pas de chance, ça devait être si simple...et c'est pour cela que c'est compliqué toutes ces histoires de guillemets :-(
On peut voir l'ensemble de la procédure VBA ?
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as envoyé, je
n'ai rien d'autre.
@+
Guy FALESSE
"Fguy" a écrit dans le message de groupe de discussion :
4d5027c2$0$14263$ba620e4c@news.skynet.be...
?Salut,
Voilà:
Private Sub Commande10_Click()
Prix = DLookup("prixachat", "qryCreon", "DateAchat= #" &
DMax("DataAchat", "qryCreon") & "#")
End Sub
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion :
4d502544$0$27741$426a34cc@news.free.fr...
Le 07/02/2011 17:42, Fguy a écrit :
?Salut DB,
j'ai maintenant une erreur 2001 :-(
Pas de chance, ça devait être si simple...et c'est pour cela que c'est
compliqué toutes ces histoires de guillemets :-(
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as envoyé, je n'ai rien d'autre. @+
Guy FALESSE
"Fguy" a écrit dans le message de groupe de discussion : 4d5027c2$0$14263$
?Salut,
Voilà:
Private Sub Commande10_Click() Prix = DLookup("prixachat", "qryCreon", "DateAchat= #" & DMax("DataAchat", "qryCreon") & "#") End Sub
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d502544$0$27741$
Le 07/02/2011 17:42, Fguy a écrit :
?Salut DB,
j'ai maintenant une erreur 2001 :-( Pas de chance, ça devait être si simple...et c'est pour cela que c'est compliqué toutes ces histoires de guillemets :-(
On peut voir l'ensemble de la procédure VBA ?
db
Le 07/02/2011 19:29, Fguy a écrit :
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as envoyé, je n'ai rien d'autre. @+
C'était bien ça, mais je manque d'éléments. Si tu pouvais mettre le résultat de la requête qryCreon (ou au moins un extrait...), on y verrait plus clair.
Le 07/02/2011 19:29, Fguy a écrit :
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as
envoyé, je n'ai rien d'autre.
@+
C'était bien ça, mais je manque d'éléments. Si tu pouvais mettre le
résultat de la requête qryCreon (ou au moins un extrait...), on y
verrait plus clair.
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as envoyé, je n'ai rien d'autre. @+
C'était bien ça, mais je manque d'éléments. Si tu pouvais mettre le résultat de la requête qryCreon (ou au moins un extrait...), on y verrait plus clair.
Fguy
?Salut DB,
Si je fais ça, ça ira:
SELECT tblAchat.DateAchat, tblAchat.Articles, tblAchat.Marque, tblAchat.Package, tblAchat.PrixAchat, tblAchat.Qté FROM tblAchat WHERE (((tblAchat.Articles)="Creon Caps 100X150 Mg"));
Attention, je crois qu'il y a un e qui manquerait dans DateAchat de la fonction que tu m'as envoyée et je pense avoir oublié de la corriger. @+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d503e1e$0$12596$
Le 07/02/2011 19:29, Fguy a écrit :
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as envoyé, je n'ai rien d'autre. @+
C'était bien ça, mais je manque d'éléments. Si tu pouvais mettre le résultat de la requête qryCreon (ou au moins un extrait...), on y verrait plus clair.
?Salut DB,
Si je fais ça, ça ira:
SELECT tblAchat.DateAchat, tblAchat.Articles, tblAchat.Marque,
tblAchat.Package, tblAchat.PrixAchat, tblAchat.Qté
FROM tblAchat
WHERE (((tblAchat.Articles)="Creon Caps 100X150 Mg"));
Attention, je crois qu'il y a un e qui manquerait dans DateAchat de la
fonction que tu m'as envoyée et je pense avoir oublié de la corriger.
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion :
4d503e1e$0$12596$426a34cc@news.free.fr...
Le 07/02/2011 19:29, Fguy a écrit :
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as
envoyé, je n'ai rien d'autre.
@+
C'était bien ça, mais je manque d'éléments. Si tu pouvais mettre le
résultat de la requête qryCreon (ou au moins un extrait...), on y
verrait plus clair.
SELECT tblAchat.DateAchat, tblAchat.Articles, tblAchat.Marque, tblAchat.Package, tblAchat.PrixAchat, tblAchat.Qté FROM tblAchat WHERE (((tblAchat.Articles)="Creon Caps 100X150 Mg"));
Attention, je crois qu'il y a un e qui manquerait dans DateAchat de la fonction que tu m'as envoyée et je pense avoir oublié de la corriger. @+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d503e1e$0$12596$
Le 07/02/2011 19:29, Fguy a écrit :
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as envoyé, je n'ai rien d'autre. @+
C'était bien ça, mais je manque d'éléments. Si tu pouvais mettre le résultat de la requête qryCreon (ou au moins un extrait...), on y verrait plus clair.
Fguy
?Salut DB,
Comme ça, ça ira?
SELECT tblAchat.DateAchat, tblAchat.Articles, tblAchat.Marque, tblAchat.Package, tblAchat.PrixAchat, tblAchat.Qté FROM tblAchat WHERE (((tblAchat.Articles)="Creon Caps 100X150 Mg"));
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d503e1e$0$12596$
Le 07/02/2011 19:29, Fguy a écrit :
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as envoyé, je n'ai rien d'autre. @+
C'était bien ça, mais je manque d'éléments. Si tu pouvais mettre le résultat de la requête qryCreon (ou au moins un extrait...), on y verrait plus clair.
?Salut DB,
Comme ça, ça ira?
SELECT tblAchat.DateAchat, tblAchat.Articles, tblAchat.Marque,
tblAchat.Package, tblAchat.PrixAchat, tblAchat.Qté
FROM tblAchat
WHERE (((tblAchat.Articles)="Creon Caps 100X150 Mg"));
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion :
4d503e1e$0$12596$426a34cc@news.free.fr...
Le 07/02/2011 19:29, Fguy a écrit :
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as
envoyé, je n'ai rien d'autre.
@+
C'était bien ça, mais je manque d'éléments. Si tu pouvais mettre le
résultat de la requête qryCreon (ou au moins un extrait...), on y
verrait plus clair.
SELECT tblAchat.DateAchat, tblAchat.Articles, tblAchat.Marque, tblAchat.Package, tblAchat.PrixAchat, tblAchat.Qté FROM tblAchat WHERE (((tblAchat.Articles)="Creon Caps 100X150 Mg"));
@+
Guy FALESSE
"db" a écrit dans le message de groupe de discussion : 4d503e1e$0$12596$
Le 07/02/2011 19:29, Fguy a écrit :
?Salut DB,
ce n'était pas cela que tu voulais, en fait, c'est ce que tu m'as envoyé, je n'ai rien d'autre. @+
C'était bien ça, mais je manque d'éléments. Si tu pouvais mettre le résultat de la requête qryCreon (ou au moins un extrait...), on y verrait plus clair.
Fguy
?Salut Gloops,
Je n'avais pas vu ta réponse, désolé :-(
@+
Guy FALESSE
"Gloops" a écrit dans le message de groupe de discussion : iip2i3$24u$
Fguy a écrit, le 07/02/2011 16:07 :
J'ai essayé aussi à faire une requête avec les paramètres Max("dateAchat") mais on me dit qu'il ajouter des entêtes ou quoi, je n'ai rien compris.
A tout hasard, peut-être essayer de transcrire le message ? Quelquefois c'est en cliquant sur le bouton Aide qu'on a le numéro d'erreur, ça aide aussi ça. Déjà avec tout ça, ce n'est pas certain qu'on y pige quelque chose, alors sans ...
ça se passe dans une procédure, pas vrai ? Alors je la verrais bien commencer par ___ On Error Goto ErrProcedure ___
ça permet, ensuite, de récupérer le message d'erreur dans la fenêtre d'exécution, qui s'ouvre par les touches Ctrl G.
On ne sait pas faire une requête avec max("DateAchat"), ce serait plus simple, enfin, sans doute :-)
Voilà une sage idée. As-tu essayé ?
Pour tout dire là je ne suis pas très concentré, il se peut que j'aie loupé des trucs, mais les renseignements complémentaires ne peuvent pas nuire.
?Salut Gloops,
Je n'avais pas vu ta réponse, désolé :-(
@+
Guy FALESSE
"Gloops" a écrit dans le message de groupe de discussion :
iip2i3$24u$1@speranza.aioe.org...
Fguy a écrit, le 07/02/2011 16:07 :
J'ai essayé aussi à faire une requête avec les paramètres
Max("dateAchat") mais on me dit qu'il ajouter des entêtes ou quoi, je
n'ai rien compris.
A tout hasard, peut-être essayer de transcrire le message ?
Quelquefois c'est en cliquant sur le bouton Aide qu'on a le numéro
d'erreur, ça aide aussi ça.
Déjà avec tout ça, ce n'est pas certain qu'on y pige quelque chose,
alors sans ...
ça se passe dans une procédure, pas vrai ?
Alors je la verrais bien commencer par
___
On Error Goto ErrProcedure
___
"Gloops" a écrit dans le message de groupe de discussion : iip2i3$24u$
Fguy a écrit, le 07/02/2011 16:07 :
J'ai essayé aussi à faire une requête avec les paramètres Max("dateAchat") mais on me dit qu'il ajouter des entêtes ou quoi, je n'ai rien compris.
A tout hasard, peut-être essayer de transcrire le message ? Quelquefois c'est en cliquant sur le bouton Aide qu'on a le numéro d'erreur, ça aide aussi ça. Déjà avec tout ça, ce n'est pas certain qu'on y pige quelque chose, alors sans ...
ça se passe dans une procédure, pas vrai ? Alors je la verrais bien commencer par ___ On Error Goto ErrProcedure ___