Discussion :

[Kyndred40]

Bonjour,
Je reviens vers vous car j'ai un problème, Cela fonctionne toujours juste j'ai essayer quelques modif qui ont changer le comportement...
J'avais essayer lorsque je rentre des info dans Poids.... Ces info sois aussi dans la liste des Lots comme ceci

Malheureusement comme on peux le voir cela me créer plusieurs Lot du même Numéro car le champ Poid est différents et cela fait pareil si c'est la semaine ou la date....
Le code avait donc un peut changer et donne sa (Rajout de chose dans le GROUP BY et dans le SELECT

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
25
26
27
28
29
30
Public Sub majSousFormulaire()
    Dim strSQL As String
 
    strSQL = "select * from R_PlanningLots where true "
 
    strSQL = "SELECT T_Lots.IdLot, T_Lots.NumeroLot, T_Lots.DescriptionLot, T_DetailCommandes.Semaine, T_DetailCommandes.Date, T_DetailCommandes.Poids, Min(DateCommande) AS Debut, Max(DateCommande) AS Fin " & _
             "FROM T_DetailCommandes INNER JOIN T_Lots ON T_DetailCommandes.IdLot = T_Lots.IdLot " & _
             "WHERE True "
 
    If Nz(Me.DateDebut, "") <> "" Then
        strSQL = strSQL & " and DateCommande>= #" & Format(Me.DateDebut, "mm-dd-yyyy") & "#"
    End If
 
    If Nz(Me.DateFin, "") <> "" Then
        strSQL = strSQL & " and DateCommande<= #" & Format(Me.DateFin, "mm-dd-yyyy") & "#"
    End If
 
    strSQL = strSQL & " " & _
            "GROUP BY T_Lots.IdLot, T_Lots.NumeroLot, T_Lots.DescriptionLot, T_DetailCommandes.Semaine, T_DetailCommandes.Date, T_DetailCommandes.Poids  " & _
            "ORDER BY T_Lots.IdLot;"
 
 
    Me.SF_PlanningLots.Form.RecordSource = strSQL
    If Me.SF_PlanningLots.Form.Recordset.RecordCount = 0 Then
        Me.SF_DetailLot.Form.RecordSource = "select * from R_LotsCommandes where IdLot=0;"
    End If
 
 
 
End Sub

Ducoup pour le moment je suis revenu en arrière en enlevant les morceaux de code que j'avais rajouté en attendant de savoir s'il y a une solution

[User]

Bonjour,

Oui c'est logique, ce que je vous propose c'est d'enlever les regroupements sur la semaine, le poids et la date, et de remplacer le champ semaine par un champ Semaines :

Code :

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

Min(T_DetailCommandes.Semaine) & "-" & Max(T_DetailCommandes.Semaine) as Semaines

avec un affichage du genre Semaines : SemaineMin - SemaineMax/

Puis, de remplacer le champ Poids par la somme des poids pour cette période :

Code :

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

Sum(T_DetailCommandes.Poids) as Poids

Le code devient :

Code VBA :

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
25
26
27
28
Public Sub majSousFormulaire()
    Dim strSQL As String
 
    strSQL = "select * from R_PlanningLots where true "
 
    strSQL = "SELECT T_Lots.IdLot, T_Lots.NumeroLot, T_Lots.DescriptionLot, Min(T_DetailCommandes.Semaine) & "-" & Max(T_DetailCommandes.Semaine) as Semaines, Sum(T_DetailCommandes.Poids) as Poids, Min(DateCommande) AS Debut, Max(DateCommande) AS Fin " & _
             "FROM T_DetailCommandes INNER JOIN T_Lots ON T_DetailCommandes.IdLot = T_Lots.IdLot " & _
             "WHERE True "
 
    If Nz(Me.DateDebut, "") <> "" Then
        strSQL = strSQL & " and DateCommande>= #" & Format(Me.DateDebut, "mm-dd-yyyy") & "#"
    End If
 
    If Nz(Me.DateFin, "") <> "" Then
        strSQL = strSQL & " and DateCommande<= #" & Format(Me.DateFin, "mm-dd-yyyy") & "#"
    End If
 
    strSQL = strSQL & " " & _
            "GROUP BY T_Lots.IdLot, T_Lots.NumeroLot, T_Lots.DescriptionLot " & _
            "ORDER BY T_Lots.IdLot;"
 
 
    Me.SF_PlanningLots.Form.RecordSource = strSQL
    If Me.SF_PlanningLots.Form.Recordset.RecordCount = 0 Then
        Me.SF_DetailLot.Form.RecordSource = "select * from R_LotsCommandes where IdLot=0;"
    End If
 
End Sub

[Kyndred40]

J'ai une incompatibilité de type je ne sais pas pourquoi fin je pense que c'est car mon champ Semaine est une liste déroulante ou je choisis la semaine non ?


En effet c'est le champ Semaine qui bloquait ! cela marche pour le Poids merci !