[size=medium][font=Times New Roman]Access(Akses) Aç Kapa Yedekle Accdb ZIP ISO 7z Sessizce

[color=#FF0000]YedekleME: Beni yedekle anlamında araçtır. VBA'da kodlanmıştır. 2002-2003-2007-2010 üsürmlerinde çalışır.

http://dl.dropbox.com/u/79396533/Access....ekleME.zip

Merhaba, 2010 ile kendim içni hazırladığım (sürekli avt'mi kaybettiğim için) kodu paylaşmak istedim. Kendisi kod ama ek bir aracın işlevine sahiptir. Arayüzünün de olmasını istemiy

Otomatik olarak yine bu forumdan öğrendiğim metotla dosyayı rar yapabiliyorum. Taruz hocanın yardımıyla ;
Sub trz()
Dim klsryol As String
klsr = Forms!form1.yol
WinRARX = Environ$("ProgramFiles") & "\WinRAR\winrar.exe"


ExecCmd WinRARX & _
" -m5 -ep a " & Chr(34) & Left$(klsr, Len(klsr)) & ".rar" & _
Chr(34) & " " & Chr(34) & klsr & Chr(34)

'MsgBox "Sıkıştırma başarıyla tamamlandı..", vbCritical, "Taruz.."
End Sub


Ben benzer bir işlemi