Bonjour,
Dans Access 2002 - Module, je peux récupérer le nom du champs, son type et ses
propriétés.
FieldList = ""
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Set Db = CurrentDb
Set Tbl = Db.TableDefs(NomTable)
For Each Fld In Tbl.Fields
FieldList = FieldList & Fld.Name & ";"
Next
Set Fld = Nothing
Set Tbl = Nothing
Set Db = Nothing
J'aimerais maintenant récupérer la valeur Description des champs d'une table
mais j'ai pas trouvé.
Quelqu'un saurait comment faire ?
--------------------------------------------------------
Luc
>>lugi38@>>hotmail.com
(retirer les ">>" pour me contacter)
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
Raymond [mvp]
Bonjour.
La propriété Fld.description n'existe pas il faut indiquer Fld.Properties("Description") . la propriété description existe pour autant qu'elle contienne une valeur et elle est en lecture seule donc impossible de la charger par vba. Si la description n'existe pas , une erreur est déclenchée, donc mettre impérativement un On Error resume next devant. On Error Resume Next For Each Fld In Tbl.Fields FieldList = FieldList & Fld.Name & ";" FieldList = FieldList & Fld.Properties("Description") & ";" Next tu vas avoir un décalage pour les champs sans description. il faut tester l'erreur et si erreur rajouter FieldList = FieldList & ";"
-- @+ 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
"lugi38" a écrit dans le message de news:
Bonjour, Dans Access 2002 - Module, je peux récupérer le nom du champs, son type et ses
propriétés. FieldList = "" Dim Db As DAO.Database Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Set Db = CurrentDb Set Tbl = Db.TableDefs(NomTable) For Each Fld In Tbl.Fields FieldList = FieldList & Fld.Name & ";" Next Set Fld = Nothing Set Tbl = Nothing Set Db = Nothing
J'aimerais maintenant récupérer la valeur Description des champs d'une table
mais j'ai pas trouvé. Quelqu'un saurait comment faire ?
lugi38@>>hotmail.com (retirer les ">>" pour me contacter)
Bonjour.
La propriété Fld.description n'existe pas il faut indiquer
Fld.Properties("Description") . la propriété description existe pour autant
qu'elle contienne une valeur et elle est en lecture seule donc impossible de
la charger par vba. Si la description n'existe pas , une erreur est
déclenchée, donc mettre impérativement un On Error resume next devant.
On Error Resume Next
For Each Fld In Tbl.Fields
FieldList = FieldList & Fld.Name & ";"
FieldList = FieldList & Fld.Properties("Description") & ";"
Next
tu vas avoir un décalage pour les champs sans description. il faut tester
l'erreur et si erreur rajouter FieldList = FieldList & ";"
--
@+
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
"lugi38" <lugi38@hotmail.com> a écrit dans le message de
news:elqr96IfEHA.384@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans Access 2002 - Module, je peux récupérer le nom du champs, son type et
ses
propriétés.
FieldList = ""
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Set Db = CurrentDb
Set Tbl = Db.TableDefs(NomTable)
For Each Fld In Tbl.Fields
FieldList = FieldList & Fld.Name & ";"
Next
Set Fld = Nothing
Set Tbl = Nothing
Set Db = Nothing
J'aimerais maintenant récupérer la valeur Description des champs d'une
table
mais j'ai pas trouvé.
Quelqu'un saurait comment faire ?
La propriété Fld.description n'existe pas il faut indiquer Fld.Properties("Description") . la propriété description existe pour autant qu'elle contienne une valeur et elle est en lecture seule donc impossible de la charger par vba. Si la description n'existe pas , une erreur est déclenchée, donc mettre impérativement un On Error resume next devant. On Error Resume Next For Each Fld In Tbl.Fields FieldList = FieldList & Fld.Name & ";" FieldList = FieldList & Fld.Properties("Description") & ";" Next tu vas avoir un décalage pour les champs sans description. il faut tester l'erreur et si erreur rajouter FieldList = FieldList & ";"
-- @+ 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
"lugi38" a écrit dans le message de news:
Bonjour, Dans Access 2002 - Module, je peux récupérer le nom du champs, son type et ses
propriétés. FieldList = "" Dim Db As DAO.Database Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Set Db = CurrentDb Set Tbl = Db.TableDefs(NomTable) For Each Fld In Tbl.Fields FieldList = FieldList & Fld.Name & ";" Next Set Fld = Nothing Set Tbl = Nothing Set Db = Nothing
J'aimerais maintenant récupérer la valeur Description des champs d'une table
mais j'ai pas trouvé. Quelqu'un saurait comment faire ?
lugi38@>>hotmail.com (retirer les ">>" pour me contacter)
"Raymond [mvp]" a écrit dans le message de news: Bonjour.
La propriété Fld.description n'existe pas il faut indiquer Fld.Properties("Description") . la propriété description existe pour autant qu'elle contienne une valeur et elle est en lecture seule donc impossible de la charger par vba. Si la description n'existe pas , une erreur est déclenchée, donc mettre impérativement un On Error resume next devant. On Error Resume Next For Each Fld In Tbl.Fields FieldList = FieldList & Fld.Name & ";" FieldList = FieldList & Fld.Properties("Description") & ";" Next tu vas avoir un décalage pour les champs sans description. il faut tester l'erreur et si erreur rajouter FieldList = FieldList & ";"
-- @+ 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
"lugi38" a écrit dans le message de news:
Bonjour, Dans Access 2002 - Module, je peux récupérer le nom du champs, son type et ses
propriétés. FieldList = "" Dim Db As DAO.Database Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Set Db = CurrentDb Set Tbl = Db.TableDefs(NomTable) For Each Fld In Tbl.Fields FieldList = FieldList & Fld.Name & ";" Next Set Fld = Nothing Set Tbl = Nothing Set Db = Nothing
J'aimerais maintenant récupérer la valeur Description des champs d'une table
mais j'ai pas trouvé. Quelqu'un saurait comment faire ?
lugi38@>>hotmail.com
(retirer les ">>" pour me contacter)
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:umVtTYJfEHA.1692@tk2msftngp13.phx.gbl...
Bonjour.
La propriété Fld.description n'existe pas il faut indiquer
Fld.Properties("Description") . la propriété description existe pour autant
qu'elle contienne une valeur et elle est en lecture seule donc impossible de
la charger par vba. Si la description n'existe pas , une erreur est
déclenchée, donc mettre impérativement un On Error resume next devant.
On Error Resume Next
For Each Fld In Tbl.Fields
FieldList = FieldList & Fld.Name & ";"
FieldList = FieldList & Fld.Properties("Description") & ";"
Next
tu vas avoir un décalage pour les champs sans description. il faut tester
l'erreur et si erreur rajouter FieldList = FieldList & ";"
--
@+
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
"lugi38" <lugi38@hotmail.com> a écrit dans le message de
news:elqr96IfEHA.384@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans Access 2002 - Module, je peux récupérer le nom du champs, son type et
ses
propriétés.
FieldList = ""
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim Fld As DAO.Field
Set Db = CurrentDb
Set Tbl = Db.TableDefs(NomTable)
For Each Fld In Tbl.Fields
FieldList = FieldList & Fld.Name & ";"
Next
Set Fld = Nothing
Set Tbl = Nothing
Set Db = Nothing
J'aimerais maintenant récupérer la valeur Description des champs d'une
table
mais j'ai pas trouvé.
Quelqu'un saurait comment faire ?
lugi38@>>hotmail.com (retirer les ">>" pour me contacter)
"Raymond [mvp]" a écrit dans le message de news: Bonjour.
La propriété Fld.description n'existe pas il faut indiquer Fld.Properties("Description") . la propriété description existe pour autant qu'elle contienne une valeur et elle est en lecture seule donc impossible de la charger par vba. Si la description n'existe pas , une erreur est déclenchée, donc mettre impérativement un On Error resume next devant. On Error Resume Next For Each Fld In Tbl.Fields FieldList = FieldList & Fld.Name & ";" FieldList = FieldList & Fld.Properties("Description") & ";" Next tu vas avoir un décalage pour les champs sans description. il faut tester l'erreur et si erreur rajouter FieldList = FieldList & ";"
-- @+ 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
"lugi38" a écrit dans le message de news:
Bonjour, Dans Access 2002 - Module, je peux récupérer le nom du champs, son type et ses
propriétés. FieldList = "" Dim Db As DAO.Database Dim Tbl As DAO.TableDef Dim Fld As DAO.Field Set Db = CurrentDb Set Tbl = Db.TableDefs(NomTable) For Each Fld In Tbl.Fields FieldList = FieldList & Fld.Name & ";" Next Set Fld = Nothing Set Tbl = Nothing Set Db = Nothing
J'aimerais maintenant récupérer la valeur Description des champs d'une table
mais j'ai pas trouvé. Quelqu'un saurait comment faire ?