Modifier le nom d'un champ dans une table

**Daniel MOREAU** · 09/03/2016, 16h18

Bonjour à tous,

j'aimerai pouvoir changer le nom d'un champ dans une table que j'importe avec l'outil d'importation.

Certains noms importés doivent être changés comme par exemple un champ nommé "Prix public H#T# Euros" en "PrixPublicHT"

j'ai utilisé le code mis à disposition sur le forum, malheureusement ça ne fonctionne pas.

Je ne comprends pas la raison. Pouvez-vous m'aider ?

Voici le code :

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
Function RenommerChamp(PTable As String, POld As String, PNew As String)
On Error GoTo err:
Dim db As DAO.Database
Dim VTable As DAO.TableDef
Dim VField As DAO.Field
 
Set db = CurrentDb
Set VTable = db.TableDefs(PTable)
 
Set VField = VTable.Fields(POld)
 
VField.Name = PNew
 
Set VField = Nothing
Set VTable = Nothing
 
Exit Function
err:
MsgBox "L\'action  renommer le champ a échoué"
End Function

Merci

**madefemere** · 09/03/2016, 20h03

Bonsoir,

Qu'est ce que tu entends par "ne fonctionne pas" ?
Parce que j'ai essayé le code et ça change bien les noms des champs.

Cordialement,

**Zekraoui_Jakani** · 10/03/2016, 07h59

tu peux essayer également:

Code :

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

CurrentDb().TableDefs(nomDeTable).Fields(NomDeChamps).Name = "NouveauNom"

**Daniel MOREAU** · 11/03/2016, 16h27

Merci pour vos réponses,

J'ai trouvé la raison pour laquelle, je ne pouvais pas modifier le nom des champs de la table (tout simplement parce dans le code la table était déjà ouverte).

En revanche, pouvez-vous me dire pourquoi je ne peux pas modifier un champ

Nommé

Designation longue

par

Designationlongue

soit sans 'espace'

Merci pour votre retour.

Daniel