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

Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
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.
 
Son düzenleme:
Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
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
 
Son düzenleme:
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Taruz;

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

systran

Destek Ekibi
Destek Ekibi
Katılım
15 Aralık 2007
Mesajlar
1,573
Excel Vers. ve Dili
2007 [TR], 2013 [TR]
Sezarın hakkı sezara ;)
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Hocam ben rar dosyalarından bahsediyorum , ekleyebilirmisiniz ,? İndiremedim.
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Kod:
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...

Kod:
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
 
Son düzenleme:
Üst