Modification Champ Multi valué

Bonjour,

J'essaie de modifier un champ Multi valué à l'aide de VBA...sans succès

Pour celà j'utilise la méthode proposée par Tofalu sur son article concernant justement les champs multi-valué à savoir que :

J'ai deux tables liées de la facon suivante :

Machines 1 -------- oo Planning

La table machine alimente une zone de liste sur un champ multi-valué

J'ai de nombreuses fonctions VBA agissant sur Planning et j'aimerais en faire une me permettant de modifier la valeur du champs multi-valué

J'ai donc écrit, afin de procéder à un test :

Code:

---

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

Dim Mvrst as Dao.Recordset, Planningrst as Dao.Recordset   Set Planningrst= Currentdb.OpenRecordset ("SELECT * FROM Planning " & _ "WHERE (((Planning.IdRoue) = " & 25 & ") AND ((Planning.[N° Etape])= " & 2 & "))")   With Planningrst If Not .EOF Then Set mvrst = .Fields("Machine") = 2 With mvrst .AddNew .Fields(0) .Update End with Else Msgbox(" ca marche pas") End if End With

---

A l'éxécution de ce code, j'obtiens une erreur que je ne comprends pas...

"Impossible de mettre à jour un champs à plusieurs valeurs si le jeu d'enregistrement parent n'est pas accessible en mode Modification.
Pour ce faire, utilisez la méthode AddNew ou Edit."

Quelqu'un pourrait-il m'éclairer sur ce qu'il se passe??

Merci d'avance

Bonjour,

Un document plus complet est en cours de rédaction, je vous livre le passage concernant les champs à valeur multiples (à noter qu'aucune relecture n'a été réalisée)

Citation:

---

L’ajout d’une nouvelle valeur dans un champ en acceptant plusieurs valeurs pour un enregistrement donné doit d’abord être vu comme la mise à jour de ce premier enregistrement. Il s’agit donc dans un premier temps d’éditer celui-ci dans le recordset principal, puis ensuite d’ajouter l’élément dans le sous recordset.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

'--------------------------------------------------------------- ' Procedure : ExempleAjoutChampMutliple ' Author : Christophe WARIN - Tofalu - www.developpez.com ' Date : 11/04/2010 ' Purpose : Exemple d'ajout dans un champ à valeurs multiples. '--------------------------------------------------------------- ' Sub ExempleAjoutChampMutliple() Dim oDb As DAO.Database Dim oRst As DAO.Recordset Dim oRst2 As DAO.Recordset2 Set oDb = CurrentDb Set oRst = oDb.TableDefs("tblClient").OpenRecordset(dbOpenDynaset) With oRst .FindFirst ("idclient=2") If Not .NoMatch Then .Edit Set oRst2 = .Fields("StatutClient").Value With oRst2 .AddNew .Fields("Value").Value = 4 .Update End With oRst2.Close: Set oRst2 = Nothing .Update End If End With oRst.Close: Set oRst = Nothing End Sub

---

En cas d’oubli de l’appel à la méthode Edit du Recordset principal, l’erreur levée par VBA est assez explicite : 3852 Impossible de mettre à jour un champ à plusieurs valeurs si le jeu d'enregistrements parent n'est pas accessible en mode Modification. Pour ce faire, utilisez la méthode AddNew ou Edit.

Une même valeur ne pouvant être renseignée deux fois dans un même champ, une erreur 3820 sera générée pour toute tentative de doublonnage : Vous ne pouvez pas entrer cette valeur, car elle duplique une valeur existante dans le champ Liste de choix à plusieurs valeurs ou dans le champ Pièce jointe. Le champ Liste de choix à plusieurs valeurs ou le champ Pièce jointe ne peuvent pas contenir de valeurs dupliquées.

Si jusque-là, Visual Basic semble garantir l’intégrité des données, ce n’est toutefois plus le cas dès qu’il s’agit d’intégrer des valeurs absentes de la source de données. En d’autres termes, bien qu’il existe une propriété Limiter à Liste pour un champ multivalués, DAO n’en tient pas compte et autorise l’insertion de données farfelues. Ainsi, bien que notre table tblStatut possède des idStatut de 1 à 4, le code suivant ne lève aucune erreur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

'--------------------------------------------------------------- ' Procedure : ExempleAjoutChampMutliple ' Author : Christophe WARIN - Tofalu - www.developpez.com ' Date : 11/04/2010 ' Purpose : Exemple d'ajout dans un champ à valeurs multiples. '--------------------------------------------------------------- ' Sub ExempleAjoutChampMutliple() Dim oDb As DAO.Database Dim oRst As DAO.Recordset Dim oRst2 As DAO.Recordset2 Set oDb = CurrentDb Set oRst = oDb.TableDefs("tblClient").OpenRecordset(dbOpenDynaset) With oRst .FindFirst ("idclient=2") If Not .NoMatch Then .Edit Set oRst2 = .Fields("StatutClient").Value With oRst2 .AddNew 'Insertion d'une donnée inexistante .Fields("Value").Value = 499 .Update End With oRst2.Close: Set oRst2 = Nothing .Update End If End With oRst.Close: Set oRst = Nothing End Sub

---

---

Merci beaucoup pour cette réponse!!!
Il est vrai que cela paraissait explicite :oops:


Après plusieurs essais, j'ai quelque chose qui semble bien marcher :)

Voici le code que j'utilise pour ceux que celà pourrait intéresser :

J'ai un champ à valeurs multiples "Machines" dans une table "Planning"

Code:

---

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

Private Sub Planifier_Click()   Dim Mvrst as Dao.Recordset Dim Planningrst as Dao.Recordset   Set Planningrst = Currentdb.Openrecordset("SELECT * FROM Planning WHERE (((Planning.IdRoue) = " & Me.IdRoue & ") AND ((Planning.[N° Etape]) = " & 2 & " )") 'Avec le select je selectionne 1 seul enregistrement afin de faire le test With Planningrst Planningrst.Edit Set Mvrst = Planningrst.Fields("Machine").Value With Mvrst Mvrst.Addnew Mvrst.Fields(0) = "2" Mvrst.Update End With Mvrst.Close Planningrst.Update End With Planningrst.Close End Sub

---