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
Çözüldü #2
Sorumun cevabını yine forumumuzda aşağıdaki konuda buldum..Daha öncede aramıştım ama bulamamıştım..Ama neyse emeği geçen herkese teşekkürler...sorun çözülmüştür..
Ozan kardeşimin 6.mesajındaki örnekten yararlandım.. Emeği için kendisine ayrıca teşekkürler...

yedekleme programında varsayılan
Cevapla
Çözüldü #3
Kendin pişir kendin ye olmuş.
Kolay Gelsin.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #4
(07/11/2012, 13:19)Kur@l yazdı: Kendin pişir kendin ye olmuş.
Kolay Gelsin.

Teşekkürler sayın kur@l sizede kolay gelsin..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task