yedekleme yolunu değişitmek
Tarih
27/06/2013 13:45
Konu Sahibi
zetyu
Yorumlar
4
Okunma
1007
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
zetyu
Aktif Üye
Kullanici Avatari
Aktif Üye
132
12/03/2009
0
Belirtilmemiş
Ofis XP
Çözüldü 
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


Ek Dosyalar
.rar   ydk.rar (Dosya Boyutu: 27,69 KB / İndirme Sayısı: 4)
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.908
29/10/2008
916
Ankara
Ofis 2010 32 Bit
Bugün,01:55
Çözüldü 
Sponsor Reklam
bunu kullan..


Ek Dosyalar
.rar   ydk-celoyce.rar (Dosya Boyutu: 61,61 KB / İndirme Sayısı: 18)
Cevapla

zetyu
Aktif Üye
Kullanici Avatari
Aktif Üye
132
12/03/2009
0
Belirtilmemiş
Ofis XP
Çözüldü 
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
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.594
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,00:24
Çözüldü 
Sponsor Reklam

Visual Basic Code
Let strBackupName = Path & "\YEDEK\" & strBackupName

kodunu aşağıdaki ile değiştiriniz.

Visual Basic Code
Let strBackupName = "d:\yedek\" & strBackupName


Cevapla

zetyu
Aktif Üye
Kullanici Avatari
Aktif Üye
132
12/03/2009
0
Belirtilmemiş
Ofis XP
Çözüldü 
Ellerinize sağlık ..teşekkür ederim

işlem tamam
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Vt Yedekleme Ve Bakım Uygulaması V3 Uygulamasını Oto Yedek Almamasını Ayarlamak uMits 4 104 19/05/2017, 10:27 uMits
  Klasöre görerek yedekleme yapmak musteri53 3 276 19/11/2016, 21:30 ozanakkaya
Çözüldü Veritabanı yedekleme kodu emir ustaoğlu 10 1.795 09/09/2015, 19:45 emir ustaoğlu
Çözüldü yedekleme programında varsayılan accessman 13 3.484 07/03/2013, 22:54 perisanoglu
Çözüldü Yedekleme hakkında perisanoglu 3 1.227 07/11/2012, 16:00 perisanoglu


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status