Discussion :

[Stargate SG1]

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

[LedZeppII]

Bonsoir,

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

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

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 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+

[Stargate SG1]

merci et en effet c'est dbboolean