baglitabloyolu = Len(Dir(BagliTabloLinki(rs(0))))

Function Yedekle()
 
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl
 
Dim CurDB As String, KopyaDB As String, Plik As String, NrPliku As Long
 
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
 
KopyaDB = CurrentProject.path & "/yedek/" & "Yedek.accdb"
 
If KopyaDB & "" <> "" Then
 
Err = 0
 
NrPliku = FreeFile
 
Open KopyaDB For Binary Access Write Shared As #NrPliku
Put #NrPliku, 1, Plik
Close #NrPliku
 
If Err <> 0 Then
MsgBox Err.Description
End If
End If
End If
DoCmd.Hourglass 0
 
End Function