?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
?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
?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
?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
?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
?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
?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
?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
?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
?Salut Gloops,
J'ai tenté ceci, mais ça ne va pas.
Je suis plutôt genre débutant.
Private Sub Query_Click()
Dim LePrix
LePrix = DLookup("CreonPrix", "qryCreon", _
"tblAchat.DateAchat=Max(tblAchat.DateAchat)")
MsgBox " " & LePrix
End Sub
J'ai comme erreur:
Impossible d'avoir une fonction d'agrégat dans la clause where
(tblAchat.dateAchat=max((tblAchat,dateAchat))
Voilà, voilà.
Donc, mon but est d'afficher le prix d'un médicament avec la date la
plus récente.
@+
Guy FALESSE
"Gloops" a écrit dans le message de groupe de discussion :
iimatt$ppq$
Fguy a écrit, le 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
?Salut Gloops,
J'ai tenté ceci, mais ça ne va pas.
Je suis plutôt genre débutant.
Private Sub Query_Click()
Dim LePrix
LePrix = DLookup("CreonPrix", "qryCreon", _
"tblAchat.DateAchat=Max(tblAchat.DateAchat)")
MsgBox " " & LePrix
End Sub
J'ai comme erreur:
Impossible d'avoir une fonction d'agrégat dans la clause where
(tblAchat.dateAchat=max((tblAchat,dateAchat))
Voilà, voilà.
Donc, mon but est d'afficher le prix d'un médicament avec la date la
plus récente.
@+
Guy FALESSE
"Gloops" a écrit dans le message de groupe de discussion :
iimatt$ppq$1@speranza.aioe.org...
Fguy a écrit, le 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
?Salut Gloops,
J'ai tenté ceci, mais ça ne va pas.
Je suis plutôt genre débutant.
Private Sub Query_Click()
Dim LePrix
LePrix = DLookup("CreonPrix", "qryCreon", _
"tblAchat.DateAchat=Max(tblAchat.DateAchat)")
MsgBox " " & LePrix
End Sub
J'ai comme erreur:
Impossible d'avoir une fonction d'agrégat dans la clause where
(tblAchat.dateAchat=max((tblAchat,dateAchat))
Voilà, voilà.
Donc, mon but est d'afficher le prix d'un médicament avec la date la
plus récente.
@+
Guy FALESSE
"Gloops" a écrit dans le message de groupe de discussion :
iimatt$ppq$
Fguy a écrit, le 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
?Salut Gloops,
J'ai tenté ceci, mais ça ne va pas.
Je suis plutôt genre débutant.
Private Sub Query_Click()
Dim LePrix
LePrix = DLookup("CreonPrix", "qryCreon", _
"tblAchat.DateAchat=Max(tblAchat.DateAchat)")
MsgBox " " & LePrix
End Sub
J'ai comme erreur:
Impossible d'avoir une fonction d'agrégat dans la clause where
(tblAchat.dateAchat=max((tblAchat,dateAchat))
Voilà, voilà.
Donc, mon but est d'afficher le prix d'un médicament avec la date la
plus récente.
@+
Guy FALESSE
"Gloops" a écrit dans le message de groupe de discussion :
iimatt$ppq$
Fguy a écrit, le 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
?Salut Gloops,
J'ai tenté ceci, mais ça ne va pas.
Je suis plutôt genre débutant.
Private Sub Query_Click()
Dim LePrix
LePrix = DLookup("CreonPrix", "qryCreon", _
"tblAchat.DateAchat=Max(tblAchat.DateAchat)")
MsgBox " " & LePrix
End Sub
J'ai comme erreur:
Impossible d'avoir une fonction d'agrégat dans la clause where
(tblAchat.dateAchat=max((tblAchat,dateAchat))
Voilà, voilà.
Donc, mon but est d'afficher le prix d'un médicament avec la date la
plus récente.
@+
Guy FALESSE
"Gloops" a écrit dans le message de groupe de discussion :
iimatt$ppq$1@speranza.aioe.org...
Fguy a écrit, le 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
?Salut Gloops,
J'ai tenté ceci, mais ça ne va pas.
Je suis plutôt genre débutant.
Private Sub Query_Click()
Dim LePrix
LePrix = DLookup("CreonPrix", "qryCreon", _
"tblAchat.DateAchat=Max(tblAchat.DateAchat)")
MsgBox " " & LePrix
End Sub
J'ai comme erreur:
Impossible d'avoir une fonction d'agrégat dans la clause where
(tblAchat.dateAchat=max((tblAchat,dateAchat))
Voilà, voilà.
Donc, mon but est d'afficher le prix d'un médicament avec la date la
plus récente.
@+
Guy FALESSE
"Gloops" a écrit dans le message de groupe de discussion :
iimatt$ppq$
Fguy a écrit, le 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
?salut Gloops,
Merci pour ta réponse. :-)
Mais, ce sera pour demain, le test.
En attendant, bonne soirée. :-)
@+
Guy FALESSE
?salut Gloops,
Merci pour ta réponse. :-)
Mais, ce sera pour demain, le test.
En attendant, bonne soirée. :-)
@+
Guy FALESSE
?salut Gloops,
Merci pour ta réponse. :-)
Mais, ce sera pour demain, le test.
En attendant, bonne soirée. :-)
@+
Guy FALESSE
?salut Gloops,
Merci pour ta réponse. :-)
Mais, ce sera pour demain, le test.
En attendant, bonne soirée. :-)
@+
Guy FALESSE
?salut Gloops,
Merci pour ta réponse. :-)
Mais, ce sera pour demain, le test.
En attendant, bonne soirée. :-)
@+
Guy FALESSE
?salut Gloops,
Merci pour ta réponse. :-)
Mais, ce sera pour demain, le test.
En attendant, bonne soirée. :-)
@+
Guy FALESSE
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.
On ne sait pas faire une requête avec max("DateAchat"), ce serait plu s
simple, enfin, sans doute :-)
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.
On ne sait pas faire une requête avec max("DateAchat"), ce serait plu s
simple, enfin, sans doute :-)
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.
On ne sait pas faire une requête avec max("DateAchat"), ce serait plu s
simple, enfin, sans doute :-)
MsgBox "Erreur n° " & Err.Number & " : " + Err.Description
Debug.Print "Erreur n° " & Err.Number & Err.Description
MsgBox "Erreur n° " & Err.Number & " : " + Err.Description
Debug.Print "Erreur n° " & Err.Number & Err.Description
MsgBox "Erreur n° " & Err.Number & " : " + Err.Description
Debug.Print "Erreur n° " & Err.Number & Err.Description
?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
?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
?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