Bonjour
J'essai depuis plusieurs jours de modifier ce code pour l'adapter avec un split
"code qui fonctionne"
Code :
- Private Sub Participants_NotInList(NewData As String, Response As Integer)
- If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des prénoms ?", _
- vbYesNo + vbQuestion + vbDefaultButton2, "Ajout" ) = vbYes Then
- DoCmd.RunSQL "INSERT INTO tblPrenoms ( Prénom ) SELECT """ & NewData & """;"
- Response = acDataErrAdded
- Else
- Response = acDataErrContinue
- Participants.Undo
- End If
- End Sub
|
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
Code :
- Private Sub Participants_NotInList(NewData As String, Response As Integer)
- Dim tp As Variant
- If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des Participants ?", _
- vbYesNo + vbQuestion + vbDefaultButton2, "Ajout" ) = vbYes Then
- tp = Split(NewData, "," )
- DoCmd.RunSQL "Insert into Participants ( Nom, Prenom ) Values(" & Nom & ", " & Prenom & """ )"
- Response = acDataErrAdded
- Else
- Response = acDataErrContinue
- Particpants.Undo
- End If
- End Sub
|
à 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