[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