Discussion :

[Titom1978]

Bonjour à toutes et tous,

Je reviens aujourd'hui avec une nouvelle difficulté à vous soumettre!

Mon problème du jour: je créé une DB en VBA à l'aide de createdatabase, jusque-là tout va bien. Là où ça se complique, c'est quand j'importe manuellement des tables et formulaires provenant d'une DB tierce: ces tables et form ne se comportent pas comme dans la DB initiale: dans la nouvelle DB, elles apparaissent dans des fenêtres "indépendantes" alors qu'elles ne sont pas configurées comme tel.

Comment puis-je faire pour que les tables/requêtes/formulaires/états... se comportent graphiquement comme dans la DB initiale.

Voici le code que j'utilise:

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
 
Sub creatDB()
 
Dim wrkDefault As Workspace
Dim dbsNew As Database
 
Set wrkDefault = DBEngine.Workspaces(0)
 
If Dir("NewDB.accdb") <> "" Then Kill "NewDB.accdb"
 
Set dbsNew = wrkDefault.CreateDatabase("NewDB.accdb", dbLangGeneral, dbVersion120)
 
dbsNew.Close
 
End Sub

[loufab]

Bonjour,

Il faut régler les options de cette nouvelle base pour qu'elle utilise le système à onglet.

Via VBA ça doit être avec SetOptions. (cf Google)

Cordialement,

[Titom1978]

Ok,

Je n'avais pas vu setOptions, je vais étudier le problème!

merci Loufab, je teste ça asap et je vous tiens au courant!

Titom

[Titom1978]

Bonjour à toutes et tous!

Tout d'abord merci Loufab de m'avoir mis sur la voie avec setOption, mais après de nombreux essais (crises de nerfs, jurons et autres douceurs...) j'ai trouvé une solution qui convient.

En fait, je n'utilise pas setOption mais la méthode Properties avec "Append" comme dans l'exemple ci-dessous:

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
 
Sub creatDB()
 
Dim wrkDefault As Workspace
Dim dbsNew As Database
 
Set wrkDefault = DBEngine.Workspaces(0)
 
If Dir("NewDB.accdb") <> "" Then Kill "NewDB.accdb"
 
Set dbsNew = wrkDefault.CreateDatabase("NewDB.accdb", dbLangGeneral, dbVersion120)
 
dbsNew.Properties.Append dbsNew.CreateProperty("UseMDIMode", dbByte, 0)
dbsNew.Properties.Append dbsNew.CreateProperty("Themed Form Controls", dbBoolean, True)
dbsNew.Properties.Append dbsNew.CreateProperty("CheckTruncatedNumFields", dbBoolean, True)
dbsNew.Properties.Append dbsNew.CreateProperty("Picture Property Storage Format", dbLong, 0)
 
End Sub

le UseMDIMode permet de configurer la DB sur l'option "Documents à onglet" et de les afficher.
Le "Themed Form Controls" permet d'avoir des controles comme avec une DB que l'on créé manuellement
Le "CheckTruncatedNumFields" permet d'activer le champs "vérifier les nombres tronqués"
Et enfin le "Picture Property Storage Format" permet de configurer "Format de stockage des propriétés d'images" sur l'option "Conserver el format d'image source (taille réduite)"

Voilà!

Bonne journée à toutes et tous!

Titom