Discussion :

[Looping_V60]

slt,
Mon souci est de donner à l'utilisateur de ma base la possibilité de faire une sauvegarde quant il le veut.
Je ne veut sauvegarder que la table principale.
Je pensait déclencher une procédure qui créerait une bd vierge dans le même répertoire que la base en cours et ensuite qui exporterait la table en question vers celle-ci.
Le code d'exportation est déjà fait, il reste à créer la bd "Sauvegarde" dans le même répertoire, mais rien dans la faq à ce sujet
Comment fait-on ?
Si quelqu'un a une meuilleure solution pour sauvegarder ma table ...

Looping

[FreeAccess]

Bonjour,

Le code d'exportation est déjà fait, il reste à créer la bd "Sauvegarde" dans le même répertoire, mais rien dans la faq à ce sujet
Comment fait-on ?

Je pense que ce code, à modifier selon tes besoins, devrait répondre à ton problème...en espérant l'avoir compris

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
Private Sub Cmd15_Click()
Dim NomBase As String
NomBase = "NomBaseACréer" & ".mdb"

'Création nouvelle base
Dim dbsNew As Database
Set dbsNew = CreateDatabase(CurrentDBDir & "\Archives\" & NomBase, dbLangGeneral, dbVersion30)
Set dbsNew = Nothing

'Recopie de la table de ton choix
Dim appAccess As Access.Application
Dim Destination As String
Set appAccess = CreateObject("Access.Application.8")
appAccess.OpenCurrentDatabase CurrentDBDir & "NomDeLaBDDenCours.mdb"
Destination = CurrentDBDir & "\Archives\" & NomBase
appAccess.DoCmd.CopyObject Destination, "NomTableACopier", acTable, "NomTableCopier"
appAccess.Quit

End Sub

Ici ce code est fait pour ACC97, pour version supérieure à la place de CurrentDBDir (qui est une fonction) remplacer par CurrentProject.Path

Normalement cela fonctionne
FreeAccess

[Looping_V60]

Normalement cela fonctionne
FreeAccess

C'est pas "normalement" ... ça fonctionne !

Juste un détail : dans la création de la BD j'ai du changer le paramètre BDversion30 (version 97 je pense)en DBversion40(version 2000 comme installé chez moi)

Merci :