AccessTr.neT
yedekleme yolunu değişitmek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: yedekleme yolunu değişitmek (/konu-yedekleme-yolunu-degisitmek.html)



yedekleme yolunu değişitmek - zetyu - 27/06/2013

Kullandığım yine sitenizden aldığım bir yedekleme kodu var .aynı dosya içine yedekleme yapabiliyorum
Özellikle bunu kullanmamın sebebi çok hızlı bir şekilde başka form açılırken yedeklemeyi hemen yapıyor ancak tüm çabalarıma rağmen yedek yolunu değiştiremedim mesela(d:\yedek\ ) içine atmak istiyorum

daha önceden sorulmuş ama çözüme ulaşamadım.ilgilenen arkadaşlara teşekkür ederim


Dim strDB As String
Dim strBackupName As String
DoCmd.Hourglass -1
Let strDB = "ydk.mdb"
Let strBackupName = Date & "_" & strDB
Path = CurrentProject.Path
Let strDB = Path & "\" & strDB
Let strBackupName = Path & "\YEDEK\" & strBackupName
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.CopyFile strDB, strBackupName, True
DoCmd.Hourglass 0


Cvp: yedekleme yolunu değişitmek - C*e*l*o*y*c*e - 27/06/2013

bunu kullan..


Cvp: yedekleme yolunu değişitmek - zetyu - 27/06/2013

cevabınıza ve ilginize çok teşekkür ediyorum
verdiğiniz örnek yolu kendim göstermem gerekiyor ama.ben kodun içine yolu yazmak istiyorum ve özellikle bu kodu kullanmak istiyorum.


Path = CurrentProject.Path yerine path="C:\888\" yazdım olmadı.

Let strDB = Path & "\" & strDB yerine Let strDB = ="C:\888\" & "\" & strDB yazdım olmadı.
.
Ben bu örnekte kodun içine yolu yazmak istiyorum.

Path = CurrentProject.Path
Let strDB = Path & "\" & strDB
Let strBackupName = Path & "\YEDEK\" & strBackupName


Cvp: yedekleme yolunu değişitmek - ozanakkaya - 27/06/2013

Let strBackupName = Path & "\YEDEK\" & strBackupName
kodunu aşağıdaki ile değiştiriniz.

Let strBackupName = "d:\yedek\" & strBackupName



Cvp: yedekleme yolunu değişitmek - zetyu - 27/06/2013

Ellerinize sağlık ..teşekkür ederim

işlem tamam