Untuk melindungi BE sebaiknya gunakan fungsi ReadOnlyHideTable melalui VBA. Ini pun sudah lumayan lah.. paling tidak... bs terlindungi FE/BE nya... walaupun sy menyadari sejauh ini belum ada aplikasi access yang BENAR-BENAR MERDEKA dari si pengintip... tak terkecuali Al Quran Databasenya Kang OPI, Aplikasinya Bang Haer apalagi Aplikasinya Saya..... :) Semuanya masih bs ditembus oleh si pengintip.... Trus gimana???? yaaa.. yakinkan saja bahwa dari jutaan pengguna access, tidak semuanya senang main mata alias NGINTIP :D
--- On Wed, 13/8/08, andikprabowo <[EMAIL PROTECTED]> wrote: From: andikprabowo <[EMAIL PROTECTED]> Subject: [belajar-access] Mohon Trik link pakai VBA ke BE (melindungi BE diintip oleh user lain) To: [email protected] Date: Wednesday, 13 August, 2008, 7:30 PM Langsung aja...kawan2 sekalian permisi mo gabung.... met malam semua mohon maaf untuk publikasi relinktables pak Haer dari buku Kupas Tuntas minta penjelasan, ada pesan kesalahan pada dim dbs as database dan koreksinya atas list berikut ini : Function relinkTables( ) Dim newpathname As String Dim dbs As Database ' compile error' user-defined type not defined Dim tdf As tabledef Dim tdfs As tabledefs Set dbs = CurrentDb Set tdfs = dbs.tabledefs newpathname = Nz(getmemory( "\\TRA\Pegawai. mdb"), "") DBPASSWORD = Nz(getmemory( "andik"), "") On Error Resume Next For Each tdf In tdfs If ((tdf.Attributes And dbsystemObject) = 0) And Not (tdf.Name Like "~*") Then tdf.connect = ";DATABASE=" & newpathname & " ;PWD=" & DBPASSWORD tdf.refreshlink End If Next Set tdfs = Nothing Set dbs = Nothing On Error Resume Next securingTables End Function thank U semua.. Send instant messages to your online friends http://uk.messenger.yahoo.com
