Bonjours,
je crée une table en VBA de la façon ci dessous :
Mais a l'affichage la table s'affiche avec des largeurs de colonne standards
de access. J'aimerai pouvoir donner une largeur différentes à la création de
la table, pour avoir un affichage à l'ouverture que je n'ai pas a modifier.
est-ce possible?
Set tbl = Db.CreateTableDef("tempo") 'Création d'une table
Set fld = tbl.CreateField("Champ1", dbText) 'création du champ désignation
fld.OrdinalPosition = 1 'champ position 1
fld.Size = 20 'taille 10 caractères
tbl.Fields.Append fld 'ajout du champ dans la table
Set fld = tbl.CreateField("Champ2", dbText) 'création du champ Item
fld.OrdinalPosition = 2 'champ position 2
fld.Size = 50 'taille 10 caractères
tbl.Fields.Append fld 'ajout du champ dans la table
etc. etc.
Merci
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
LiR
Bonjour,
Tu peux utiliser la propriété "ColumnWidth" (type Integer) du Champ. Elle définit la largeur de la colonne en twips. Je ne connais pas l'unité utilisée. Pour définir une "largeur auto (par défaut)", mettre -1.
Tu auras des infos ici : http://support.microsoft.com/?kbid!0427
Bonjours, je crée une table en VBA de la façon ci dessous : Mais a l'affichage la table s'affiche avec des largeurs de colonne standards de access. J'aimerai pouvoir donner une largeur différentes à la création de la table, pour avoir un affichage à l'ouverture que je n'ai pas a modifier. est-ce possible?
Set tbl = Db.CreateTableDef("tempo") 'Création d'une table Set fld = tbl.CreateField("Champ1", dbText) 'création du champ désignation fld.OrdinalPosition = 1 'champ position 1 fld.Size = 20 'taille 10 caractères tbl.Fields.Append fld 'ajout du champ dans la table
Set fld = tbl.CreateField("Champ2", dbText) 'création du champ Item fld.OrdinalPosition = 2 'champ position 2 fld.Size = 50 'taille 10 caractères tbl.Fields.Append fld 'ajout du champ dans la table etc. etc. Merci
Bonjour,
Tu peux utiliser la propriété "ColumnWidth" (type Integer) du Champ.
Elle définit la largeur de la colonne en twips.
Je ne connais pas l'unité utilisée. Pour définir une "largeur auto (par
défaut)", mettre -1.
Tu auras des infos ici :
http://support.microsoft.com/?kbid!0427
Bonjours,
je crée une table en VBA de la façon ci dessous :
Mais a l'affichage la table s'affiche avec des largeurs de colonne standards
de access. J'aimerai pouvoir donner une largeur différentes à la création de
la table, pour avoir un affichage à l'ouverture que je n'ai pas a modifier.
est-ce possible?
Set tbl = Db.CreateTableDef("tempo") 'Création d'une table
Set fld = tbl.CreateField("Champ1", dbText) 'création du champ désignation
fld.OrdinalPosition = 1 'champ position 1
fld.Size = 20 'taille 10 caractères
tbl.Fields.Append fld 'ajout du champ dans la table
Set fld = tbl.CreateField("Champ2", dbText) 'création du champ Item
fld.OrdinalPosition = 2 'champ position 2
fld.Size = 50 'taille 10 caractères
tbl.Fields.Append fld 'ajout du champ dans la table
etc. etc.
Merci
Tu peux utiliser la propriété "ColumnWidth" (type Integer) du Champ. Elle définit la largeur de la colonne en twips. Je ne connais pas l'unité utilisée. Pour définir une "largeur auto (par défaut)", mettre -1.
Tu auras des infos ici : http://support.microsoft.com/?kbid!0427
Bonjours, je crée une table en VBA de la façon ci dessous : Mais a l'affichage la table s'affiche avec des largeurs de colonne standards de access. J'aimerai pouvoir donner une largeur différentes à la création de la table, pour avoir un affichage à l'ouverture que je n'ai pas a modifier. est-ce possible?
Set tbl = Db.CreateTableDef("tempo") 'Création d'une table Set fld = tbl.CreateField("Champ1", dbText) 'création du champ désignation fld.OrdinalPosition = 1 'champ position 1 fld.Size = 20 'taille 10 caractères tbl.Fields.Append fld 'ajout du champ dans la table
Set fld = tbl.CreateField("Champ2", dbText) 'création du champ Item fld.OrdinalPosition = 2 'champ position 2 fld.Size = 50 'taille 10 caractères tbl.Fields.Append fld 'ajout du champ dans la table etc. etc. Merci
