Discussion :

[Pascal87]

Bonjour à tous,

C'est la première fois que je pose une question sur le forum. D'habitude, je trouve mes réponses, et je remercie tous les contributeurs de questions et de réponses.

Je vais essayer d'énoncer clairement mon problème, mais je précise que je ne suis de la partie, juste "bidouilleur".

J'utilise encore Access 2000.
Ma base comprend entre autres tables :
- tbl_Dossiers : des dossiers
- tbl_Pieces : des pièces justificatives à attacher au dossier
- tbl_LienDossPiece : table relation plusieurs à plusieurs qui fait le lien entre des dossiers et des pièces justificatives à recueillir (tous les dossiers ne nécessitent pas les mêmes pièces)
- tbl_DossPiecesVerif : cette table hérite de la précédente pour enregistrer des contrôles à faire sur chaque pièce rattachée à un dossier. Exemple : validité, date expiration, document original, etc...
Je pars du principe que chaque pièce doit subir les mêmes contrôles pour tous les dossiers.

J'alimente les données ainsi:
- Sur un dossier, par double-clic (insert into), je sélectionne les pièces à rattacher (from tbl_Pieces)
J'ai donc 2 zones de liste : celle des pièces disponibles qui met à jour la seconde qui comporte les pièces attachées. La première s'actualise donc des pièces non encore rattachées.

- L'étape suivante consiste donc à rattacher les controles à faire sur chaque pièce rattachée.
Pour l'instant, je remplis la table tbl_DossPiecesVerif plus ou moins manuellement. Je me positionne sur l'enregistrement créé (zone de liste) et je lance une requete Ajout qui ajoute les controles nécessaires avec l'ID auto de rattachement (pièce/doss).
Jusque là, j'espère être clair.

Je souhaiterais que cette dernière table se remplisse automatiquement après le rattachement de chaque pièce au dossier.
Je suis donc bloqué à l'étape qui consiste à récupérer l'ID auto créé par le nouvel enregistrement (ds tbl_LienDossPiece). En me positionnant manuellement sur la zone de liste, ma requete Ajout fonctionne bien.

Donc, comment automatiser tout ça ?
Ce à quoi j'ai pensé :
- Après l'ajout du rattachement : récupérer la valeur du champ auto (le dernier a priori).
- Me positionner automatiquement sur l'enregistrement ainsi créé de la zone de liste.

(Toutes mes tables comportent des champs auto qui interviennent dans les champs fils.)

Est-ce la bonne solution ? Et comment faire ?

Je vous remercie d'avoir pris le temps de me lire et éventuellement de m'éclairer.

Bonne journée.

Pascal

[ClaudeLELOUP]

Bonjour,

Je n'ai, hélas pas compris grand-chose.

Ce serait plus clair si tu postais une db avec des données de test (donc aucune donnée confidentielle) : cela permettrait d'être plus concret.

Et comme j'utilise aussi Access2000, je pourrai peut-être t'aider.

[Pascal87]

Bonjour,

Merci à Claude pour la réponse.

Ci-joint ma base zippée.

GestionDossiers.zip

Le formulaire à ouvrir est [frm_Doss_Lien_Inv].
J'ai viré un tas de choses. Il est possible qu'il subsiste dans les tables quelques listes qui ne fonctionnent plus...

Pour info, le client 85, dossier ID =2 est le complet en données de test.

Merci

Bien cordialement

[ClaudeLELOUP]

Bonjour,

Pour l'instant, je remplis la table tbl_DossPiecesVerif plus ou moins manuellement. Je me positionne sur l'enregistrement créé (zone de liste) et je lance une requete Ajout qui ajoute les controles nécessaires avec l'ID auto de rattachement (pièce/doss).

Je ne comprends pas.
« je remplis la table tbl_DossPiecesVerif plus ou moins manuellement », veux-tu dire : directement dans la table, sans utiliser le formulaire ?
Où est cette requête ajout ?

[Zekraoui_Jakani]

Difficile à comprendre; je propose que vous reformuliez vos explications en utilisant les noms de table tels qu'ils figurent dans la BD. Si vous avez une tableA, n'écrivez pas "j'ai une table 'tbl_tableA_xyz'" car on ne sait plus si tabeA = 'tbl_tableA_xyz', ou si vous parlez d'une autre table. Je ne m'y retrouve pas dans ce problème qui, à priori paraît simple à résoudre, mais vos explications le rendent indigeste. Désolé !

[ClaudeLELOUP]

Bonjour,

Après plusieurs heures, je crois avoir compris... et probablement trouvé une solution très simple.

Mais avant, peux-tu me dire s'il y a une explication à ceci, qui perturbe la comparaison de mes tests avec la situation actuelle



La solution que je crois avoir trouvée donnerait plutôt ceci :



N.B. Le septième est visible si on actionne l'ascenseur ! (L'espace permet d'afficher 6 items.)

[ClaudeLELOUP]

Proposition de solution

Considère cette requête :

Elle va provoquer l’ajout dans Subv_Doss_Pieces_Verif.
Cependant, si certaines combinaisons de « PieceDossVerif_ID_LD/PieceDossVerif_Proced » sont déjà présentes dans la table, elles seront rejetées.

Imagine que chaque fois qu’on ajoute un item dans « ZL_DossLienPieces », on exécute la requête : toutes les combinaisons « PieceDossVerif_ID_LD/PieceDossVerif_Proced » seront rejetées à l’exception de celles relatives à la pièce à contrôler que tu viens d’ajouter.
Dès lors, il suffit d’ajouter les 4 lignes d’instruction décalées à gauche… et c’est dans la poche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ZL_Pieces_List_DblClick(Cancel As Integer)
    'Ajout de la pièce au dossier
    Dim AjoutPiece As String
    AjoutPiece = "insert into Subv_Doss_Lien_Pieces ([PieceDoss_Doss], [PieceDoss_Piece_LD]) values (" & Me.[DosSub_IDA] & "," & Me.[ZL_Pieces_List] & ")"
    CurrentDb().Execute (AjoutPiece)
'Ajouter les Pièces à vérifier
DoCmd.SetWarnings False
DoCmd.OpenQuery "rAjoutVerif"
DoCmd.SetWarnings True
    Me.ZL_DossLienPieces.Requery
    Me.ZL_Pieces_List.Requery
Me.ZL_Verifs_Piece.Requery
End Sub