Terimakasih bang Haer dan Bang Lusky Merdeka...!!!
Andik coba dulu
--- In [email protected], Lusky Kurniawan <[EMAIL PROTECTED]>
wrote:
>
> 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
>
