(02/12/2018, 19:32)haliliyas yazdı: en basit hali ile aşağıdaki kodları butona ekleyebilirsiniz ama önce 

• Alt+F11 basım Araçlar- Tools > referanslar-References açıp
  
• "Microsoft Scripting Runtime" eklemelisiniz 
  

Private Sub Komut11_Click()

strFrom = Application.CurrentProject.Path & "\yedekleme_uygulamas?.accdb"

strTo = Application.CurrentProject.Path & "\yedek\yedekleme_uygulamas?.accdb"

    

    Dim fso As FileSystemObject

        Dim sSourcePath As String

        Dim sSourceFile As String

        Dim sBackupPath As String

        Dim sBackupFile As String

        Dim DB As New Access.Application

If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then

   MkDir Application.CurrentProject.Path & "\yedek"

End If

        Set fso = New FileSystemObject

        fso.copyFile strFrom, strTo, True

        Set fso = Nothing

        Beep

        MsgBox "Backup was successful and Saved" & "Backup completed"

End Sub

dilerim işinize yarar

Merhaba Halil Bey, evet iş görüyor. Yeri gelmişken şunu sorayım;
Elle manuel yaptığımız klasik yedekleme prosedüründe biliyorsunuz, belirttiğiniz yerde ayrı bir backup dosyası şeklinde tarih bilgisi ile birlikte bir dosya yaratılıyor. Bu verdiğiniz örnek ise, butona her basışta sanki aynı dosya üzerine yazıyor. Doğru anlıyorum değil mi? Yani bu kodlama mevcut dosyayı bir nevi copy-paste mi ediyor yoksa farklı bir şey mi yapıyor? Tşk.