[code=vba]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_ad