Changement de nom d'une colonne

**mercadierpf** · 13/06/2014, 09h06

Bonjour,

je n'arrive pas à trouver comment changer le nom d'une colonne dans une table
Une idée ?

Merci d'avance

Philippe F.

**mercadierpf** · 13/06/2014, 09h10

j'avais oublié de mentionner l'essentiel !!!!

c'est dans une requête sql.

Je n'ai vu que ces exemples
Alter table table_name

Alter Column col_name datatype|not null ;

merci

**PipoWIL** · 13/06/2014, 15h56

Bonjour,
Par le passé, j'ai déjà essayé ceci

Code :

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

DoCmd.RunSQL "ALTER TABLE [MaTable] RENAME COLUMN [Taille] to [petit]"

mais cela ne fonctionne pas.

Deux propositions :
Une solution simple c'est de faire une requete de création qui va te créer une nouvelle table où tu crées la colonne avec un nouveau nom

Code :

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

1
2
3
Application.CurrentDb.Execute "SELECT Table1.ID, Table1.Nom AS NouvNom, Table1.field3, Table1.field4 INTO NouvTable1
FROM Table1;
"

où tu as repris tous tes champs et l'ancien champ 'Nom' devient 'NouvNom'.

Une autre solution consiste à utiliser du code VBA (DAO / Table Definition) pour changer le nom de colonne.

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
Function Changer_Nom_Champ()
Dim tdf As TableDef
Dim oF As Object
 
For Each tdf In CurrentDb.TableDefs
    Debug.Print tdf.Name
    If tdf.Name = "Table1" Then
        'Je parcours la liste des champs de la Table1
        For Each oF In tdf.Fields
            Debug.Print oF.Name
            If oF.Name = "Nom" Then
                'changer le nom
                oF.Name = "NouvNom"
                Exit For
            End If
        Next oF
    End If
Next tdf
End Function