Discussion :

[toufiketc]

bonjour a tous
je travaille sur une base access pour la gestion d'outillage.

j'ai 2 tables :

tblMouv (Mouvements)

IdMov ....... Auto
DteMov ..... Date (date de mouvement)
IdSrvc ...... Long (identifiant atelier 1, 2, Magasin ...

tblMovDet (details mouvements)

IdLigne long Auto
IdMov ....... long (jonction)
IdEqp Long (identifiant de l'outil)

j'ai écrit une fonction qui est censée me renseigner sur l'endroit (IdSrvc ) ou se trouve un outil (IdEqp) à une date donnée mais ca ne marche pas. j'ai du passer à coté de kelk chose.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Function Affectation(VarIdEqp As Long, VarDate As Date) As Long
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String
 
sSQL = " SELECT X.* FROM (SELECT tblMov .*, tblMovDet.IdEqp FROM tblMov, tblMovDet WHERE tblMov.IdMov=tblMovDet.IdMov) AS X" _
     & " INNER JOIN (SELECT B.IdEqp, Max(A.dtemov) AS maxDate FROM tblMov AS A INNER JOIN tblMovDet AS B" _
     & " ON A.idmov = B.idmov GROUP BY B.IdEqp HAVING ((( Max(A.dtemov)<=#" & Format(VarDate, "dd/mm/yyyy") & "#)) AND (((B.ideqp=" & VarIdEqp & ")))) AS Y" _
     & " ON (Y.IdEqp = X.IdEqp) AND (Y.maxDate=X.DteMov)"
 
Set db = Application.CurrentDb
 
Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
 
Affectation= rs("IdSrvc")
 
rs.Close
db.Close
 
Set db = Nothing
Set rs = Nothing
 
End Function

merci pour votre aide

[Zekraoui_Jakani]

Dans la clause "HAVING ", procédez par élimination: supprimez un des filtres et essayez; si ça ne va pas, remettez-le puis supprimez le 2nd, ... et ainsi de suite, jusqu'à ce que vous repériez l'élément problématique.
A priori, je soupçonne la date qui devrait avoir le format USA ("m/dd/yyyy")

[EricDgn]

Oui, je confirme: les dates sont un vrai poison! Personnellement, j'utilise toujours Format(laDate,"yyyy-mm-dd") vu que entre mm/dd/yyyy et dd/mm/yyyy on a soi-même facile de se tromper.
Cordialement.