Discussion :

[meryem85]

Bonjour,

Je souhaite faire un bouton dans un formulaire access qui permet de créer une nouvelle base de données avec de nouvelles tables et récupérer les données de la premiére base. Je ne sais pas si c'est possible sur access et je n'ai pas trouvé de la documentation sur le sujet.
Je travaille avec access 2003.

Merci pour votre aide.

[LedZeppII]

Bonsoir,

C'est faisable avec automation (Access.Application).

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
19
20
21
22
23
24
25
Private Sub cmdCreerBdd1_Click()
Dim accApp As Access.Application
Dim strBDDsce As String, strBDDdest As String
 
strBDDsce = CurrentProject.FullName
strBDDdest = CurrentProject.Path & "\NouvBDD.mdb"
 
If Dir(strBDDdest, vbNormal) <> "" Then Kill strBDDdest
 
' Créer une nouvelle instance d'Access
Set accApp = New Access.Application
' Créer nouvelle base Access
accApp.NewCurrentDatabase strBDDdest
' Importer une table
accApp.DoCmd.TransferDatabase acImport, "Microsoft Access", _
             strBDDsce, acTable, "Table1", "Table1"
' Fermer l'instance d'Access
accApp.Quit
Set accApp = Nothing
 
' Exporter une table dans la nouvelle BDD
DoCmd.TransferDatabase acExport, "Microsoft Access", _
        strBDDdest, acTable, "Pdts", "Pdts"
 
End Sub

Cet exemple crée une nouvelle instance d'Access, puis crée une nouvelle base avec la méthode NewCurrentDatabase.

Depuis cette nouvelle instance (objet AccApp), tu peux importer des objets de base de données avec TransferDatabase.

Ou bien, tu peux depuis la bdd en cours, exporter des objets vers la nouvelle base.

A+

[meryem85]

Merci