Discussion :

[jmde]

Bonsoir,

Est-ce posible de modifier par code le non d'un champ d'une table liée

Si oui comment ?

Merci pour votre aide.

Salutations

[ClaudeLELOUP]

Bonjour jmde,

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
Public Sub ModifNomChamp()
Dim db As Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field
'se positionner dans la db dorsale
Set db = OpenDatabase("C:\...\Dorsale.mdb")
'se positionner sur la table
Set tbl = db.TableDefs("LeNomDelaTable")
'se positionner sur le champ
Set fld = tbl.Fields("LeNomActuelDuChamp")
'changer le nom
fld.Name = ("LeNouveauNomDuChamp")
'pour faire propre
Set db = Nothing
Set tbl = Nothing
Set fld = Nothing
End Sub