Mdb - Tüm tablolardaki veriyi Şifrelemek-Çözmek

[k0081]

Merhaba arkadaşlar;

Arşiv.mdb dosyasında 5 adet tablo var... Farklı isimlerde... Bu tabloların hepsinin de alan isimleri aynı... ( Her birinde 3 adet alan var. )

Yapmak istediğim;

Çıkış Butonuna bastığımda tüm tablolardaki veriyi Şifreletmek... Form Load olduğunda da çözmek...

Şifreleme ve çözme modülü bende mevcut. Fakat kod dizilimi nasıl olmalıdır..?


yardımcı arkadaşa şimdiden Teşekkürler.

 

[Taruz]

Merhaba..

Formun özellikler-olay-kapandığında olay yordamına şifreleme, anı kısımdaki açıldığında olayına da çözme fonksiyonunu çağırabilirsiniz..

Bu konuda yıllar evvel bir çalışma yapmıştım.. İlave şifreleme ile verileri daha da güvenli halde saklamanızı sağlar..:

https://www.access-sql.com/Konu-SIFRE-DEPOSU-VERILERI-KRIPTOLAMA

 

[k0081]

Taruz;

Hocam bende aynı şekilde yapacağım... Yalnız kodları nasıl alabilirim ?

 

[Taruz]

Taruz;

Hocam bende aynı şekilde yapacağım... Yalnız kodları nasıl alabilirim ?

Dosyayı shift tuşuna basılı olarak açtıktan sonra alt + f11 kombinasyonu ile tüm kodlara erişebilirsiniz..

 

[systran]

Sezarın hakkı sezara

 

[k0081]

Hocam ben rar dosyalarından bahsediyorum , ekleyebilirmisiniz ,? İndiremedim.

 

[k0081]

Sezarın hakkı sezara

?

 

[Taruz]

Örnek çalışma ektedir..

Detayları için bu sayfayı inceleyebilirsiniz..

 

[k0081]

Örnek çalışma ektedir..

Detayları için bu sayfayı inceleyebilirsiniz..

Hocam çok teşekkür ederim. Şu an PC de değilim. Telden yazıyorum .,, deneyip burdan dönüş yaparım .

 

[k0081]

Sub boz()
On Error Resume Next
On Error GoTo Trz
With DoCmd
.SetWarnings True
.RunSQL "UPDATE Mesleki SET Mesleki.Xklavye = boz([xklavye]), Mesleki.Xaciklama = boz([Xaciklama]), Mesleki.lispdosya = boz([lispdosya])"
.SetWarnings False
End With
Trz:
End Sub

Kodu bu şekilde düzenledim.. ama Form close kısmından çalıştıramadım. Fakat hata da vermiyor.

veritabanımla ilgili bir kısım gönderiyorum..; Ben mdb dosyasına bir exe dosya üzerinden bağlantı kuruyorum...

Set mydata = OpenDatabase(App.Path + "\" + "Arsiv.mdb")
Set myrecord = mydata.OpenRecordset(txtdat.Text)
'myrecord.MoveFirst
Do Until myrecord.EOF
        LstContacts.AddItem myrecord.Fields("Xklavye")
        myrecord.MoveNext
        Max = myrecord.RecordCount ' Toplam kayıt sayısı
    
    Loop
mydata.Close

 

[systran]

Sezarın hakkı sezara

?

@Taruz hocamın şifreli çalışması için yazdım o mesajı, şifreli kısım ile alakalı

 

[k0081]

@Taruz hocamın şifreli çalışması için yazdım o mesajı, şifreli kısım ile alakalı

Ok