Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/06/2013 13:45
Konu Sahibi
zetyu
Yorumlar
4
Okunma
1199
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
29/05/2017,03:40
Çö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.993
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,12:19
Çözüldü 
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
29/05/2017,03:40
Çö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.870
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,10:24
Çözüldü 

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
29/05/2017,03:40
Çö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
Çözüldü Yedekleme Uygulamasında Eski Yedeğin Silinmemesi Ve Günde 3 Yedek pfilcik 4 256 14/08/2017, 18:52 ozanakkaya
Çözüldü Vt Yedekleme Ve Bakım Uygulaması V3 Uygulamasını Oto Yedek Almamasını Ayarlamak uMits 4 346 19/05/2017, 10:27 uMits
Çözüldü Klasöre görerek yedekleme yapmak musteri53 3 457 19/11/2016, 21:30 ozanakkaya
Çözüldü Veritabanı yedekleme kodu emir ustaoğlu 10 2.329 09/09/2015, 19:45 emir ustaoğlu
Çözüldü yedekleme programında varsayılan accessman 13 3.963 07/03/2013, 22:54 perisanoglu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.