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
Mon problème et que je voudrais que le champ crée soit au format "case à cocher"
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
J'ai cette propriétémais je ne sais pas quoi en faire
Code : Sélectionner tout - Visualiser dans une fenêtre à part DisplayControl
Pouvez m'aider ?
Par avance merci
Partager