Merhabalar;
Aşağıdaki kodlarla yedek alıyorum. Yedek günün tarihi ve dosya adıyla kaydediliyor. Buna Saati de ekleyebilir miyiz?
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

AccessTr.Net Forumlarında Uyulması Gereken Genel Kurallar
6-) Sorununuz ile ilgili konu açtıysanız lütfen aynı soru ile ilgili tekrar konu açmayınız. Ayrıca, açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız, başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]

10-) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Konuya örnek uygulama eklemek zorunludur. Mutlaka örnek uygulama (14. Maddede belirtildiği şekilde) ekleyin. Gerekirse aldığınız hata kodlarını, resimlerini ekleyin. Sorunuzu mutlaka konuya yazınız, konuya soru içeren slayt eklemeyiniz. bu şekilde sorunlarınızı daha kolay anlayabilir, sizlere daha rahat yardımcı olabiliriz.
[Uyarı Puanı: +2]

Tamamdır Sledgeab hemen düzelticem