Discussion :

[Jonkill]

Bonjour,

j'ai une liste déroulante multi-valuée basée sur 2 champs (nom, prenom) dans un formulaire.
Je voulais savoir s'il est possible d'ajouter à la table source les valeurs manquantes comme cela est possible avec ce code trouvé dans la FAQ pour une liste simple.

Je voudrais par exemple entrer simplement dans la liste "Sims, David" , avec un séparateur (virgule ou autre) pour marquer le changement de champs

Merci

[LE VIEUX]

bonsoir,
est-ce que tu as jeté un coup d'oeil là :http://warin.developpez.com/access/multivalue/

[Jonkill]

oui, j'ai lu et relis le lien, mais je ne connais pas suffisamment vba pour pour en tirer quelque chose.

Je vais essayé de combiner les deux codes, celui de ton lien concernant l'ajout du l'élève 2 et celui de mon premier post, ça va chauffer...

merci

[Invité]

Bonjour

Pour que le code de la FAQ fonctionne, il faut éclater d'abord ta chaine à l'aide de la fonction Split, je t'invite à regarder sa syntaxe dans l'aide.

La virgule étant un séparateur, cela te permet de récupérer les deux données et des les intégrées dans les champs correspondants.

Tu trouveras sur le forum de nombreux exemples avec la fonction Split.

Starec

[Jonkill]

ok, merci je vais voir ce que je peux faire avec Split

merci encore

[Jonkill]

Comme prévu j'obtiens une erreur d'exécution 3346 sur la ligne DoCmd...
Pourriez-vous m'indiquer si j'y suis presque ou si j'ai loupé l'utilisation d'un recordset comme je l'ai vu ici ?

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

merci

[Jonkill]

j'ai vraiment besoin d'aide sur ce coup là ! j'ai encore plein d'autres défis et je perds trop de temps sur celui là

[Jonkill]

Vous savez, ce n'est pas parce que vous pourriez m'aider un peu plus que je vais devenir moins bon, je perds juste des crédits "boule de cristal"