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

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

Τίμος

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

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

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

Αντιγραφή αρχείου
 

Καλησπέρα

κάτι τέτοιο χρησιμοποιώ
αν σε κάνει καλώς
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 που έχεις

Συνέχεια
 

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

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