Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
04/01/2011 13:23
Konu Sahibi
by body 1
Yorumlar
4
Okunma
1926
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

by body 1

Aktivasyon Bekleyen
 43
 85
 28
 19/01/2010
 -
 
 Ofis 2003
 13/03/2014,10:00
Çözüldü 
Arkadaşlar merhaba,
Herkese öncelikle hayırlı seneler diliyorum.Aslında site içinde araştırdım fakat benim yapmak istediğim,yaptığım programın tablolarının ve formlarının başka bir veri tabanına ( tablo al ) yöntemiyle kopyalanmaması.Yaptığım programı çalıştığım şirkette ortak klasöre koyarak kullanıma açtım.Fakat dediğim gibi başka bir veritabanı yardımıyla tablolarıma ve formlarıma erişimi engellemek için nasıl bir uygulama yapmam gerekli yada accesste böyle bir uygulama yapılabiliyormu.Tşkr.



Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/11/2018,20:45
Çözüldü 
Bunun için verilerinizi şifreleyerek yazdırabilirsiniz tabloya. Böylece tabloyu alan kişi başka hiçbir yerde kullanamaz. Aşağıdaki konu size yardımcı olacaktır.

https://www.accesstr.net/konu-access-tab...leyin.html


İnadına, ille de Accesstr.net...

Kullanici Avatari

by body 1

Aktivasyon Bekleyen
 43
 85
 28
 19/01/2010
 -
 
 Ofis 2003
 13/03/2014,10:00
Çözüldü 
Hocam ,
Ekteki form üzerinden yardımcı olabilirmisiniz.Kusura bakmayın anlayamadım.Birde bu işlemi kaydet demeden yapamayızmı.Tşkr.



.rar   vt1.rar(Dosya Boyutu: 44,69 KB / İndirme Sayısı: 13)

Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/11/2018,20:45
Çözüldü 
Burada olay tamamen iki fonksiyonla yapılıyor. Bunları aşağıya ayrıca veriyorum.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Function EncryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function


Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function


Daha sonra da kaydet butonu aracılığı ile şu kodlar kullanılarak yazdığınız herşey password cümlesine göre değiştiriliyor:

Kod:
adiniz = EncryptText((txttext), txtpassword)
soyadiniz = EncryptText((txttext1), txtpassword)
adres = EncryptText((txttext2), txtpassword)


Sitemizde öğretmek amaçlı yardımlarda bulunuyoruz. Bu nedenle "şunu yapın" demeden önce nasıl yapıldığını öğrenmeye çalışın. Birşeyler karalayın, sonra biz hatanızı düzeltiriz. Kolay gelsin.


İnadına, ille de Accesstr.net...

Kullanici Avatari

by body 1

Aktivasyon Bekleyen
 43
 85
 28
 19/01/2010
 -
 
 Ofis 2003
 13/03/2014,10:00
Çözüldü 
sn.mehmetdemiral hocam ,Yardımlarınızdan ve katkılarınızdan dolayı teşekkürler.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bir Veri Kutusunun Değerini, Başka Bir Veri Kutusuna Bağımlı Yapabilir Miyim ? A_day 10 195 18/11/2018, 22:24
Son Yorum: A_day
Çözüldü Şifreleme Hatası Hakkında notrino 1 110 03/11/2018, 10:44
Son Yorum: notrino
Çözüldü Veri Tabanındaki Kayıtlı Bilgiyi 2. Veri Tabanında Bulunan Aynı Değişkenlere Kayıt cevahir1 10 538 24/04/2018, 12:03
Son Yorum: cevahir1
Çözüldü Veritabanı Şifreleme Hakkında aliyuzen 4 299 10/11/2017, 14:17
Son Yorum: aliyuzen
Çözüldü Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma 53rize 4 501 25/10/2017, 09:31
Son Yorum: 53rize

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.