Modifier la structure d'une table par macro / vba

Version imprimable

11/01/2007, 21h41
zermatt

Modifier la structure d'une table par macro / vba

Bonjour,
Est-il possible de modifier par le biais d'une macro ou mieux j'imagine par le vba la structure d'une table. Par exemple ajouter ou supprimer un champ, modifier ses caractéristiques.

Le but est de faire de la maintenance à distance en envoyant à l'utilisateur une mise à jour qui modifiera ses formulaires et etats suivant ses besoins (ça je sais faire) mais aussi les tables si nécessaire (idem pour les requêtes j'imagine).

Merci par avance
11/01/2007, 22h43
Heureux-oli

Tu peux le faire avec une requête action.
12/01/2007, 02h05
Maxence HUBICHE

oups !

Je présume qu'heureux-Oli voulait parler des requêtes DDL et pas des requêtes Action.

En efeft, en SQL, tu as tout un tas de clauses qui te permettent d'intervenir sur la structure d'une table :
CREATE ...
ALTER ...
DROP...
etc.
etc.

Puisqu'il s'agit de SQL, tu peux, soit créer ces requêtes et les exécuter, soit exécuter directement le SQL depuis le VBA.

Enfin, pour ce qui est de modifier une requête, rien de plus facile : il te suffit de modifier la propriété SQL de l'objet QueryDef que tu veux, en y mettant le SQL voulu.

voili ;)
12/01/2007, 07h01
Heureux-oli

Exact, ma langue à fourché et mes doigts on glissés.
12/01/2007, 18h39
zermatt

Merci, je sais ce qu'il me reste à faire... ce sera long :?
12/01/2007, 18h41
Maxence HUBICHE

Mais non pas long !
C'est très simple !

Tu veux un exemple ?
12/01/2007, 18h44
Faw

A ta disposition aussi la faq DAO
http://warin.developpez.com/access/dao/
Objet Tabledef (Chapitre 4)
14/01/2007, 15h05
zermatt

Merci beaucoup.

Je me permets d'ajouter une réponse "toute faite" à ma question initiale pour ajouter un champ dans une table... ce qui n'empêche pas d'apprendre le DAO naturellement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Public Function FieldsAdd()
    Dim Db As DAO.Database
    Dim Tbl As DAO.TableDef
    Dim fld As DAO.Field
    Dim Idx As DAO.Index
 
    Set Db = CurrentDb() ' Ouverture base de données
    Set Tbl = Db.TableDefs("NouvelleTable")  'ouverture définitions tables
 
    Set fld = Tbl.CreateField("Ville", dbText)
    fld.OrdinalPosition = 3                             'champ position 3
    fld.Size = 50                                      'taille 50 caractères
    fld.Required = True                                 'valeur nulle interdite
    fld.AllowZeroLength = False                         'chaine vide autorisée
 
    Tbl.Fields.Append fld                           'ajout du champ dans la table
    Set Idx = Tbl.CreateIndex("Ville")              'création d'un index
    Idx.Primary = False
    Idx.Required = True
    Idx.Unique = False                                   ' avec doublons
    Set fld = Idx.CreateField("Ville")                   'définition du champ qui sert d'index
    Idx.Fields.Append fld                               'ajout du champ dans l'index
    Tbl.Indexes.Append Idx                          'ajout de l'index dans la table
 
End Function

et pour le type de champ
dbBoolean = "Oui/Non"
dbByte = "Octet"
dbInteger = "Entier"
dbLong = "Entier long"
dbCurrency = "Monétaire"
dbSingle = "Réel S"
dbDouble = "Réel D"
dbDate = "Date"
dbBinary = "Binaire"
dbText, dbChar = "Texte"
dbLongBinary, dbVarBinary = "Binaire 2"
dbMemo = "Mémo"
dbGUID = "GUID"
dbBigInt = "Numérique HP"
dbNumeric = "Numérique"
dbDecimal = "Décimal"
dbFloat = "Flottant"
dbTime, dbTimeStamp = "Heure"

en espérant que cela puisse vous aider aussi