Fonction définirvaleur pour mettre à jour zone de liste déroulante

Bonjour,

Je souhaiterais mettre à jour une zone de liste déroulante via une macro à l'aide de la fonction définirvaleur.

Pour cela, je me place dans l'évènement notinlist et je fais une macro qui ouvre mon formulaire contenant les données de ma zone de liste déroulante et qui ensuite est sensée m'écrire (avec "DéfinirValeur") la valeur qui n'était pas dans la liste déroulante.
Mais là, j'ai un super message qui me dit :

"le texte entré n'est pas un élément de la liste. Selectionnez un élément de la liste ou entrez un texte qui correspond à un des éléments de la liste"

Suite à celà, j'ai modifié l'option "limiter à la liste" en mettant "non" mais à ma grande surprise, celà fait que l'évênement ""notinlist" ne marche plus.

Comment faire pour que ce message n'apparaissent pas tout en restant (si possible) en mode macro ? (je précise que j'ai fait un essai en VBA avec : "Response = acDataErrContinue" qui ne marche pas mieux)

Merci d'avance de vos réponses.

Salut,

Tu peux nous montrer ton code du NotInList.

as-tu bien mis le code de la :faq:
:fleche: http://access.developpez.com/faq/?pa...ZoneListMsgErr


Dolphy ;)

Voilà ce que j'obtiens lorsque j'execute l'outil de traduction de ma macro (ouvrirformulaire et définirValeur) en VBA :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

BACNOM_NotInList ' '------------------------------------------------------------ Private Sub BACNOM_NotInList(NewData As String, Response As Integer) On Error GoTo BACNOM_NotInList_Err   DoCmd.OpenForm "W BAC_DBN", acNormal, "", "", acAdd, acNormal Forms![W BAC_DBN]!BAC_NOM = Forms![Parcelle cadastrale]![BACNOM]     BACNOM_NotInList_Exit: Exit Sub   BACNOM_NotInList_Err: MsgBox Error$ Resume BACNOM_NotInList_Exit   End Sub

---

ensuite, c'est vrai que je ne sais pas vraiment où placer le code suivant

Code:

---

Response = acDataErrContinue

---

pour que le message d'erreur n'apparaissent plus.

En fait, je vais préciser un peu mon problème :
J'ai fait un essai de la fonction définirvaleur sur pertefocus et mettant l'option "limiter à la liste" sur "non".
Là, elle marche très bien !

Par contre je ne veux pas que la macro s'execute sur la perte du focus mais seulement si l'élement écrit n'est pas dans la liste.

Maisallons savoir pourquoi, l'événement notinlist ne fonctionne pas si l'option "limiter à la liste" est sur "non"
Et s'il est sur oui, j'ai le fameux message d'erreur.

Y a t-il un moyen de contourner ce problème ?

Merci d'avance