En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1219897 visiteurs

 16 visiteurs en ligne

Nous contacter

Contact

Sauvegarde mensuelle

On peut souhaiter faire une sauvegarde ou une exportation mensuelle de certaines données.

Pour cela, on créera :

  • La requête ou l'action souhaitée
  • Une table "tblExport" avec un champ date "DateExport"

La fonction suivante sera placée dans un module général (onglet Module) et sauvée sous "mod_ExportMensuel" par exemple.
 

Public Function fn_ExportDebutMois()
    Dim MoisActuel As Integer, MoisExport As Integer
    Dim varDerDate As Variant

    MoisActuel = Month(Date)
    varDerDate = DMax("DateExport", "tblExport")

    If IsNull(varDerDate) Then
        MoisExport = 0
    Else
        MoisExport = Month(varDerDate)
    End If

    If MoisExport <> MoisActuel Then
        'premier démarrage du mois et j'exporte par exemple par
        '
        '    DoCmd.TransferSpreadsheet ....
        '
        'sauver la date de l'export
        CurrentDb.Execute "Insert Into tblExport Values (" _
                                   & Format(Date, "\#mm/dd/yyyy\#") & ");"
        MsgBox "L'exportation a été réalisée", vbInformation
    End If
End Function

Par une macro "AutoExec" qui exécutera l'action "ExécuterCode" on appellera la fonction "fn_ExportDebutMois()"

L'action sera ainsi réalisée une seule fois par mois et au premier démarrage de la base.


Catégorie : Les mémos - Administration
Page lue 8332 fois

Vous êtes ici :   Accueil » Sauvegarde mensuelle