(01/12/2014, 21:34)ozanakkaya yazdı: Yedekleme butonunun kodlarını aşağıdaki ile değiştir.

On Error GoTo HataYakala



Dim fs As Object







Dim tabloDosyasi, YedekYeri As String

 YedekYeri = KlasorBul("Lütfen Uygulamanın Yedekleneceği Klasörü Seçiniz.")

 tabloDosyasi = CurrentProject.Path & "\tablolar\ornek_be.accdb"

 Set fs = CreateObject("Scripting.FileSystemObject")

 

 

 fs.CopyFile tabloDosyasi, YedekYeri & "\yedek" & Date & ".accdb"

 Set fs = Nothing

 MsgBox "Dosyanın yedeği alındı.", vbInformation, "İşlem Tamam"



HataCikis:

 Exit Sub

 

HataYakala:

 MsgBox "HATA : " & vbrlf & vbrlf & err.Description

End Sub

üstteki kodlarda 9. satırdaki ;

tabloDosyasi = CurrentProject.Path & "\tablolar\ornek_be.accdb"  veya

tabloDosyasi = CurrentProject.Path & "\tablolar\ornek_be.accde"

dosyası olarak nasıl derleyebilirim.   yani uzantı accdb veya accde, hangisi varsa onu yedeklesin. Bu konuda yardım talep ediyorum arkadaşlar. sağolun varolun.