Discussion :

[SueSunny]

Bonjour,

Je développe un programme et souvent j'ai le besoin d'ajouter un nouveau champ dans la dorsale. Actuellement je dois ouvrir la table dorsale et ajouter mon champ, ensuite je fais la mise à jour du champ avec une requête. Mais y a t'il une façon automatique d'ajouter un champ à une dorsale? Ceci m'éviterait d'ouvrir la table et même qu'avec un exécutable je pourrais envoyer au client l'outil pour le faire.

Merci à l'avance
Suzanne

[Invité]

Bonjour

Le fait d'ajouter un nouveau champ régulièrement dans une table dénote un problème de conception.

Donc il faudrait revoir celle-ci en priorité.

Philippe

[loufab]

Au delà de la remarque de philippe voici du code à adapter.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim dbe As DBEngine
Dim db As Database
Dim tdb As TableDef
Dim newfield As Field
 
Set dbe = New DBEngine
Set db = dbe.OpenDatabase("d:\test\test.accdb", , , dbUseJet)
Set tdb = db.TableDefs("Table1")
Set newfield = tdb.CreateField("ChampY", dbInteger)
 
tdb.Fields.Append newfield
...

Cordialement,