memang, semakin mudah user bisa mengakses fisik data, maka semakin mudah pula data dapat 'diintip'. Kalo mas sumiyanto menggali kembali, Kitab Sakti KTAS,
mungkin perlu menerapkan tentang ULS digabung dengan mdw, jurus itu menurutku sudah cukup ampuh, meski mungkin masih bisa ditembus. 2009/4/13 Sumiyanto - <[email protected]> > > > Selamat sore rekan2.. > > mohon penjelasan, bagaimana membuat agar object table di database BE, dan > object lain di database FE tidak bisa di import dari database lain. Yang > sudah saya lakukan compile file.mdb ke *.mde dan sudah gunakan fungsi hide > object pada tools>options. tetapi hanya tampak tidak terlihat saja, tapi > masih bisa di import dari database lain. > > ini ada code spt dalam buku KTAS, mohon bantuan rekan2 bagaimana cara > menerapkan dalam aplikasi > > '-------------------------------------------- > Sub SecuringTables(Optional nHide As Integer = 1) > Dim db As Database > Set db = CurrentDb > For i = 0 To db.TableDefs.Count - 1 > If Left(db.TableDefs(i).Name, 4) = "mSys" Or _ > Left(db.TableDefs(i).Name, 1) = "~" Or _ > Left(db.TableDefs(i).Name, 4) = "Usys" Then > 'Not a Table > Else > db.TableDefs(i).Attributes = nHide '1=Hide > '0=Normal > End If > Next > Set db = Nothing > End Sub > '------------------------------------------------ > Sub HideQueries(Optional bHide As Boolean = True) > Dim obj As AccessObject, dbs As Object > Set dbs = Application.CurrentData > For Each obj In dbs.AllQueries > Application.SetHiddenAttribute acQuery, obj.Name, bHide > Next obj > End Sub > > Sub HideForms(Optional bHide As Boolean = True) > Dim obj As AccessObject, dbs As Object > Set dbs = Application.CurrentProject > For Each obj In dbs.AllForms > Application.SetHiddenAttribute acForm, obj.Name, bHide > Next obj > End Sub > > Sub HideReports(Optional bHide As Boolean = True) > Dim obj As AccessObject, dbs As Object > Set dbs = Application.CurrentProject > For Each obj In dbs.AllReports > Application.SetHiddenAttribute acReport, obj.Name, bHide > Next obj > End Sub > > '------------------------- > > Terima kasih, > Sumiyanto > > > > -- --------------------------------------------- grapyak-semanak-cluthak http://djmumun.wordpress.com ---------------------------------------------
