Bağlı tabloda yedek
Tarih
22/02/2010 19:16
Konu Sahibi
herdogan
Yorumlar
2
Okunma
1397
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ü 
Sponsor Reklam
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ü 
Sponsor Reklam
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
  Formda 1 Metin Kutusuna birden fazla Metin Kutusu içeriğini koşula bağlı gösterme hbal09 5 249 06/01/2017, 16:22 atoz112
  Tabloda Telefon numarası yoksa eklesin. 53rize 7 277 18/12/2016, 15:30 53rize
  Tabloda kesişen kayıdın bulunup silinmesi nightashes 1 83 18/12/2016, 13:53 nightashes
  iki tablo arasında girilen veriyi ikinci tabloda alan olarak oluşturma yardım bilservisci 8 285 15/12/2016, 11:49 atoz112
  Tabloda ileriki hesaplamalar için kullanılmak üzere seçim yaptırmak nightashes 6 222 02/12/2016, 20:52 atoz112


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