Bonjour
J'utilise le code suivant depuis Excel 2010 pour compléter une base Access avec des données saisies dans Excel.
Je voudrais utiliser la nouveauté des listes de choix d'Access et avoir quelque chose qui ressemble à ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Pouvez m'aider à le coder correctement ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 .Fields("Ville") = "Paris" & "Rouen" & "Lyon"
par avance merci !
Polemos
Partager