Recherche
Recherche
Les mémos
Je débute...
Visites

 996168 visiteurs

 2 visiteurs en ligne

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 7058 fois