Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
22/02/2010 19:16
Konu Sahibi
herdogan
Yorumlar
2
Okunma
1717
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

herdogan

Aktivasyon Bekleyen
 44
 34
 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



Kullanici Avatari

Taruz

Aktif Üye
 Belirtilmemiş
 4
 104
 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..



Kullanici Avatari

herdogan

Aktivasyon Bekleyen
 44
 34
 130
 21/12/2008
 Edirne
 
 Ofis 2003
 10/06/2016,21:25
Çözüldü 
Teşekkürler Taruz;
istediğim oldu




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Tabloda Hesaplanmış Alanda Formül Oğuz Türkyılmaz 5 131 15/01/2019, 16:24
Son Yorum: Oğuz Türkyılmaz
Çözüldü Açılan Kutudaki Seçime Bağlı Olarak Raporun Güncellenmesi alimadam 4 210 28/12/2018, 15:49
Son Yorum: haliliyas
Çözüldü Tabloda Telefon No Alanında Biçimlendirme Sonrası Liste Kutusunda Renk Değişiyor. Oğuz Türkyılmaz 3 104 12/12/2018, 16:36
Son Yorum: Oğuz Türkyılmaz
Çözüldü Tabloda Birden Fazla Alanı Sorguda Tek Alanda Listeleme hbal09 2 154 06/11/2018, 14:22
Son Yorum: hbal09
Çözüldü Database'e Bağlı Olan Excel İn Database'i Bloklaması damacanasu 1 113 22/10/2018, 20:20
Son Yorum: ozanakkaya

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