Discussion :

[BCBFIS]

Dans un formulaire, j'ai une liste déroulante qui propose certaines formes de sociétés mentionnées dans une table1 , mais il peut arriver qu'une forme de société ne figure pas dans la liste proposée; je souhaiterais donc dans ce formulaire pouvoir ajouter cette nouvelle forme de société de sorte que la table1 contenant les formes de société soit mise à jour. J'ai cherché sur le Net, mais on parle souvent de "créer une combobox". Je ne comprends donc pas. J'ai vu que "combobox" était une commande, mais que j'ai du mal à comprendre.
Je joins un article à ce sujet.
Merci pour votre aide.

[tee_grandbois]

bonjour,
Combobox est la traduction de liste déroulante en anglais ...
Il faut utiliser l'évènement NotInList pour ajouter une nouvelle entrée dans la liste déroulante.
Une discussion en parle ici et également dans la FAQ

[BCBFIS]

Merci pour ta réponse. J'avais pensé à "NotInList", mais je trouvais séduisant de pouvoir me passer de VBA et d'essayer le scénario présenté par Hervé Inisan. Visiblement je n'y arrive pas, je vais donc essayer de mettre en chantier le NotInList".
Bonne fin de journée.Encore merci.

[BCBFIS]

Sur base des indications reçues sur ce forum, j'ai rédigé du code VBA pour pouvoir ajouter des données dans une liste déroulante. Si j'accepte d'ajouter la donnée introduite dans mon formulaire auquel la liste déroulante est liée, j'obtiens ensuite un message d'avertissement indiquant qu'une ligne va être ajoutée; si je réponds OUI, la donnée est ajoutée à la table de la liste déroulante, si par contre je réponds NON, j'obtiens un message d'erreur 2501 en rapport avec RunSQL pour lequel je ne trouve pas de solution. Je souhaiterais, en cas de réponse négative revenir à la zone de saisie de mon formulaire ou quitter le formulaire.
Je joins copie du code rédigé ainsi que des 2 messages reçus.
Merci d'avance pour votre aide.

[tee_grandbois]

bonjour,
évite de mettre du code sous forme imprimée et qui plus est en attachement, ce n'est pas du tout pratique de corriger une image ...
pour ton problème, il ne faut pas utiliser RunSql sans SetWarnings qui permet de ne pas afficher le message d'avertissement

Code :

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

1
2
3
Docmd.Setwarnings True
Docmd.runSql "instruction sql"
Docmd.setwarings false

cependant, je conseille d'utiliser Execute qui n'affiche pas les avertissements mais affiche quand même un message d'erreur si elle survient (insertion de doublons dans un index par exemple):

Code :

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

Currentdb.Execute "instruction sql", dbfailonerror

d'autre part il faut utiliser Values avec Insert lorsqu'il n'y a pas de table en entrée

Code :

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

"Insert into table1 (champ1) Values('" & Newdata & "')"

[BCBFIS]

J'ai suivi tes conseils et cela fonctionne beaucoup mieux.
Encore un grand merci.
Bonne soirée

[tee_grandbois]

oui, mais pour la première solution il faut juste inverser les instructions SetWarnings en mettant False en premier ...
désolé pour l'erreur

[BCBFIS]

Je m'étais effectivement posé la question à ce sujet.
Merci.
Bonne journée.