Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/02/2010 19:16
Konu Sahibi
herdogan
Yorumlar
2
Okunma
1608
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ü 
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
Çözüldü Bağlı Tablonun Sonraki Kaydına Veri Atamak mehmetb84 16 365 23/02/2018, 11:34 mehmetb84
Çözüldü Dmax Sorunu (Veri Türü Kısa Metin Olan Tabloda) Rıfat KARA 15 361 23/01/2018, 23:36 Rıfat KARA
Çözüldü Farklı Tablolardaki Verileri Tek Tabloda Saydırmak hsyn_ 2 123 14/01/2018, 20:35 hsyn_
Çözüldü Tabloda Satırları Sütuna Çevirmek alperadn01 8 261 19/12/2017, 09:40 alperadn01
Çözüldü Birbirine Bağlı Açılır Kutular kadirdursun 6 345 16/11/2017, 18:44 ozanakkaya

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