Bağlı tabloda yedek
Tarih
22/02/2010 19:16
Konu Sahibi
herdogan
Yorumlar
2
Okunma
1413
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
herdogan
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
130
21/12/2008
Edirne
Ofis 2003
10/06/2016,21:25
Çözüldü 
Bağlı tablomun yedeğini aşağıaki kodla alıyorum. Bu koda yedek dosyayı bu günün tarihi ile isimlendiriyor. Tarih ve saatle isimlendirebilirmiyiz?
msg = msg & "Data Dosyanı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 = "DATA1.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

msg = MsgBox("Yedekleme İşlemi Başarı ile Tamamlandı.:" & vbCrLf & vbCrLf & strBackupName, vbInformation, "ÖĞRENCİ TAKİP ASİSTANI")

DoCmd.Hourglass 0



End If


Ek Dosyalar
.rar   YEDEKLEME.rar (Dosya Boyutu: 15,13 KB / İndirme Sayısı: 12)
Cevapla

Taruz
Aktif Üye
Kullanici Avatari
Aktif Üye
104
4
04/10/2009
20
Belirtilmemiş
Belirtilmemiş
10/06/2014,13:15
Çözüldü 
Sponsor Reklam
Merhaba..

...
........
Let strBackupName = Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmm") & "_" & strDB
......
................


Bu şekilde biçimlendirebilirsiniz..
Cevapla

herdogan
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
130
21/12/2008
Edirne
Ofis 2003
10/06/2016,21:25
Çözüldü 
Teşekkürler Taruz;
istediğim oldu
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 111 19/05/2017, 10:27 uMits
  Tabloda Kayıt Yoksa Formu Açma barcins 3 122 16/05/2017, 11:20 barcins
  Tabloda Seçili Satıra Ait Veriyi Güncelleme pelitt 14 307 13/05/2017, 12:22 atoz112
  Giriş Yaparken Tabloda Tanımlı İse Kaydetsin barcins 8 184 12/05/2017, 10:14 barcins
  Şarta Bağlı Tarih Atma kübrashn 4 103 04/05/2017, 18:13 kübrashn


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