Discussion :

[arjo54]

Bonjour à Tous

Encore un petit problème que je n'arrive pas à trouvé sur les forums. J'ai bien trouvé divers solutions mais aucune ne marche.
Mon problème est que j'ai une application avec 3 bases. Je voudrais avant de remettre à zéros une de mes bases, là sauvegarder.
Ci-dessous le code que j'ai

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
 
    Dim nAnnee, nAnnee1 As Integer
    Dim cAnnee, cSource, cDestination As String
 
    cSource = "NoelPourTous"
    nAnnee = Year(Date)
    cAnnee = CStr(nAnnee - 1) & CStr(nAnnee)
    cDestination = "Campagne" & cAnnee
 
    Reponse = MsgBox("RAZ début de Campagne ???", vbYesNo, "RAZ Enregistrements")
 
    If Reponse = vbYes Then
 
        'Sauvegarde de la Base avant RAZ
        DoCmd.Save acTable = cSource, cDestination
        FileCopy cSource, cDestination
 
        'Empêche les demande de confirmation de s'afficher
        DoCmd.SetWarnings False
        'Efface le contenu de la table
        DoCmd.RunSQL "DELETE * FROM NoelPourTous;"
        'Retablit les confirmations
        DoCmd.SetWarnings True
 
    End If

Donc aucune des 2 lignes pour la sauvegarde ne fonctionne.
Ai-je fait une erreur ou faut-l utiliser autre chode.
Merci d'avance
Joël

[Dolphy35]

Salut,

tu as consulté ceci :

Faire des copies de Sauvegarde facilement pendant le développement


Dolphy

[arjo54]

Oui j'avais vu ça, mais ce n'est pas ce type de sauvegarde que je veux

Je veux un boutuon pour que l'utilisateur sauvegarde la BD de son année en cours avant de refaire une nouvelle année (car il faut que je remette à 0 la base des mouvements)

Merci

[arjo54]

J'ai trouvé ma solution en faisant :

DoCmd.CopyObject , cDestination, acTable, cSource

Merci