(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
dilerim işinize yararPrivate 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
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.