Skip to main content

AccessTr.neT


Yedekleme hakkında

Yedekleme hakkında

Çözüldü #1
Aşağıdaki kodla programı bulunduğu dizine yedekliyorum..Bunu bulunduğu dizine değilde E sürücüsüne yedekleme yaptırmak istiyorum..nasıl bir düzeltme yapabilirim?..

Private Sub Komut17_Click()
Msg = Msg & "Tüm Kayıtlarınızın Yedeği Alınsın mı?" & vbCrLf & vbCrLf
If MsgBox(Msg, vbQuestion + vbYesNo, "Veritabanı Yedekleme") = vbYes Then
Dim fileObj As Object
Dim strDB As String
Dim strBackupName As String

DoCmd.Hourglass -1

Let strDB = "Tablolar.mdb"
Let strBackupName = Format(Date, "dd/mm/yyyy") & " " & Format(Time, "hh.mm") & " Yedek" & strDB
Path = CurrentProject.Path
Let strDB = Path & "\TABLOLAR\" & strDB
Let strBackupName = Path & "\YEDEK\" & strBackupName

Set fileObj = CreateObject("scripting.filesystemobject")

fileObj.CopyFile strDB, strBackupName, True

Msg = MsgBox("Kayıtlarınızın Yedekleme İşlemi Aşağıdaki Dizine Başarı ile Tamamlandı.:" & vbCrLf & vbCrLf & strBackupName, vbInformation, "DEMİRBAŞ TAKİP PROGRAMI YEDEKLEME")

DoCmd.Hourglass 0



End If
End Sub
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
Yedekleme hakkında - Yazar: perisanoglu - 07/11/2012, 11:03
Cvp: Yedekleme hakkında - Yazar: perisanoglu - 07/11/2012, 12:49
Cvp: Yedekleme hakkında - Yazar: Kur@l - 07/11/2012, 13:19
Cvp: Yedekleme hakkında - Yazar: perisanoglu - 07/11/2012, 16:00
Task