Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
07/11/2012 11:03
Konu Sahibi
perisanoglu
Yorumlar
3
Okunma
1366
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

perisanoglu

Emirdağlı
Kullanici Avatari
Aktif Üye
M.... Y....
142
30/10/2008
64
Ankara
Ofis 2007
26/01/2017,13:13
Çözüldü 
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?..

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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

perisanoglu

Emirdağlı
Kullanici Avatari
Aktif Üye
M.... Y....
142
30/10/2008
64
Ankara
Ofis 2007
26/01/2017,13:13
Çözüldü 
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

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
Bugün,01:23
Çözüldü 
Kendin pişir kendin ye olmuş.
Kolay Gelsin.


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla

perisanoglu

Emirdağlı
Kullanici Avatari
Aktif Üye
M.... Y....
142
30/10/2008
64
Ankara
Ofis 2007
26/01/2017,13:13
Çözüldü 
(07/11/2012, 13:19)Kur@l Adlı Kullanıcıdan Alıntı: Kendin pişir kendin ye olmuş.
Kolay Gelsin.


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


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 300 05/10/2017, 14:38 anno
Çözüldü Emlak Takip Programları Hakkında Yardım oguzhanulger 2 164 28/08/2017, 18:07 simendifer
Çözüldü Yedekleme Uygulamasında Eski Yedeğin Silinmemesi Ve Günde 3 Yedek pfilcik 4 250 14/08/2017, 18:52 ozanakkaya
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 1.059 14/07/2017, 08:32 Gokcen Akan
Çözüldü Verileri Taşıma Hakkında. serkan1985 4 317 02/06/2017, 20:51 serkan1985

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