Discussion :

[myrddin99]

Bonjour,

J'essaie d'enregistrer le nom des colonnes d'une table dans une autre table Access.

J'ai donc le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim BDC As DAO.Database
Dim TableC As DAO.TableDef
Dim colonneC As DAO.Field
Set BDC = CurrentDb()
Set colonneC = BDactuelle("Q2")
For Each colonneC In tableC.Fields
Liste57 = colonneC.Name
DoCmd.RunSQL "insert into colonne (nom) values (liste57) "
Next colonneC
Set colonneC = Nothing
Set TableC = Nothing
Set BDactuelle = Nothing

Ce qui fonctionne. Mais pour y arriver, je renvoie la valeur de chaque colonne dans une zone de liste pour la réattribuer dans la nouvelle table. Je met la propriété de la zone de liste sur invisible mais quand même...

Je ne suis pas certain comment interpréter le type DAO.field. Est-ce qu'il y a un moyen de transposer le nom de la colonne en texte sans passer par une liste?

Merci

[Invité]

Bonjour

Remplace ta liste par une variable de type String.


Philippe