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], 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 >
