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

k0081

Altın Üye
Katılım
17 Haziran 2008
Mesajlar
1,340
Beğeniler
14
Excel Vers. ve Dili
Excel 2007-2010 Türkçe
#1
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:

Taruz

Uzman
Uzman
Katılım
18 Nisan 2007
Mesajlar
2,061
Beğeniler
4
Excel Vers. ve Dili
Access 2019
#2
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:

k0081

Altın Üye
Katılım
17 Haziran 2008
Mesajlar
1,340
Beğeniler
14
Excel Vers. ve Dili
Excel 2007-2010 Türkçe
#3
Taruz;

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

k0081

Altın Üye
Katılım
17 Haziran 2008
Mesajlar
1,340
Beğeniler
14
Excel Vers. ve Dili
Excel 2007-2010 Türkçe
#6
Hocam ben rar dosyalarından bahsediyorum , ekleyebilirmisiniz ,? İndiremedim.
 

k0081

Altın Üye
Katılım
17 Haziran 2008
Mesajlar
1,340
Beğeniler
14
Excel Vers. ve Dili
Excel 2007-2010 Türkçe
#10
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