Skip to main content

AccessTr.neT


Access Dosyası Yedekleme Şifre Sorunu

pelitt
pelitt
3
1163

Access Dosyası Yedekleme Şifre Sorunu

#1
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 ?
Cevapla
#2
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 = Nothing

kullandığım kodlar bu
Cevapla
#3
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task