Bonjour
 
J'essai depuis plusieurs jours de modifier ce code pour l'adapter avec un split
 
"code qui fonctionne"

 
Le code ci-dessus permet d'ajouter à une liste déroulante d'un formulaire la valeur manquante et la copie dans la table source.
 
Voici ou j'en suis avec l'ajout d'un split qui a pour but de découper une valeur (nom, prénom) entrée dans une liste déroulante multi-valuée pour ensuite l'ajouter automatiquement dans les champs correspondants de la table Participants (le séparateur est la virgule
 

 
à mon niveau CAD au raz des pâquerettes, je ne vois pas pourquoi ca ne marche pas, (ni même pourquoi ca pourrais marcher...)    j'obtiens sans arrêt une erreur sur la ligne DoCmd (erreur qui diffère en fonction des modifs que j'y fais genre 424, objet requis , mais lequel ??!!)
 
pourriez-vous m'aider ??
 
merci

L'erreur est dû à l'absence d'apostrophe autour des champs de type alphanumérique.
Il faudrait avoir :

N.B. En SQL il faut des apostrophes et non pas des guillemets.

merci pour ton aide olivthill  
 
on se rapproche, Access me demande si je veux ajouter ma nouvelle valeur à la liste " vous allez ajouter une ligne.." et dès que je clique sur oui j'ai le message suivant " le texte entré n'est pas un élément de la liste..." et seul un enregistrement vide est créé

J'ai l'impression que les variables Nom et Prenom ne contiennent rien.
Il faudrait peut-être les remplir avec

à la place de

ou plutôt  

tp = Split(NewData, "," )
Prenom = tp(1)
Nom = tp(2)

 
(VB indexe à partir de 1 et c'est mieux de n'appeler Split qu'une fois )

J'ai essayé ta derniere solution et j'obtiens une erreur 9 (indice hors de la sélection) sur ta ligne 3
J'ai donc essayé ta première solution et on y est presque !!, les valeurs sont bien ajoutées à la table et dans les bons champs, mais access m'affiche toujours le message "stupide" comme quoi, le texte entré ne fait pas parti de la liste et que je dois sélectionner un élément de cette liste
 
voici le code à jour
 

Private Sub Participants_NotInList(NewData As String, Response As Integer)
Dim tp As Variant
Dim Nom As String
Dim Prenom As String
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des Participants ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Ajout" ) = vbYes Then
Nom = Split(NewData, "," )(0)
Prenom = Split(NewData, "," )(1)
DoCmd.RunSQL "Insert into Liste_Participants ( Nom, Prenom ) Values('" & Nom & "', '" & Prenom & "')"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Liste_Participants.Undo
End If
End Sub

 
Merci pour ton aide !!

La liste.
Peut-être qu'elle aurait besoin d'être rechargée à partir de la table. Pour cela je propose de rajouter la ligne suivante après le RunSQL :

Me est un mot clé qui désigne la form en cours. Nom_de_la_liste est l'identifiant qui a été donnée à la liste, que je ne connais pas, et qu'il faut remplacer par son véritable nom.

j'obtiens une erreur 2118 avec cette ligne
Je ne vais pas pouvoir suivre tes conseils aujourd'hui, mais dès que je peux je reviens.
 
Merci

Bonjour,
 
Je n'arrive toujours pas à faire sauter le message de sélection, mais autre problème, l'auto correction ne marche pas, il faut donc faire défiler la liste pour savoir si un participant est déjà inscrit.
 
merci