Discussion :

[Dixye31]

Bonjour,

Je bloque sur la création d'un sous-formulaire qui contient lui-même 4 tables (4 listes déroulantes). J'ai créé les boutons sur clic, données ajout pour chacune des listes
Pour la première liste aucun problème pour la mettre à jour instantanément et visible une fois la table fermée.
C'est après que ça se complique. Je n'arrive pas à en faire de même pour les autres listes ça ne fonctionne pas avec :

Code :

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

1
2
3
4
Private Sub Form_Activate()
On Error Resume Next
Me.ID_CONTACT_ENT.Requery
End Sub

Est-ce qu'on ne peut pas en mettre plusieurs ? Comment faut-il faire ?

En résumé, le formulaire principal est un formulaire étudiant qui contient un sous formulaire contrat. A l'intérieur de ce dernier, 4 tables contact avec les coordonnées d'entreprise, tuteurs, maître de stage, etc...

Merci par avance pour votre aide

[hyperion13]

Bonjour,
Si vos listes déroulantes ne contiennent aucune valeur ou des valeurs inexistante, il faut alors utiliser l'évènement Sur absence dans liste.
Lire cet article.

[Dixye31]

Désolé débutante sur access, je ne sais pas si ce sont des listes comme entendu dans ce document.
Les listes deroulantes sont les ID des 4 tables. Lorsqu'un ID est sélectionné il répercute les noms, prenoms adresses, CP, ville, tel, etc... Automatiquement. Mais si le contact n'existe pas j'ai un bouton qui ouvre chaque formulaire pour la saisie des nouveaux. Et dès que j'ai saisi, enregistré et fermé, j'aimerais le retrouver en direct dans ma liste.
Ça ne fonctionne que pour la première liste pas pour les autres. Est-ce que je prends le problème à l'envers ?

[Jeannot45]

Ca parait un peu confus

1. souhaites tu, comme te le propose hyperion13, ajouter les valeur à la volée
2. est-ce que tes listes sont indépendantes ?
3. tes listes sont-elles liées ?

Peux-tu mettre un extrait de ta base afin de mieux comprendre le problème et ainsi t'apporter les infos qui te feront avancer.

[hyperion13]

Vous utilisez forcément des zones de liste modifiable (combobox).
Selon les éléments données, vous devez compléter vos zones de liste modifiable des lors qu'une valeur n'existe pas.
Pour cela, il faut utiliser l'évènement Sur absence dans liste de chacune de vos listes déroulantes, copier et adapter le code du 2ème exemple (Bill Jefen) du lien indiqué.
Vous n'avez pas besoin d'utiliser des btn de commande pour ouvrir vos form respectifs. Ceci n'engage que moi.
Comme vous souhaitez ouvrir un formulaire pour saisir des données, il faudra alors remplacer :

Code :

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

1
2
        DoCmd.OpenTable "tblDepartments", acViewNormal, acReadOnly
        DoCmd.GoToRecord acDataTable, "tblDepartments", acLast

par

Code :

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

1
2
        DoCmd.OpenForm "formDepartments", acNormal, "", "", , acNormal
        DoCmd.GoToRecord acForm, "formDepartments", acLast

[Dixye31]

Bonjour
Merci pour vos réponses et désolé pour le retour tardif. Mes listes sont liées. J'ai testé le premier code il fonctionne bien mais je souhaiterais vraiment effectivement faire la saisie via le formulaire (Et je pensais que la création d'un bouton était obligé)
Quand j'essaye d'adapter le code 2 j'ai un message :

le texte entré n'est pas un élément de la liste

qui tourne en boucle et n'apparaît pas dans la liste en me renvoyant sur formulaire etc. Est-ce que j'interprète mal le code ?
Encore merci par avance pour votre aide

[hyperion13]

Une capture d'écran de la fenêtre des relations serait la bienvenue.

[Dixye31]

La voici. Il ne faut pas tenir compte de la table jonction de droite. Je suis en train de tout reprendre... Merci 😊

[hyperion13]

Pour les captures d'écran utilisez plus tôt la touche ImpÉc, PrintScreen, copier et rogner dans MsPaint (accessoires de windows). Plus simple en terme de manipulation.
En attache, une bdd qui reprend l'idée de la votre.
Dans la tbl T_Jonction_CA_Ctc, les idCtcEntJ, idCtcMAJ et idCtcMADelJ, clés étrangères, sont des liste déroulantes. Inspirez-vous des paramétrages dans la propriété Liste de choix.
Dans le form Form_CA_Jonction_CA_Ctc, les 3 listes déroulantes sont affectées de l'évènement Sur absence de liste. Vous pouvez exécuter le raccourci clavier Alt F11 pour ouvrir la fenêtre environnement vba et parcourir les 3 procédures en place.
Votre procédure

Code :

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

 Private Sub Form_Activate()

ainsi que vos btn de commandes sont à supprimer.

[Dixye31]

Merci beaucoup, je vais tester demain et reviendrai vous dire si j'arrive à avancer !

[Dixye31]

Bjr,
me revoilà après test. La saisie se reporte bien dans ma table mais ensuite ça bloque.
- la liste déroulante se fige : Si je sélectionne un contact pas moyen de modifier et d'en sélectionner un autre en cas d'erreur. Je suis obligée de fermer et rouvrir.
- j'avais créé une procédure événementielle sur cette même liste après Maj de manière à ce que l'adresse, CP, ville tel, etc. Se reporte automatiquement dès sélection.
Elle ne fonctionne pas.
Y a t-il un moyen de rectifier ces points ?
Merci encore pour votre aide

[hyperion13]

Bonjour
Dans la bdd exemple fournie dans mon précédent post, les listes déroulantes fonctionnent que vous sélectionniez une valeur ou après avoir créé une nouvelle valeur.
Maintenant, si dans le sform T_CA_jonction vous voulez ajouter des zones de texte supplémentaires ads, cp, ville, etc, il faut alors modifier la Source contrôle du sform. Actuellement, la Source contrôle est la tbl T_jonction_CA_Ctc, vous devez créer une requête (voir image1) pour ajouter les champs supplémentaires et insérer ensuite dans le sform (voir image2) les nouvelles zones de texte ou autre objets selon le cas.

[Dixye31]

En fait, j'avais déjà fait cette manip. Mais quand je crée une nouvelle entreprise les reports ne se font que si je ferme et rouvre le formulaire
Même chose, si je sélectionne un nom mais que je souhaite changer, la liste se bloque (impossible de faire des modifs.). De nouveau, il faut que je ferme et rouvre le formulaire.

[Dixye31]

Après avoir remis la base au propre tout fonctionne. Merci 😊