Pembuatan DisableShiftKey hanya sebagian kecil alat keamanan pada database
anda. Implementasinya bolehlah "cukup" dikatakan aman dari user biasa.
Namun, perlu diwaspadai juga adanya tangan - tangan kreatif dan tools yang
mampu mem-Bypass database anda. Oleh karena itu, jangan lupa gunakan
kombinasi sekuriti yang lain agar aplikasi anda tetap terlindungi. Paling
tidak, mampu memperlama proses pengintipan
Inti dari DisableShiftKey :
Public Function DisableShiftKey()
On Error GoTo ShiftError
Dim db As DAO.Database
Dim ShiftKey As DAO.Property
Set db = CurrentDb()
db.Properties("AllowByPassKey") = False
GoTo nol
ShiftError:
Set ShiftKey = db.CreateProperty("AllowByPassKey", dbBoolean, False)
db.Properties.Append ShiftKey
nol:
db.Close
Set db = Nothing
End Function
Salam,
Lusky Kurniawan
www.privat-access.webs.com
*Professional Learning Solution*
Pada 8 Agustus 2009 12:13, eko purnomo <[email protected]> menulis:
>
>
> para suhu yg terhormat...
>
> klo bikin alow bypass shift key nya biar di disable gmn ? ya?...
> - dr cnth yg saya pernah bikin bisa tp tuk di .mdb
> - nyoba dari help-nya Access udah jg tapi ga mau dan ga tau maksudnya
> hehehee...
>
> gimana klo yg saya buat itu .adp, apa di .adp itu ga ada DAO dan adanya
> ADO, mohon penjelasan
>
>
>
