Skip to main content

AccessTr.neT


Otomatik Yedekleme

Otomatik Yedekleme

#19
Hocam dosyayı işyerindeki bilgisayarda denedim ve yedekleme yapıyor. Ancak benim bilgisayarda sıkıntı devam ediyor. Windows ve Office sürümü aynı(Win7 Office 2010) referansları da kontrol ettim. Konu benim PC ile ilgili ama ne olduğunu bir türlü bulamadım.
Cevapla
#20
hayırlı sabahlar
strToTime = Application.CurrentProject.Path & "\yedek\" & zaman & "_" & Application.CurrentProject.Name

bu cümle ile her seferinde tarih ve saat ile yedek alıyor ama "zaman" dosya adının en başına ekleniyor bunun yerine dosyanın sonuna eklesek nasıl yazmamız lazım yani
"20200123_0830_dosyaadi.accdb"  yerine 
"dosyaadi_ 20200123_0830.accdb" yazdırabilir miyiz
Cevapla
#21
Kodu incelerseniz neyin nereye yazıldığı belli yerlerini değiştirmeniz yeterli
Yol + zaman + ad --> yerine --> Yol + ad + zaman
Cevapla
#22
Application.CurrentProject.Name kısmının  "." dan sonrasını ayırıp tekrar sona eklemek lazım değil mi şöyle olur mu

Sub projeYedekle()
    Dim fso As FileSystemObject
    Dim DB As New Access.Application
   
    Dim gun, zaman, strFrom, strTo, strToDate, strToTime As String
    Dim sSourcePath, sSourceFile, sBackupPath, sBackupFile As String
   
    gun = Format(Date, "yyyymmdd")
    zaman = Format(Date, "yyyymmdd") & "" & Format(Time, "hhmm")
   
    sSourceFile = Application.CurrentProject.Name
    sBackupFile = Split(sSourceFile, ".")(0) & "_" & zaman & "." & Split(sSourceFile, ".")(1)
   
    strFrom = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name
    strTo = Application.CurrentProject.Path & "\yedek\" & Application.CurrentProject.Name
    strToDate = Application.CurrentProject.Path & "\yedek\" & gun & "_" & Application.CurrentProject.Name
    strToTime = Application.CurrentProject.Path & "\yedek\" & sBackupFile 'zaman & "_" & Application.CurrentProject.Name
   
    If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then
      MkDir Application.CurrentProject.Path & "\yedek"
    End If
       
    Set fso = New FileSystemObject
    fso.copyFile strFrom, strToTime, True
    Set fso = Nothing
   
    Beep
    MsgBox "Backup was successful and Saved" & "Backup completed"
End Sub
Son Düzenleme: 23/01/2020, 12:07, Düzenleyen: accessman.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da