+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bağlı tabloda yedek (/konu-bagli-tabloda-yedek.html)
Bağlı tabloda yedek - herdogan - 22/02/2010
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
Cvp: Bağlı tabloda yedek - Taruz - 22/02/2010
Merhaba..
...
........
Let strBackupName = Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmm") & "_" & strDB
......
................
Bu şekilde biçimlendirebilirsiniz..
Cvp: Bağlı tabloda yedek - herdogan - 22/02/2010
Teşekkürler Taruz;
istediğim oldu