IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Sauvegarde d'une Base


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Septembre 2005
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : Septembre 2005
    Messages : 33
    Par défaut Sauvegarde d'une Base
    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

  2. #2
    Expert confirmé
    Avatar de Dolphy35
    Homme Profil pro
    Responsable Systemes d'Information
    Inscrit en
    Octobre 2004
    Messages
    4 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable Systemes d'Information
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2004
    Messages : 4 373

  3. #3
    Membre averti
    Inscrit en
    Septembre 2005
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : Septembre 2005
    Messages : 33
    Par défaut Re-Sauvegarde
    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

  4. #4
    Membre averti
    Inscrit en
    Septembre 2005
    Messages
    33
    Détails du profil
    Informations forums :
    Inscription : Septembre 2005
    Messages : 33
    Par défaut Re-RE-sauvegarde
    J'ai trouvé ma solution en faisant :

    DoCmd.CopyObject , cDestination, acTable, cSource

    Merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Sauvegarde d'une base de données
    Par dcollart dans le forum Informix
    Réponses: 8
    Dernier message: 28/05/2006, 00h23
  2. [IBBackupService] Sauvegarde d'une base distante
    Par kase74 dans le forum Bases de données
    Réponses: 1
    Dernier message: 27/04/2006, 12h04
  3. [access] sauvegarde d'une base
    Par le_sonic dans le forum Access
    Réponses: 4
    Dernier message: 20/03/2006, 18h45
  4. Réponses: 3
    Dernier message: 09/09/2004, 11h31
  5. sauvegarde d'une base ailleurs qu'en local
    Par jbat dans le forum MS SQL Server
    Réponses: 10
    Dernier message: 13/01/2004, 11h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo