OVH Cloud OVH Cloud

OrdinalPosition

1 réponse
Avatar
lou
bonjour

j'essai de changer l'ordre de mes colonnes avec ce code
mais ça ne bouge pas rien ne se passe

quelqun peut m'aider ou est l'erreur?

MERCI DE VOTRE AIDE


Private Sub cmdDefault_Click()
Dim Db As Database
Dim tdf As TableDef

Set Db = CurrentDb()
Set tdf = Db.TableDefs("Clients")
tdf.Fields("Courtier").OrdinalPosition = 1
tdf.Fields.Refresh

Set tdf = Nothing
Db.Close

End Sub

1 réponse

Avatar
Raymond [mvp]
Bonjour.

Dans le cas d'un champ qui n'a pas encore été ajouté à la collection Fields,
cette propriété est en lecture/écriture sinon elle est en lecture seulement.
Ce qui veut dire que dans ton exemple tu ne peux pas changer l'ordre des
champs.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de
news:40f540e8$0$381$
bonjour

j'essai de changer l'ordre de mes colonnes avec ce code
mais ça ne bouge pas rien ne se passe

quelqun peut m'aider ou est l'erreur?

MERCI DE VOTRE AIDE


Private Sub cmdDefault_Click()
Dim Db As Database
Dim tdf As TableDef

Set Db = CurrentDb()
Set tdf = Db.TableDefs("Clients")
tdf.Fields("Courtier").OrdinalPosition = 1
tdf.Fields.Refresh

Set tdf = Nothing
Db.Close

End Sub