Discussion :

[jiriki20]

Bonjour à tous,

J'aurais besoin de votre aide sur un problème lié aux états. Je dois faire un suivi à l'installation de numéros de série pour des équipements. Pour cela je dois faire ressortir sur un état les données suivantes:

• Le code de l'équipement
• Le numéro de série d'équipement prévu par le fournisseur
• Le numéro de série affecté par notre logistique
• Le numéro de série effectivement installé par notre production

Les numéros de série sont tous dans la même table.
Il y a une table commune pour les pré-affectations fournisseur et les affectations logistiques. Elles sont différenciées par une valeur booléenne.
Il y a une table spécifique pour les installations.

Tout ça pour tous les équipements installés sur un produit identifié et pour un poste de travail donné.

Pour que le rapport soit lisible facilement il faut que ces information se situent toute sur la même ligne, or elles ne peuvent être obtenues que par trois requêtes différentes. Il ne m'est donc pas possible d'utiliser des sous états et je voulais donc savoir si vous connaissiez un moyen de créer des états dynamiquement sans lier celui-ci à une requête.

Mon idée serait de fonctionner comme pour un export excel c.a.d définir 1 variable objet pour chaque requête, puis avec une boucle remplir les lignes de l'état. Mais je ne sais pas comment on fait pour rentrer dans les lignes ou de passer d'une ligne à une autre ni si c'est possible d'ailleurs.

[ClaudeLELOUP]

Bonjour et sois le bienvenu chez nous,


Est-ce qu'il ne suffit pas d'écrire une quatrième requête qui prend en entrée les 3 requêtes dont tu parles et dans cette nouvelle requête, construire une colonne qui concatène les éléments que tu veux voir sur une ligne dans ton état ?

[jiriki20]

Bonjour,

Merci pour ta réponse, effectivement ça marche par contre cela ne m'affiche que les éléments pour lesquels on a des enregistrements dans les 3 requêtes. Or il arrive fréquemment que les fournisseurs ne fassent pas la pré-affectation ou que tous les équipements ne soient pas encore installés.

Y a-t-il un moyen pour afficher aussi ces lignes là?

[ClaudeLELOUP]

Donc te problème se résume à construire une requête avec des liaisons appropriées.

Vois ces tutoriels :


Access - Les Bases Maxence HUBICHE

Créer des requêtes simples (Jean Ballat)

Et intéresse-toi aussi à la fonction Nz()

[jiriki20]

Alors j'ai essayé de modifier les liaisons et effectivement ça marche en partie. Le problème c'est que j'avais les postes dans une des requêtes et du coup il ne m'affichait que les éléments qui correspondaient à celle-ci et pas les éléments vides. Ce que je voudrais c'est qu'il m'affiche tous les équipements qui sont installées à un poste peu importe s'il y a des données d'installation d'affectation ou de pré-affectation.
J'ai donc pensé sortir le poste de la requête initiale et de le rajouter dans la requête globale ce qui conne ça:

Code :

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

1
2
3
4
SELECT T_Postes.CA_Code, T_Postes.Designation, R_DQA_aff.numero_serie, R_DQA_inst.numero_serie, R_DQA_preaff.numero_serie
FROM R_DQA_inst RIGHT JOIN ((R_DQA_aff RIGHT JOIN T_Postes ON R_DQA_aff.code_ca = T_Postes.CA_Code) LEFT JOIN R_DQA_preaff ON T_Postes.CA_Code = R_DQA_preaff.code_ca) ON R_DQA_inst.code_ca = T_Postes.CA_Code
WHERE (((R_DQA_inst.MSN)=1536) AND ((T_Postes.Poste)="35add")) OR (((R_DQA_aff.MSN)=1536) AND ((T_Postes.Poste)="35add")) OR (((R_DQA_preaff.MSN_new)=1536) AND ((T_Postes.Poste)="35add"))
ORDER BY T_Postes.CA_Code;

R_DQA_inst est la requête qui donne les éléments installés
R_DQA_aff est la requête qui donne les éléments affectés par la logistique
R_DQA_preaff est la requête qui donne les éléments pré-affectés par le fournisseur.

