[ Ασφάλεια] Αντίγραφο ασφαλείας βάσης με VBA

[ΤΙΜΟΣ]

Καλησπέρα σε όλη την παρέα,
Μήπως υπάρχει δυνατότητα με χρήση κώδικα VBA να μπορώ να παίρνω αντίγραφο ασφαλείας της βάσης; Να σημειώσω πως η βάση είναι κλειδωμένη και ο χρήστης έχει πρόσβαση μόνο για καταχώρηση δεδομένων σε φόρμες και εκτύπωση εκθέσεων.
Ευχαριστώ εκ των προτέρων

Τίμος

[tsgiannis]

Δες εδω για μερικές λύσεις...μάλλον η τελευταία είναι η καλύτερη...αλλα δεν έχει τύχει να το δοκιμάσω
Εγώ για Backup χρησιμοποιούσα το Cobian backup χωρίς προβλήματα (Εξωτερική λύση)

[ΤΙΜΟΣ]

Καλημέρα Γιάννη,
Προτείνεις κάποιες λύσεις χωρίς να με παραπέμπεις κάπου.

[tsgiannis]

Καποιος δαίμων του τυπογραφειο έβαλε το χεράκι του:
https://stackoverflow.com/questions/...open-using-vba

[pakos]

Καλησπέρα

κάτι τέτοιο χρησιμοποιώ
αν σε κάνει καλώς
Dim sSource, sDest As String
sSource = "C:\Φακελος" & "\" & "αρχειο" & ".accdb"
sDest = "C:\Φακελος" & "\" & "_" & "αρχειο" & Format(Date, "dd-mm-yyyy") & "-" & Format(Time, "hh-mmAMPM") & ".accdb"
Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Call oFSO.CopyFile(sSource, sDest, True)
FSO_FileCopy = True

διόρθωσε τις διαδρομές όπως θέλεις και την κατάληξη ".accdb" ή ".mdb"
ανάλογα με την access που έχεις

[pakos]

Σε περίπτωση που δεν θέλεις να έχεις πολλά αρχεία αντιγραφής
μπορείς να προσθέσεις την παρακάτω γραμμή

Kill "C:\φάκελος" & "\" & "αρχείο" & "*.* "

και ο κώδικας γίνεται


Private Sub Εντολή_Click()

Dim sSource, sDest As String
sSource = "C:\Φάκελος" & "\" & "αρχείο" & ".accdb"
sDest = "C:\Φακελος2" & "\" & "αρχείο" & Format(Date, "dd-mm-yyyy") & "-" & Format(Time, "hh-mm AMPM") & ".accdb"

Kill "C:\Φακελος2" & "\" & "αρχείο" & "*.* "

Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Call oFSO.CopyFile(sSource, sDest, True)
FSO_FileCopy = True

End Sub


Εννοείτε ότι πάντα έχουμε χωριστά τους πίνακες και δουλεύουμε στην access με συνδεδεμένους πίνακες

back end
front end