[VBA]Création d'un champ table case à cocher en Vba
Bonjour A tous 8O
Je Crée Une Table Par Code Dans cette Table je veux ajouter une Colonne qui contient des données de type Boolean je veux qu a l'affichage de cette table cette colonne s'affiche en tant que case a cocher, Je crée donc une Property ("DisplayControl) avec comme valeur 106 qui correspond à une case a cocher Cela ne marche pas. Ou Est l'erreur dans mon code ou avez vous une solution ?
Ci Dessous un Exemple De Code :
------------------------------------------
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Dim oDb As DAO.Database, Prop As DAO.Property
Dim oTbl As DAO.Field, tb As DAO.TableDef
Set oDb = CurrentDb
Set tb = oDb.CreateTableDef("_Tmp")
Set oTbl = tb.CreateField("-", dbBoolean)
tb.Fields.Append oTbl
oDb.TableDefs.Append tb
Set Prop = oTbl.CreateProperty("DisplayControl", dbBoolean, 106)
oTbl.Properties.Append Prop
Set Prop = Nothing
Set oTbl = Nothing
Set tb = Nothing
Set oDb = Nothing |
'---------------------------------------------------
Merci D'avance Pour Votre Aide
