Discussion :

[yfchauer]

Bonjour,

J'ai un formulaire pour la saisie des médias avec une liste déroulante contenant le genre ... et un bouton ouvrant un formulaire pour ajouter un autre genre s'il n'est pas dans cette liste déroulante. Mais lorsque j'ajoute un genre, celui-ci n'apparait pas dans ma liste déroulante. Comment faire la mise a jour.

J'ai essayé de mettre dans la propriété "Après Maj" du formulaire MEDIA, le code suivant :

Code :

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

1
2
Me.refresh
Me.CblGenre.Requery

(Cblgenre est le nom de la liste déroulante)

Mais rien ne se passe, je suis obligé de fermer le formulaire et le rouvrir pour mettre à jour ma saisie du nouveau genre.

Merci d'avance pour votre aide. je suis preneur de toute proposition.

[yonnel]

Bonjour,

Il faut que la mise à jour se fasse après l'appel de l'ajout.
A priori, l’évènement après MAJ du formulaire MEDIA ne se déclenchera pas car tu ne modifie pas directement le formulaire média.

Peux tu nos donner le code appelant ton formulaire pour ajouter une nouvelle valeur? (évènement on click de ton bouton)

[yfchauer]

Bonjour,

Voici le code du bouton CmdGenre (Bouton pour afficher le formulaire pour l'ajout d'un genre)
Action : ouvrir formulaire
Nom : DetailGenre
AtteindreEnregitrement "Nouveau"
Ce bouton est créé avec l'assistant ACCESS

Merci d'avance

[yonnel]

OK

Si tu veux faire cela, il va te falloir aller plus loin que l’assistant et plonger dans le code vba!

Fait un lick droit sur ton bouton CmdGenre, puis "Créer code évenement" (et si besoin sélectionne "Générateur de code").

Puis envoi nous le contenu de la fonction qui devrait s'appeler "CmdGenre_Click"

[yfchauer]

Bonjour,
Sur CmdGenre_Click(), il n'y a aucun code
c'est un vide entre sub et end sub

[yonnel]

humm..!

Lorsque tu cliques sur le bouton "CmdGenre", ton formulaire "DetailGenre" s'ouvre, mais tu n'as pas de code derrière le bouton "CmdGenre"

Il doit y avoir quelque chose que j'ai mal compris

Si ta base n'est pas trop grosse, tu peux la joindre au message?

[yfchauer]

bonsoir,

Désolé, je n'ai pas réussi à compresser la base de données à moins de 2Mo.

[madefemere]

Bonjour,
Je me permets d'intervenir dans votre échange pour une idée complémentaire car je ne sais pas si tu as pas pu aller jusqu'à la fin de la solution proposée par yonnel.

Tu es sur la bonne voie dans l'utilisation de Requery , mais il faut l'appeler à la fin de l'ajout dans le formulaire DetailGenre, par exemple à l'évènement fermeture du formulaire ou tout autre évènement.
Avec l'assistant, tu peux créer un bouton pour fermer le formulaire DetailGenre qui génère un code VBA, ou tu as un code VBA à l'évènement sur fermeture du formulaire DetailGenre.
Tu insères ce bout de code

Code :

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

Forms![MEDIA]![CblGenre].Requery

dans l'un des codes en allant dans Propriétés et évènement : sur fermeture du Formulaire MEDIA ou sur click du bouton.

Normalement ça devrait résoudre ton problème.
Mandresy