champs multi values VBA

exemple de manipulation en VBA

dans cet exemple, on duplique un enregistrement d'une table dans cette meme table, l'un des champs est multivalué (le n° 6)

Private Sub valideRDV(i As Integer, rep As Integer)

Dim mabase As Database

Dim marec As DAO.Recordset

Dim monrep As DAO.Recordset

Dim mespos As DAO.Recordset

Dim mesposrep As DAO.Recordset

Set mabase = CurrentDb

Set monrep = mabase.OpenRecordset("select * from T_Rendezvous where NR=" & rep, dbOpenSnapshot)

Do While Not monrep.EOF

Set marec = mabase.OpenRecordset("T_RendezVous", dbOpenDynaset)

With marec

.AddNew

.Fields(1) = monrep(1) + i

.Fields(2) = monrep(2) + i

Dim cnti As Integer

For cnti = 3 To 5

.Fields(cnti) = monrep(cnti)

Next cnti

Set mespos = .Fields(6).Value

Set mesposrep = monrep(6).Value

Do While Not mesposrep.EOF

With mespos

.AddNew

.Fields(0).Value = mesposrep(0)

.Update

End With

mesposrep.MoveNext

Loop

.Update

End With

monrep.MoveNext

Loop

'Set mespos = Nothing

Set marec = Nothing

Set monrep = Nothing

Set mabase = Nothing

End Sub