Discussion :

[PASCAL_CD]

Bonjour A tous
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Amael ROCHE]

Bonjour,
J'ai approximativement le même problème que toi sauf que moi c'est dans une requête (j'ai un poste sur le forum) que je veux afficher la case à cocher.
Il me semble que la variable access pour la case à cacher est acCheckBox qui doit normalement être équivalente à ton 106.
A voir peut être. A+

[loufab]

C'eSt DiffIcIle à lIre cE sTylE d'EcRitUre Non ?

[loufab]

Plus sérieusement on ne choisi pas le type d'affichage d'un champ booléen dans une table. Uniquement dans un formulaire ou un état.

Cordialement,

[Arkham46]

Plus sérieusement on ne choisi pas le type d'affichage d'un champ booléen dans une table. Uniquement dans un formulaire ou un état.

Cordialement,

Dans une table ça se change dans l'onglet Liste de choix des propriétés du champs.

Mais la propriété n'est pas un boolean, c'est un entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Prop = oTbl.CreateProperty("DisplayControl", dbInteger, acCheckBox)

[Amael ROCHE]

Et dans une requête est ce que vous savez comment on fait ?
Merci

[PASCAL_CD]

Merci pour vos réponses le code:
Set Prop = oTbl.CreateProperty("DisplayControl", dbInteger, acCheckBox)
par Arkham46 est parfait!