Cette requête devrait me donner 6 lignes normalement mais là elle m'ne donne 546...
Chaque sous-requête configurée individuellement donne de bons résultats donc je pense qu'il s'agit d'un problème dans celle-ci.

Au niveau des liaisons je n'ai pu en faire qu'au niveau du CA_code (qui identifie l'équipement à monter), si j'en rajoute d'autres Access me dit que les liaisons sont ambiguës...

[ClaudeLELOUP]

Poste un exemple de tes tables dans une db compatible Access2000, ce sera plus concret pour continuer la discussion.

[jiriki20]

Voici la base épurée avec juste les données nécessaire, j'ai supprimé le reste par souci de confidentialité et gardé que ce qui sert dans la requête.

[ClaudeLELOUP]

Je ne parviens pas à deviner la signification des colonnes de tes requêtes.

Peux-tu spécifier pour ces 4 données que tu veux dans ton état :
•Le code de l'équipement
•Le numéro de série d'équipement prévu par le fournisseur
•Le numéro de série affecté par notre logistique
•Le numéro de série effectivement installé par notre production


dans quelle requête je la trouve et le nom de sa colonne.

[jiriki20]

Bonjour Claude,

Je vais essayer de décrire précisément les champs et requêtes:

• Le code de l'équipement
  
  Provient de le table T_Poste colonne CA_Code
• Le numéro de série d'équipement prévu par le fournisseur
  
  Provient de la requête "R_DQA_preaff" dans la colonne "numero_serie"
• Le numéro de série affecté par notre logistique
  
  Provient de la requête "R_DQA_aff" colonne "numero_serie"
• Le numéro de série effectivement installé par notre production
  
  Provient de la requête "R_DQA_inst" colonne "numero_serie"

Pour les autres colonnes on a:

• MSN : Numéro de série de note produit
• Time_stamp : date et heure auxquelles a été fait l'installation
• Currently_installed : valeur booleenne qui détermine si cette installation est actuelle (permet de garder un historique en cas de changement d'équipement défectueux)
• Reference_in/out : reférence du document qui a fait monter/démonter un équipement
• Position : permet de distinguer plusieurs équipement de même type installé sur le même produit
• Quantite : détermine la quantité d'équipements de ce type à installer sur un produit
• Preaffectation : valeur booléenne qui permet de déterminer si cette affectation a été faite par le fournisseur
• MSN_new : idem MSN

Voila, j'espère que cela rend la compréhension un peu plus aisée.

[ClaudeLELOUP]

Je ne sais pas t'aider, car je ne comprends pas ce que tu fais.

Pour autant que j'aie suivi, je m'attendais à ce que CA_Code soit la clé qui permet de relier les infos de tes 3 sources.

Si je prends l'exemple de CA_Code=FB073, j'ai une kyrielle de combinaisons.

Je t'affiche le contenu des 3 requêtes où figure CA_Code FB073.



Pour m'aider à comprendre, peux-tu me dire ce qui devrait apparaître sur l'état pour les 7 postes ramenés par la requête R_DQA_inst ?

[jiriki20]

Bonjour Claude,

Effectivement CA_Code est la clé qui relie les 3 requêtes et tu obtiens une myriade de résultats car les sous-requêtes ne sont pas paramétrées. Je comptais faire ça avec la requête qui réunit tout afin que ce soit plus facile à mettre à jour en VBA après.

Les trois sous requêtes me servent à créer des tables avec toutes les données dont j'ai besoin mais qui ne sont pas ou très peu filtrées. Puis vient par dessus la requête R_DQA_tout qui applique le filtre d'un MSN et d'un poste afin de ne choisir que les équipements qui sont montés pour un poste et un MSN donné. Ca ne sert donc a rien de ne filtrer que sur un CA_Code.

Ta remarque m'a fait réfléchir et j'ai don essayé de paramétrer les sous requêtes avec un MSN et la requête globale avec le poste de la manière suivante:
R_DQA_preaff:

Code sql :

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

1
2
3
4
 
SELECT T_CA_Serial.numero_serie, T_Affectation.Preaffectation, T_Affectation.MSN_new, T_CA_Serial.code_ca
FROM T_CA_Serial INNER JOIN T_Affectation ON T_CA_Serial.id_CA = T_Affectation.ID_CA_new
WHERE (((T_Affectation.Preaffectation)=True) AND ((T_Affectation.MSN_new)=1544));

R_DQA_aff:

Code SQL :

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

1
2
3
SELECT T_CA_Serial.code_ca, T_CA_Serial.numero_serie, T_CA_Serial.MSN
FROM T_CA_Serial
WHERE (((T_CA_Serial.MSN)=1544));

R_DQA_inst:

Code sql :

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

1
2
3
SELECT T_CA_Serial.code_ca, T_CA_Serial.numero_serie, T_Installation.MSN, T_Installation.Time_stamp, T_Installation.Currently_installed, T_Installation.Reference_in, T_Installation.Reference_out, T_Installation.Position
FROM T_CA_Serial INNER JOIN T_Installation ON T_CA_Serial.id_CA = T_Installation.ID_CA
WHERE (((T_Installation.MSN)=1544) AND ((T_Installation.Currently_installed)=True));

R_DQA_tout:

Code sql :

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

1
2
3
4
SELECT T_Postes.CA_Code, R_DQA_aff.numero_serie, R_DQA_inst.numero_serie, R_DQA_preaff.numero_serie
FROM R_DQA_inst RIGHT JOIN ((R_DQA_aff RIGHT JOIN T_Postes ON R_DQA_aff.code_ca = T_Postes.CA_Code) LEFT JOIN R_DQA_preaff ON T_Postes.CA_Code = R_DQA_preaff.code_ca) ON R_DQA_inst.code_ca = T_Postes.CA_Code
WHERE (((T_Postes.Poste)="35barques"))
ORDER BY T_Postes.CA_Code;

Ça donne effectivement le résultat recherché:


Par contre comme tu peux te l'imaginer il va falloir que je le code pour chaque MSN et poste (en fonction des choix utilisateurs) et j'aurais bien aimé ne ré-définir q'une seule requête à chaque fois.

[ClaudeLELOUP]

Bon, essayons de la faire courte !

Voici une requête qui pourrait remplacer toutes celles que tu montres :

Code :

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

1
2
3
SELECT T_CA_Serial.code_ca, T_CA_Serial.numero_serie, T_Installation.MSN, T_Installation.Time_stamp, T_Installation.Currently_installed, T_Installation.Reference_in, T_Installation.Reference_out, T_Installation.Position, T_Affectation.Preaffectation, T_Affectation.MSN_new, T_Postes.Poste
FROM ((T_Postes RIGHT JOIN T_CA_Serial ON T_Postes.CA_Code = T_CA_Serial.code_ca) LEFT JOIN T_Installation ON T_CA_Serial.id_CA = T_Installation.ID_CA) LEFT JOIN T_Affectation ON T_CA_Serial.id_CA = T_Affectation.ID_CA_new
WHERE (((T_Installation.MSN)=1544) AND ((T_Installation.Currently_installed)=True) AND ((T_Affectation.Preaffectation)=True) AND ((T_Affectation.MSN_new)=1528) AND ((T_Postes.Poste)="35Barques"));

N.B. Tu n'auras aucun résultat pour MSN_new = 1544 !

Par contre comme tu peux te l'imaginer il va falloir que je le code pour chaque MSN et poste (en fonction des choix utilisateurs) et j'aurais bien aimé ne ré-définir q'une seule requête à chaque fois.

Explique donc en détail, avec des mots et non avec des requêtes, ce que tu veux faire en réalité.

[jiriki20]

Explique donc en détail, avec des mots et non avec des requêtes, ce que tu veux faire en réalité. .

Je voudrais qu'un état me donne pour un MSN et un poste donné la liste de tous les equipements (CA_Code) montés sur ce poste avec pour chacun d'entre eux:

• le serial_number del l'équipement préaffecté (
• le serial_number de l'équipement affecté logistique
• le serial_number de l'équipement effectivement installé

Voici une requête qui pourrait remplacer toutes celles que tu montres

Celles que je montre me donnent le résultat recherché (voir image attachée à mon dernier post) avec la tienne je n'obtiens que 2 lignes...
Il faut donc absolument que le pivot de la requête soit la table T_Postes à mon avis. Par contre quand on essaye de construire une requête autour de cette table et qu'on essaye de faire des LEFT JOIN ou des RIGHT JOIN Access me dit que les relations sont ambigues et que je ferais mieux de créer des sous requêtes...

[ClaudeLELOUP]

Par contre comme tu peux te l'imaginer il va falloir que je le code pour chaque MSN et poste (en fonction des choix utilisateurs) et j'aurais bien aimé ne ré-définir q'une seule requête à chaque fois.

Pour ce 1er point, on pourrait procéder comme ceci :



et bien sûr, dans les requêtes, se référer à la valeur des deux zones de liste, vois l’exemple :
http://claudeleloup.developpez.com/F...0428Jiriki.mdb

[jiriki20]

Bonjour Claude,

J'avais bossé un peu de mon coté et j'ai fait exactement le même formulaire que toi mais en utilisant le code suivant:

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
If Not IsNull(Me.cb_msn) And Not IsNull(Me.cb_poste) Then
    CurrentDb.QueryDefs("R_DQA_preaff").SQL = "SELECT T_CA_Serial.numero_serie, T_CA_Serial.code_ca  " & _
                                            "FROM T_CA_Serial INNER JOIN T_Affectation ON T_CA_Serial.id_CA = T_Affectation.ID_CA_new " & _
                                            "WHERE (((T_Affectation.Preaffectation)=True) AND ((T_Affectation.MSN_new)=" & Me.cb_msn & "));"
 
    CurrentDb.QueryDefs("R_DQA_aff").SQL = "SELECT T_CA_Serial.code_ca, T_CA_Serial.numero_serie  " & _
                                        "FROM T_CA_Serial INNER JOIN T_Affectation ON T_CA_Serial.id_CA = T_Affectation.ID_CA_new " & _
                                        "WHERE (((T_CA_Serial.MSN)=" & Me.cb_msn & "));"
 
    CurrentDb.QueryDefs("R_DQA_inst").SQL = "SELECT T_CA_Serial.code_ca, T_CA_Serial.numero_serie  " & _
                                        "FROM T_Postes RIGHT JOIN (T_CA_Serial INNER JOIN T_Installation ON T_CA_Serial.id_CA = T_Installation.ID_CA) ON T_Postes.CA_Code = T_CA_Serial.code_ca " & _
                                        "WHERE (((T_Installation.MSN)=" & Me.cb_msn & ") AND ((T_Installation.Currently_installed)=True));"
 
    CurrentDb.QueryDefs("R_DQA_tout").SQL = "SELECT T_Postes.Poste, T_Postes.CA_Code, R_DQA_preaff.numero_serie, R_DQA_aff.numero_serie, R_DQA_inst.numero_serie  " & _
                                        "FROM R_DQA_inst RIGHT JOIN ((R_DQA_aff RIGHT JOIN T_Postes ON R_DQA_aff.code_ca = T_Postes.CA_Code) LEFT JOIN R_DQA_preaff ON T_Postes.CA_Code = R_DQA_preaff.code_ca) ON R_DQA_inst.code_ca = T_Postes.CA_Code " & _
                                       "WHERE (((T_Postes.Poste)='" & Me.cb_poste & "'))" & _
                                       "ORDER BY T_Postes.CA_Code;"
 
 
    If CurrentProject.AllReports("E_DQA").IsLoaded Then
        DoCmd.Close acReport, "E_DQA", acSaveNo
    End If
 
    DoCmd.OpenReport "E_DQA", acViewPreview, , , acWindowNormal
 
 
Else
    MsgBox "Veuillez saisir les deux champs!", vbCritical, "Données manquantes!"
End If
Exit Sub

Je ne savais pas que l'on pouvait paramétrer une requête en se référant à un champ d'un formulaire. C'est effectivement beaucoup moins lourd et je vais donc utiliser ta solution.

Merci beaucoup pour ton aide!