Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere [MVP]
Bonjour
Si tu veux la liste des tes champs dans l'ordre, tu peux utiliser cette petite fonction :
*************************************************** Public Function LstFldTbl(strTable As String)
Dim db As Database Dim tdf As TableDef Dim fld As Field Dim Result() As String Dim intField As Integer
Set db = CurrentDb Set tdf = db.TableDefs(strTable) ReDim Result(tdf.Fields.Count) For Each fld In tdf.Fields intField = intField + 1 Result(intField) = fld.name Next Set tdf = Nothing db.Close: Set db = Nothing
End Function ***************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "lou" a écrit dans le message news: 40f37d00$0$31485$
bonjour
je cherche a connaitre l'ordre des colonnes d'une table
merci
Bonjour
Si tu veux la liste des tes champs dans l'ordre, tu peux utiliser cette
petite fonction :
***************************************************
Public Function LstFldTbl(strTable As String)
Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Dim Result() As String
Dim intField As Integer
Set db = CurrentDb
Set tdf = db.TableDefs(strTable)
ReDim Result(tdf.Fields.Count)
For Each fld In tdf.Fields
intField = intField + 1
Result(intField) = fld.name
Next
Set tdf = Nothing
db.Close: Set db = Nothing
End Function
***************************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"lou" <bs600827@skynet.be> a écrit dans le message news:
40f37d00$0$31485$a0ced6e1@news.skynet.be...
bonjour
je cherche a connaitre l'ordre des colonnes d'une table
Si tu veux la liste des tes champs dans l'ordre, tu peux utiliser cette petite fonction :
*************************************************** Public Function LstFldTbl(strTable As String)
Dim db As Database Dim tdf As TableDef Dim fld As Field Dim Result() As String Dim intField As Integer
Set db = CurrentDb Set tdf = db.TableDefs(strTable) ReDim Result(tdf.Fields.Count) For Each fld In tdf.Fields intField = intField + 1 Result(intField) = fld.name Next Set tdf = Nothing db.Close: Set db = Nothing
End Function ***************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "lou" a écrit dans le message news: 40f37d00$0$31485$
bonjour
je cherche a connaitre l'ordre des colonnes d'une table
merci
lou
merci jessy mais ce que je cherche a faire c'est de changer l'ordre des colonnes selon le besoin du moment et je ne sais pas a l'avance
comment faire c'est pourquoi je pensais a l'index des champs(colonnes) tu peux m'aider ?
"Jessy Sempere [MVP]" a écrit dans le message de news: cd00nb$3pl$
Bonjour
Si tu veux la liste des tes champs dans l'ordre, tu peux utiliser cette petite fonction :
*************************************************** Public Function LstFldTbl(strTable As String)
Dim db As Database Dim tdf As TableDef Dim fld As Field Dim Result() As String Dim intField As Integer
Set db = CurrentDb Set tdf = db.TableDefs(strTable) ReDim Result(tdf.Fields.Count) For Each fld In tdf.Fields intField = intField + 1 Result(intField) = fld.name Next Set tdf = Nothing db.Close: Set db = Nothing
End Function ***************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "lou" a écrit dans le message news: 40f37d00$0$31485$
bonjour
je cherche a connaitre l'ordre des colonnes d'une table
merci
merci jessy
mais ce que je cherche a faire
c'est de changer l'ordre des colonnes selon le besoin du moment et je ne
sais pas a l'avance
comment faire c'est pourquoi je pensais a l'index
des champs(colonnes)
tu peux m'aider ?
"Jessy Sempere [MVP]" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news: cd00nb$3pl$1@muguet.sncf.fr...
Bonjour
Si tu veux la liste des tes champs dans l'ordre, tu peux utiliser cette
petite fonction :
***************************************************
Public Function LstFldTbl(strTable As String)
Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Dim Result() As String
Dim intField As Integer
Set db = CurrentDb
Set tdf = db.TableDefs(strTable)
ReDim Result(tdf.Fields.Count)
For Each fld In tdf.Fields
intField = intField + 1
Result(intField) = fld.name
Next
Set tdf = Nothing
db.Close: Set db = Nothing
End Function
***************************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"lou" <bs600827@skynet.be> a écrit dans le message news:
40f37d00$0$31485$a0ced6e1@news.skynet.be...
bonjour
je cherche a connaitre l'ordre des colonnes d'une table
merci jessy mais ce que je cherche a faire c'est de changer l'ordre des colonnes selon le besoin du moment et je ne sais pas a l'avance
comment faire c'est pourquoi je pensais a l'index des champs(colonnes) tu peux m'aider ?
"Jessy Sempere [MVP]" a écrit dans le message de news: cd00nb$3pl$
Bonjour
Si tu veux la liste des tes champs dans l'ordre, tu peux utiliser cette petite fonction :
*************************************************** Public Function LstFldTbl(strTable As String)
Dim db As Database Dim tdf As TableDef Dim fld As Field Dim Result() As String Dim intField As Integer
Set db = CurrentDb Set tdf = db.TableDefs(strTable) ReDim Result(tdf.Fields.Count) For Each fld In tdf.Fields intField = intField + 1 Result(intField) = fld.name Next Set tdf = Nothing db.Close: Set db = Nothing
End Function ***************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "lou" a écrit dans le message news: 40f37d00$0$31485$
bonjour
je cherche a connaitre l'ordre des colonnes d'une table
merci
Jessy Sempere [MVP]
Bonjour
Je n'ai pas de procédure approprié mais pour faire ce que tu souhaites, tu dois regarder du côté de la propriété "OrdinalPosition" de chaque objet Field de ta table, regardes l'aide en ligne et tu en seras plus...
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "lou" a écrit dans le message news: 40f38be3$0$1252$
merci jessy mais ce que je cherche a faire c'est de changer l'ordre des colonnes selon le besoin du moment et je ne sais pas a l'avance
comment faire c'est pourquoi je pensais a l'index des champs(colonnes) tu peux m'aider ?
"Jessy Sempere [MVP]" a écrit dans le message de news: cd00nb$3pl$
Bonjour
Si tu veux la liste des tes champs dans l'ordre, tu peux utiliser cette petite fonction :
*************************************************** Public Function LstFldTbl(strTable As String)
Dim db As Database Dim tdf As TableDef Dim fld As Field Dim Result() As String Dim intField As Integer
Set db = CurrentDb Set tdf = db.TableDefs(strTable) ReDim Result(tdf.Fields.Count) For Each fld In tdf.Fields intField = intField + 1 Result(intField) = fld.name Next Set tdf = Nothing db.Close: Set db = Nothing
End Function ***************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "lou" a écrit dans le message news: 40f37d00$0$31485$
bonjour
je cherche a connaitre l'ordre des colonnes d'une table
merci
Bonjour
Je n'ai pas de procédure approprié mais pour faire ce que tu souhaites,
tu dois regarder du côté de la propriété "OrdinalPosition" de chaque
objet Field de ta table, regardes l'aide en ligne et tu en seras plus...
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"lou" <bs600827@skynet.be> a écrit dans le message news:
40f38be3$0$1252$a0ced6e1@news.skynet.be...
merci jessy
mais ce que je cherche a faire
c'est de changer l'ordre des colonnes selon le besoin du moment et je ne
sais pas a l'avance
comment faire c'est pourquoi je pensais a l'index
des champs(colonnes)
tu peux m'aider ?
"Jessy Sempere [MVP]" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news: cd00nb$3pl$1@muguet.sncf.fr...
Bonjour
Si tu veux la liste des tes champs dans l'ordre, tu peux utiliser cette
petite fonction :
***************************************************
Public Function LstFldTbl(strTable As String)
Dim db As Database
Dim tdf As TableDef
Dim fld As Field
Dim Result() As String
Dim intField As Integer
Set db = CurrentDb
Set tdf = db.TableDefs(strTable)
ReDim Result(tdf.Fields.Count)
For Each fld In tdf.Fields
intField = intField + 1
Result(intField) = fld.name
Next
Set tdf = Nothing
db.Close: Set db = Nothing
End Function
***************************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"lou" <bs600827@skynet.be> a écrit dans le message news:
40f37d00$0$31485$a0ced6e1@news.skynet.be...
bonjour
je cherche a connaitre l'ordre des colonnes d'une table
Je n'ai pas de procédure approprié mais pour faire ce que tu souhaites, tu dois regarder du côté de la propriété "OrdinalPosition" de chaque objet Field de ta table, regardes l'aide en ligne et tu en seras plus...
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "lou" a écrit dans le message news: 40f38be3$0$1252$
merci jessy mais ce que je cherche a faire c'est de changer l'ordre des colonnes selon le besoin du moment et je ne sais pas a l'avance
comment faire c'est pourquoi je pensais a l'index des champs(colonnes) tu peux m'aider ?
"Jessy Sempere [MVP]" a écrit dans le message de news: cd00nb$3pl$
Bonjour
Si tu veux la liste des tes champs dans l'ordre, tu peux utiliser cette petite fonction :
*************************************************** Public Function LstFldTbl(strTable As String)
Dim db As Database Dim tdf As TableDef Dim fld As Field Dim Result() As String Dim intField As Integer
Set db = CurrentDb Set tdf = db.TableDefs(strTable) ReDim Result(tdf.Fields.Count) For Each fld In tdf.Fields intField = intField + 1 Result(intField) = fld.name Next Set tdf = Nothing db.Close: Set db = Nothing
End Function ***************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "lou" a écrit dans le message news: 40f37d00$0$31485$
bonjour
je cherche a connaitre l'ordre des colonnes d'une table
