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

perisanoglu

Aktif Üye
59
Mu.... YI....
 48
 19
 142
 30/10/2008
64
 Ankara
 
 Ofis 2007
 19/01/2018,16:12
Çö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




perisanoglu

perisanoglu

Aktif Üye
59
Mu.... YI....
 48
 19
 142
 30/10/2008
64
 Ankara
 
 Ofis 2007
 19/01/2018,16:12
Çö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



...........
Kur@l

Kur@l

Uzman
266
 43
 59
 2.034
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 01/05/2019,23:41
Çö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.

perisanoglu

perisanoglu

Aktif Üye
59
Mu.... YI....
 48
 19
 142
 30/10/2008
64
 Ankara
 
 Ofis 2007
 19/01/2018,16:12
Çö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..




...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Liste Kutusu Yada Açılan Kutu Hakkında programmer67 6 341 26/03/2019, 15:21
Son Yorum: programmer67
Çözüldü Fonksiyon Tuşları Hakkında Oğuz Türkyılmaz 2 289 15/02/2019, 12:44
Son Yorum: Oğuz Türkyılmaz
Çözüldü Sql Kodun Düzenlenmesi Hakkında sercann 8 420 29/01/2019, 23:10
Son Yorum: sercann
Çözüldü Me.keypreview = True Hakkında Oğuz Türkyılmaz 2 224 26/01/2019, 19:02
Son Yorum: Oğuz Türkyılmaz
Çözüldü Metin Kutularında Hesaplama Hakkında Oğuz Türkyılmaz 2 197 24/01/2019, 10:34
Son Yorum: Oğuz Türkyılmaz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.