+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: Access Dosyası Yedekleme Şifre Sorunu (/konu-access-dosyasi-yedekleme-sifre-sorunu.html)
Access Dosyası Yedekleme Şifre Sorunu - pelitt - 17/04/2017
Merhaba Acces dosyamı her açılışta yedeğini alacak şekilde planladım. (Veritabanı Araçları menüsünde Parola ile şifrele menüsü) ile Dosyaya parola koyduğumda yedeklemiş olduğu dosya yani yedek.7z dosyası sıkıştırılmamış oluyor (4MB), parolayı kaldırdığımda sıkıştırılmış oluyor (200KB) anlamadım neden böyle yapıyor.
Ancak şunu yaparsam sanırım sorunum çözülecek. Yedekleme işlemini başlatmadan önce bu parolayı kod ile kaldırma şansım var mı nasıl ?
Cvp: Access Dosyası Yedekleme Şifre Sorunu - pelitt - 07/05/2017
Merhaba aynı konu ile ilgili bir sorum olacaktı tablo parola korumalı bir dosya yedekleme işlemi yapıldığında sıkıştırma işlemi neredeyse hiç olmuyor bunun nedeni nedir acaba bir yanlışlıkmı yapıyorum.
Kod:
Function yedekal()
'Mehmet ESER 29.03.2012 01:22 Perşembe
'avt açıkken yedeklemey yapmaya yarar.
' 'Microsoft Scripting Runtime' referansını eklemelisiniz.
' <a href="http://www.eserbilisim.name.tr" target="_blank">http://www.eserbilisim.name.tr</a>
' <a href="http://access - sql.com" target="_blank">http://access - sql.com</a> da yayınlanmıştır.
' Berkant Öztürk, Adnan Yurdakul ve Zeki Gürsoy'a teşekürler.
'Güncel 7-zip kullanılmıştır. iso, 7z vb uzantılar mevcuttur.
'Komutlar için yardım dosyasına bakınız. winrar gibi uygulamara da uyarlanabilir.
'Uyarıları kaldırınız. Deneme amaçlı konulmuştur.
'Her şeyi ve mantığı Türkçe'dir. El emeği göz nurudur.:-)//
'Hata durumunda [email protected] bildiriniz.
Dim YedekAdi As String
YedekAdi = Format(Date, "(dd.mm.yyyy)") & "_" & Format(Time, "(hh.mm)") & "_" & CurrentProject.Name
If Len(Dir(CurrentProject.Path & "\Yedek", vbDirectory)) = 0 Then
MkDir CurrentProject.Path & "\Yedek"
End If
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.CopyFile CurrentProject.FullName, CurrentProject.Path & "\Yedek\" & YedekAdi, True
Set fso = Nothing
Dim komut As String
Dim zipci As String
Dim kaynak As String
Dim hedef As String
'zipci = CurrentProject.Path & "\Yedek\7za.exe"
'zipci = Replace("""%1""", "%1", zipci)
'hedef = CurrentProject.Path & "\Yedek\" & YedekAdi & ".zip"
'hedef = Replace("""%1""", "%1", hedef)
'kaynak = CurrentProject.Path & "\Yedek\" & YedekAdi
'kaynak = Replace("""%1""", "%1", kaynak)
'komut = zipci & " a " & hedef & " " & kaynak
'Replace(YedekAdi, ".accdb", "")
zipci = "C:\Program Files\7-Zip\7z.exe"
hedef = CurrentProject.Path & "\Yedek\" & Replace(YedekAdi, ".accdb", "") & ".7z"
kaynak = CurrentProject.Path & "\Yedek\" & YedekAdi
Dim T
T = Chr(34) ' çift tırnak
komut = T & zipci & T & " a " & T & hedef & T & " " & T & kaynak & T
Debug.Print komut
Call Shell(komut)
Beep
MsgBox "Yedekleme İşlemi Yapıldı" & Chr(13) & Replace(YedekAdi, ".accdb", "") + ".7z", vbInformation, "Yedekleme Bilgisi:"
Dim silbunu As String
silbunu = CurrentProject.Path + "\Yedek\" & YedekAdi
Dim fsot As New FileSystemObject
fsot.DeleteFile (silbunu)
Set fsot = NothingCvp: Access Dosyası Yedekleme Şifre Sorunu - atoz112 - 07/05/2017
sayın pelitt,
siz de takdir edersiniz ki,
sadece ifadeler ya da bilgisel bazda çözüme yetersiz kalacak sorunlarda içeriğini görmeden,sadece yazılı bilgilere veya eklenen resimlere bakarak çözümler sunmak yetersiz kalacaktır.örnek eklenmesi yerinde olacaktır.
bu nedenle,lütfen,
Site Kuralları gereği;
içeriğinde farazi gerçek dışı uydurma veriler ve işlemlerin neticelerini görebilecek şekilde 4-5 kayıt olacak halde örnek uygulamanızı eklemeye özen gösteriniz.teşekkürler.
bilginize...iyi çalışmalar,saygılar.
Cvp: Access Dosyası Yedekleme Şifre Sorunu - atoz112 - 28/05/2017
sayın pelitt,
konu takibiniz açısından,hatırlatma anlamında;
konunuz ile ilgili son gelişme ne durumdadır.
şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler.
bilginize...iyi çalışmalar,saygılar.