Komut butonunun tıklandığında olayındaki kodun aşağıdaki gibi değiştirilmesi gerekli.

On Error Resume Next

Dim CurDB As String, KopiaDB As String, LenDB As Long, Plik As String, NrPliku As Long

Dim YedekDizini As String



YedekDizini = "C:\Yedek"



DoCmd.Hourglass -1

CurDB = CurrentDb.Name

Err = 0

Plik = Space(FileLen(CurDB))

NrPliku = FreeFile

Open CurDB For Binary Access Read Shared As #NrPliku

Get #NrPliku, 1, Plik

Close #NrPliku

If Err = 52 Then

MsgBox "Kopyalanamadı. " & CurDB & "Kopyalama işlemi başarısız.", 48, "Kopyalanıyor."

ElseIf Err Then

MsgBox Err.Description

Else

KopiaDB = InputBox("Veritabanı yedeklenecek, dizin aşağıdaki gibi:" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Dosyanın oluşturulacağı yol:.", "Değiştirmeden onaylayınız.", YedekDizini & "\ " & Me.dosyaadi & "." & Mid(CurDB, InStr(1, CurDB, ".") + 1)) '"deneme.mdb")

If KopiaDB & "" <> "" Then

Kill KopiaDB

Err = 0

NrPliku = FreeFile

Open KopiaDB For Binary Access Write Shared As #NrPliku

Put #NrPliku, 1, Plik

Close #NrPliku

If Err = 0 Then

MsgBox "Yedek Dosyanız Alınmıştır."

Else

MsgBox Err.Description

End If

End If

End If

DoCmd.Hourglass 0

'DoCmd.Quit

Koddaki;
YedekDizini = "C:\Yedek" 

kısmını değiştirebilirsiniz