Kalo menurut saya sih Data nggak perlu di Protect seperti itu, Toh yg kita pegang/miliki adalah hak cipta atas Aplikasinya/PROGRAMNYA> Jadi Data tergantung Maintenance oleh User / Pemilik Data. Karena dari Permission juga bisa di berikan akses hanya untuk orang tertentu daja yg boleh meng-akses
Pada 14 April 2009 10:57, budi laksamana <[email protected]> menulis: > > > tak ada yang bisa cegah. > pakai VB dengan backend mdb pun, tak bisa cegah. > mdb ya memang begitu. > > mdb is not the same as server database, we must accept that. > > ubah aja ke database server SQL, MySQL, Oracle... > itupun bisa aku gunakan backup file nya, kecuali di encrypt > > cheers, > budilaks > > > --- In [email protected] <belajar-access%40yahoogroups.com>, > Sumiyanto - <sumiya...@...> wrote: > > > > 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 > > > > >
