Trouver la date la plus récente

24 réponses

Fguy

06/02/2011 à 13:46

?Bonjour à tous,

J'ai tenté de faire ceci:

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.

Que puis-je faire?

D'avance merci,

Guy FALESSE

4 réponses

1 2 3

Fguy

08/02/2011 à 16:35

?Salut Gloops,

Désolé, encore une fois, je n'avais pas vu ta réponse non plus,
décidément...je vieillis :-(
@+

Guy FALESSE

"Gloops" a écrit dans le message de groupe de discussion :
iip2ku$24u$

Gloops a écrit, le 07/02/2011 16:19 :

MsgBox "Erreur n° " & Err.Number & " : " + Err.Description
Debug.Print "Erreur n° " & Err.Number & Err.Description

Tu vas bien savoir remettre le double point ? ;)

08/02/2011 à 16:46

Le 07/02/2011 20:02, Fguy a écrit :

?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.
@+

Et en la corrigeant, ça donne quoi ?

Fguy

09/02/2011 à 10:54

?Bonjour à Gloops et à DB,

Merci pour vos recherches qui m'ont fait avancer.
Voici la solution:

SELECT T1.LieuAchat, T1.Articles, T1.PrixAchat, T1.DateAchat
FROM tblAchat AS T1
WHERE (((T1.Articles)="Creon Caps 100X150 Mg") AND ((T1.DateAchat) In
(SELECT MAX(DateAchat)
FROM tblAchat
WHERE Articles=T1.Articles)));

@+

Guy FALESSE

"Fguy" a écrit dans le message de groupe de discussion :
4d516271$0$14253$

?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
___

Et puis la finir par
___
Exit Sub
ErrProcedure:

MsgBox "Erreur n° " & Err.Number & " : " + Err.Description
Debug.Print "Erreur n° " & Err.Number & Err.Description
Stop
End Sub
___

ç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.

Fguy

09/02/2011 à 20:33

?salut DB,

En fait, ça ne donnait rien.
J'ai donné la réponse à mon problème à la date de ce 9 février.
Je vous remerciais par la même occasion Gloops et toi.:-)

@+

Guy FALESSE

"db" a écrit dans le message de groupe de discussion :
4d516562$0$26335$

Le 07/02/2011 20:02, Fguy a écrit :

?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.
@+

Et en la corrigeant, ça donne quoi ?

1 2 3

Trouver la date la plus récente

4 réponses

Veuillez sélectionner un problème