Soru Veritabanı şifrelemek

[k0081]

Merhaba Arkadaşlar;

Aşağıdaki kod ile veritabanını şifreli ve okunamaz bir şekilde güncelleyebiliyorum.

Yalnız şöyle bir sorun var;

Şifrelemeyi sadece bir veriye göre yapıyor. yani veriyi aynı şekilde kaydediyor...

yapmak istediğim SIRAYLA şifreleyerek gitmesi... bunun için makro kodunu nasıl düzenlemeliyim ?

Private Sub Sifrele_Click()
txtdat.Text = "Programs"
Set mydata = OpenDatabase(App.Path + "\" + "Arsiv.mdb")
Set myrecord = mydata.OpenRecordset(txtdat.Text)
Do Until myrecord.EOF
          
                With myrecord
                    .Edit
                    !Xklavye = kodla(Trim(txtName.Text))
                    !Lispdosya = kodla(Trim(txtlisp.Text))
                    !Xaciklama = kodla(Trim(txtaciklama.Text))
                    .Update
                End With
myrecord.MoveNext
Loop
mydata.Close
PutInTheListTheRecords
End Sub

yardımıcı arkadaşa şimdiden Teşekkürler...

 

[k0081]

********** BU KONU ÇÖZÜLMÜŞTÜR **********