Renseigner un champ Liste de choix dans Access depuis Excel 2010
Bonjour
J'utilise le code suivant depuis Excel 2010 pour compléter une base Access avec des données saisies dans Excel.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("filePath\mabase.accdb")
Set rs = db.OpenRecordset("matable", dbOpenTable)
With rs
.AddNew
.Fields("Ville") = "Paris"
.Update
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing |
Je voudrais utiliser la nouveauté des listes de choix d'Access et avoir quelque chose qui ressemble à ça :
Code:
1
2
|
.Fields("Ville") = "Paris" & "Rouen" & "Lyon" |
Pouvez m'aider à le coder correctement ?
par avance merci !
Polemos
