Public Function YedekleWinRAR()
 
' herhangi bir formda yedeklemeyi tetiklemek için bir buton altına fonkiyonun başındaki YedekleWinRAR adını ekleyerek yedekleme yapabilirsiniz
 
    On Error GoTo ErrHandler
    
    Dim kaynakDosya As String
    Dim hedefKlasor As String
    Dim hedefDosya As String
    Dim zamanDamgasi As String
    Dim WinRARYolu As String
    Dim komut As String
    
    ' --- Yedeklenecek ana Access dosyası
    kaynakDosya = "C:\Users\xxxxx\OneDrive\Desktop\dosya_adi.mdb"  ' <-- buraya kendi dosya yolunu yaz
    
    ' --- Yedeklerin kaydedileceği klasör
    hedefKlasor = "C:\Users\xxxx\OneDrive\Desktop\klasor_adi\"  ' <-- buraya istediğin klasörü yaz
    If right(hedefKlasor, 1) <> "\" Then hedefKlasor = hedefKlasor & "\"
    
    ' --- WinRAR yolu
    WinRARYolu = "C:\Program Files\WinRAR\WinRAR.exe"  ' <-- WinRAR.exe'nin tam yolu
    
    ' --- Dosya adı + tarih
    zamanDamgasi = Format(Now, "yyyymmdd_hhnnss")
    hedefDosya = hedefKlasor & "Yedek_" & zamanDamgasi & ".rar"
    
    ' --- Komut oluştur (WinRAR ile sıkıştırma)
    komut = """" & WinRARYolu & """ a -ep1 """ & hedefDosya & """ """ & kaynakDosya & """"
    
    ' --- Komutu çalıştır
    Shell komut, vbHide
    
    MsgBox "Yedekleme başlatıldı: " & vbCrLf & hedefDosya, vbInformation, "Başarılı"
    
    Exit Function
ErrHandler:
    MsgBox "Yedekleme hatası: " & err.Description, vbCritical, "Hata"
End Function