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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
DisplayControl
mais je ne sais pas quoi en faire


Pouvez m'aider ?

Par avance merci