(01/12/2014, 16:47)alpeki99 yazdı: Bir buton ekleyip aşağıdaki kodları butonun tıklanma olayına ekleyin:

Kod:

On Error GoTo HataYakala
Dim fs As Object
Dim tabloDosyasi As String
 
 tabloDosyasi = CurrentProject.Path & "\tablolar\ornek_be.accdb"
 Set fs = CreateObject("Scripting.FileSystemObject")
 fs.CopyFile tabloDosyasi, CurrentProject.Path & "\tablolar\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

çok teşekkür ediyorum, hemen deniyorum. peki şöyle yapamazmıyız, yedek alacağı yeri sorduramazmıyız, kod içerisinde path yani yol göstermek yerine, butona kliklediğimiz zaman, yedeğin nereye alınacağını bize nasıl sordurabilirim.

Bu arada gerçekten ilgi ve alakanıza canı gönülden teşekkürlerimi bildiriyorum.