modifier description de table

Le
denis le breton
Bjr, me revoila, une dernière question avant de changer de boulot
dans l'onglet table d'access en mode d'affichage détail, la colonne
Description apparait Un clic droit sur le nom de la table permet de
modifidier le contenu de ce champ par : Propriétés
Comment le faire en VBA ?
Je n'ai rien trouvé la dessus sur les différents sites !
Qqun a une idée ou une piste
Merci
Denis
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #6325331
Bonjour.

il faut passer par les propriétés de la table en DAO.
exemple détaillé des fonctions pour la compréhension mais qu'on peut réduire
de moitié en les groupant:

Modification de la propriété description de la table:
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim Prp As DAO.Property
Set Db = CurrentDb()
Set Tbl = Db.TableDefs("Table1")
Set Prp = Tbl.Properties("Description")
Prp.Value = "Ce champ est la description de la table."
Set Db = Nothing
Set Tbl = Nothing
Set Prp = Nothing

modification de la propriété description d'un champ:
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim fld As DAO.Field
Dim Prp As DAO.Property
Set Db = CurrentDb()
Set Tbl = Db.TableDefs("Table1")
Set fld = Tbl.Fields("nom")
Set Prp = fld.Properties("Description")
Prp.Value = "Ce champ est le nom de la personne."
Set Db = Nothing
Set Tbl = Nothing
Set fld = Nothing
Set Prp = Nothing

dernier point, il faut vérifier si les propriétés existent, sinon il faut
les créer, voir un exemple de création sur:
http://officesystemaccess.seneque.net/vba/table_nouvelle.htm

--
@+
Raymond Access MVP http://OfficeSystemAccess.seneque.net/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Partagez vos créations réalisées sous Office 2007 et gagnez peut-être 5000?
http://www.comscamp.com/Tracker/Redirect.ashx?linkid"7641a0-797c-44d5-8774-d820448dbe90


"denis le breton" message de news:
| Bjr, me revoila, une dernière question avant de changer de boulot
| dans l'onglet table d'access en mode d'affichage détail, la colonne
| Description apparait Un clic droit sur le nom de la table permet de
| modifidier le contenu de ce champ par : Propriétés
| Comment le faire en VBA ?
| Je n'ai rien trouvé la dessus sur les différents sites !
| Qqun a une idée ou une piste
| Merci
| Denis
denis le breton
Le #6325231
Merci Raymond, toujours présent
je teste cela avec confiance
Cdt
Denis


Bonjour.

il faut passer par les propriétés de la table en DAO.
exemple détaillé des fonctions pour la compréhension mais qu'on peut réduire
de moitié en les groupant:

Modification de la propriété description de la table:
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim Prp As DAO.Property
Set Db = CurrentDb()
Set Tbl = Db.TableDefs("Table1")
Set Prp = Tbl.Properties("Description")
Prp.Value = "Ce champ est la description de la table."
Set Db = Nothing
Set Tbl = Nothing
Set Prp = Nothing

modification de la propriété description d'un champ:
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Dim fld As DAO.Field
Dim Prp As DAO.Property
Set Db = CurrentDb()
Set Tbl = Db.TableDefs("Table1")
Set fld = Tbl.Fields("nom")
Set Prp = fld.Properties("Description")
Prp.Value = "Ce champ est le nom de la personne."
Set Db = Nothing
Set Tbl = Nothing
Set fld = Nothing
Set Prp = Nothing

dernier point, il faut vérifier si les propriétés existent, sinon il faut
les créer, voir un exemple de création sur:
http://officesystemaccess.seneque.net/vba/table_nouvelle.htm

--
@+
Raymond Access MVP http://OfficeSystemAccess.seneque.net/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/

Partagez vos créations réalisées sous Office 2007 et gagnez peut-être 5000?
http://www.comscamp.com/Tracker/Redirect.ashx?linkid"7641a0-797c-44d5-8774-d820448dbe90


"denis le breton" message de news:
| Bjr, me revoila, une dernière question avant de changer de boulot
| dans l'onglet table d'access en mode d'affichage détail, la colonne
| Description apparait Un clic droit sur le nom de la table permet de
| modifidier le contenu de ce champ par : Propriétés
| Comment le faire en VBA ?
| Je n'ai rien trouvé la dessus sur les différents sites !
| Qqun a une idée ou une piste
| Merci
| Denis





Publicité
Poster une réponse
Anonyme