Discussion :

[emilie31]

Bonjour,

J'ai un formulaire dans le quel je rentre 1 fois par jour des données.
Dans ce formulaire j'ai une liste de "défauts produits", il y en a 25. Chaque jour je rentre donc le nombre de défauts trouvés

Ex :

Défaut 1 Défaut 2 Défaut 3 Défaut 4 Défaut 5......
J1 1 0 0 2 0
J2 0 0 1 0 1

J'ai réalisé une requête pour pouvoir voir apparaître le récapitulatif par semaine, mon problème c'est qu'il y a beaucoup de type de défaut différent (ce qui prend énormément de place) et lorsque je fais la synthèse il y a souvent des cases vides (exemple ici pour mon défaut 2).
Pour alléger le tout j'aurais voulu que les colonnes où il n'y a que des "0" n'apparaissent pas.

Comment puis-je faire?

Merci d'avance pour vos réponses

[alcabk]

dans ta requête, pour le champ "nb defauts", mets un critère "<>0"

[emilie31]

Bonjour,

Merci pour l'infor mais je ne comprend pas ton explication, qu'est ce que tu entends par "nbdéfaut"?

J'ai essayé de mettre le critère <>0 pour un "défaut x" qui n'avait en 1 semaine aucune valeur de rentrée. Mais le résultat de ma requête est qu'il n'y avait plus aucun enregistrements d'affiché...

Ce que je voudrais c'est que si sur 7 jours le "défauts x" n'a que des 0, je voudrais qu'il n'apparaisse pas dans le résultat de ma rquête.

[helas]

Pour ma part, je crée une requete qui ne prend que les champs >0
Le nom de la table source s'appelle tbDefauts avec les champs : jour, Défaut1, Défaut2,...
la requete s'appelle requete

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
 
Sub CreationRequete(semaine As Integer)
 Dim q As QueryDef, s As String
 
 Rem *** supprime la requete ***
 For Each q In CurrentDb.QueryDefs
  If q.Name = "requete" Then DoCmd.DeleteObject acQuery, "requete": Exit For
 Next q
 
 Rem *** crée la requete ***
 s = "SELECT tbDefauts.Jour"
 For i = 1 To 25
  If DSum("[défaut" & CStr(i) & "]", "tbDefauts", "Format$([jour],'ww',2,2)=" & semaine) > 0 Then
   s = s & ", tbDefauts.Défaut" & CStr(i)
  End If
 Next i
 s = s & " FROM tbDefauts WHERE Format$([jour],'ww',2,2)=" & semaine & ";"
 Set q = CurrentDb.CreateQueryDef("requete", s)
 
End Sub

[alcabk]

en fait je viens de comprendre la forme de ta table de départ...
je pensais que c'était : jour/typedefaut/nbdefaut
et en fait t'as dû faire : jour/defaut1/defaut2/defaut3/etc...
c'est pour ça que ma solution ne te convenait pas
si tu est au début de ton projet, ce serait mieux de changer le squelette de ta table, imagine qu'un nouveau type de défaut apparaisse, c'est plus simple avec la construction citée plus haut ?
si tu veux garder la forme actuelle, faut que je voies un peu, là comme ça je sais pas si c'est possible