Modifier la structure d'une table liée

Bonjour

j'ai déployé un BDD (fichier frontale et dorsale)

j'ai besoin maintenant de modifier la dorsale mais je n'y ai plus accès.

je compte donc la modifier par une diffusion d'une mise à jour de ma frontale

j'ai ce code qui fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim db As Database Dim tbl As DAO.TableDef Dim fld As DAO.Field Dim strpath As String     strpath = Application.CurrentProject.path & "\GestFEN_data.mdb"   'se positionner dans la db dorsale Set db = OpenDatabase(strpath) 'se positionner sur la table Set tbl = db.TableDefs("tbl Liste des produits") 'ajoute un champ Set fld = db.TableDefs![tbl Liste des produits].CreateField("Inflammable5", dbBinary)       db.TableDefs("[tbl Liste des produits]").Fields.Append fld

---

Mon problème et que je voudrais que le champ crée soit au format "case à cocher"

J'ai cette propriété

Code:

---

DisplayControl

---

mais je ne sais pas quoi en faire


Pouvez m'aider ?

Par avance merci

Bonsoir,

Tu es sur que c'est dbBinary et non dbBoolean ?

Sinon, après avoir ajouté le champ, tu continue avec ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim prop As DAO.Property   ' propriété "afficher le contrôle" Set prop = Nothing On Error Resume Next Set prop = fld.Properties("DisplayControl") On Error GoTo 0 ' Ajoute propriété si elle n'appartient pas à la collection If prop Is Nothing Then Set prop = fld.CreateProperty("DisplayControl", dbInteger, 0) fld.Properties.Append prop End If ' Contrôle de type Case à cocher prop.Value = acCheckBox

---

A+

merci et en effet c'est dbboolean