Discussion :

[zermatt]

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

[Heureux-oli]

Tu peux le faire avec une requête action.

[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

[Heureux-oli]

Exact, ma langue à fourché et mes doigts on glissés.

[zermatt]

Merci, je sais ce qu'il me reste à faire... ce sera long

[Maxence HUBICHE]

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

Tu veux un exemple ?

[Faw]

A ta disposition aussi la faq DAO
http://warin.developpez.com/access/dao/
Objet Tabledef (Chapitre 4)

[zermatt]

Merci beaucoup.

[zermatt]

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 :

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

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