Discussion :

[ybihan]

Bonjour à tous,

Je suis en train de finaliser un projet accessible par une dizaine de personnes simultanément. (access 2010 au format accdb). Et j’ai besoin de faire des sauvegardes plusieurs fois dans la journée sans déconnexion des utilisateurs.

Mais si j’ai bien compris, il n’est pas du tout conseillé de faire un simple copier-coller du fichier data lorsqu’il est ouvert.
Qu’elles sont alors mes autres solutions :
- Créer un module VBA qui fait des select de toutes les tables et qui les recopie dans un autre fichier DATA. Cela fonctionne t’il ou y’a-t-il un inconvénient à cette méthode?
- Créé une version SQL ade de mon projet (jamais fais, pas forcément le temps dans l’immédiat, pas encore bien peser le pour et le contre…)

Que me conseiller vous, y’a-t-il d’autres solutions pour sauvegarder ?

Bonne journée et merci d’avance

[marsouin_89]

Bonsoir,

J'utilise un code pour sauvegarder ma dorsale et ma frontale.
Ce code tourne lorsque ma dorsale est déconnectée de ma frontale.
En revanche, j'utilise le même code pour la frontale alors qu'elle n'est pas encore fermée et cela fonctionne.

Colles le code suivant dans un module :

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
26
27
28
'API pour copier un fichier d'un endroit à un autre
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" ( _
                 ByVal lpExistingFileName As String, _
                 ByVal lpNewFileName As String, _
                 ByVal bFailIfExists As Long) As Long
 
Public Function CopyFileSauvegarde(ByVal SourceFileName As String, _
                         ByVal DestFileName As String, _
                         ByVal FailIfTargetExists As Boolean) As Long
' Copie de la frontale ou la dorsale lors de sa fermeture (sauvegarde)
Dim strSourceTmp, strDestTmp As String
Dim lgFailIfExists As Long
 
strSourceTmp = SourceFileName & Space$(250 - Len(SourceFileName))
strDestTmp = DestFileName & Space$(250 - Len(DestFileName))
 
lgFailIfExists = CLng(FailIfTargetExists)
 
On Error Resume Next
    Call CopyFile(strSourceTmp, strDestTmp, lgFailIfExists)
On Error GoTo 0
 
If Err.Number <> 0 Then
    MsgBox Err.Description, vbCritical
End If
 
CopyFileSauvegarde = Err.Number
End Function

Pour appeler le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call CopyFileSauvegarde(CheminDeLabaseSource, CheminDeLaBaseSauvegarde, False)

[Tofalu]

L'idée des requêtes offre la possibilité de contrôler, de filtrer, de limiter la sauvegarde, voire même de calculer le temps nécessaire.

[ybihan]

Merci pour vos réponses,

Je vais explorer la solution des requêtes car j’ai besoin de faire des sauvegardes même lorsque des utilisateurs sont connectés. En théorie si j’ajoute la date de modification d’un enregistrement à mes tables, je peux sauvegarder que ce qui à été modifié.