Skip to main content

AccessTr.neT


Yedek Alma Uygulaması

Yedek Alma Uygulaması

#5
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Yedek Alma Uygulaması - Yazar: husem - 18/10/2019, 00:25
Cvp: Yedek Al - Yazar: ozanakkaya - 18/10/2019, 09:50
Cvp: Yedek Al - Yazar: ozanakkaya - 18/10/2019, 13:42
Cvp: Yedek Al - Yazar: sipuasfaf - 21/10/2019, 11:35
Cvp: Yedek Alma Uygulaması - Yazar: ozanakkaya - 21/10/2019, 11:47
Cvp: Yedek Alma Uygulaması - Yazar: husem - 21/10/2019, 12:41
Cvp: Yedek Alma Uygulaması - Yazar: sipuasfaf - 21/10/2019, 13:06
RE: Yedek Alma Uygulaması - Yazar: accessman - 13/04/2020, 22:46
Task