back up kodu

[rapboy]

arkadaşlar bana accessde back up kodu hakkında bazı bılgıler lazım bunlar
backup ile oluşturulan yenı dbnın adını nasıl deiştirebiliriz bir diğeri ise db yedeği alındıktan sonra eski db silinsin istiyorum bunu nasıl gerçekleştirebilirim yardım edeseniz sevinirim

 

[karaayhan]

lütfen forumda arama yaptırını öncelikle

 

[rapboy]

sayın karaayhan forumda arattım fakat benım istediğm açıklamayı bulamdım:S

 

[rapboy]

benim istediğim burdakı veritabanında yedeği almaya devam edicek fakat adınındakı backup kelımesını kaldırmak istiyorum ve eski veri tabanını silmesini istiyorum aynen makrolardakı form aç özelliğinden sonra formu kapat özelliği gibi diğer veri tabanını silmesini istiyorum y7ardım cı olursanız sevinirim

 

[modalı]

Sayın rapboy,

Aşağıdaki kodları bir düğümenin klik olayına kopyalayın.

On Error Resume Next
Dim CurDB As String, KopiaDB As String, LenDB As Long, 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
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.", Left(CurDB, Len(CurDB) - Len(Dir(CurDB))) & "yedekALIM.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 "Yedekleme Başarılı."
Else
MsgBox Err.Description
End If
End If
End If
DoCmd.Hourglass 0
'DoCmd.Quit

İyi çalışmalar