Penulisan kodenya telah dijelaskan dalam bukunya Bang Haer (Kupas Tuntas Access Security). Esensi dari disableshiftkey adalah ChangeProperty "AllowBypassKey" , DB_BOOLEAN, False Bila ingin menangaktifkan kembali, dapat merubah nilai false menjadi true. Sederhananya, buat 2bh modul (enable dan disable). Kemudian buat 2 bh tombol pada form. Sertakan tiap modul tadi pada masing2 form. Skrg tinggal klik aja... Sebaiknya gunakan AutoKey agar lebih fleksibel...
--- On Thu, 24/7/08, David <[EMAIL PROTECTED]> wrote: From: David <[EMAIL PROTECTED]> Subject: [belajar-access] Re: Disable tombol shift (Maaf saya lupa) To: [email protected] Date: Thursday, 24 July, 2008, 11:05 AM ikutan nimbrung Bagaimana Caranya untuk mengaktifkan kembali tombol shift dengan cara share dan nonshare --- In belajar-access@ yahoogroups. com, "Haer Talib" <[EMAIL PROTECTED] ..> wrote: > > Bisa dari MDB yang lain. > Tapi tekniknya sebaiknya tdk di-share! > > Haer > > > 2008/7/22 harry siswanto <[EMAIL PROTECTED] ..>: > > > ikutan Nimbrung > > > > > > > > nah untuk mengembalikan lagi caranya gimana ?? > > > > apa bisa dari MDB yg lain ?? > > > > atau .....???? > > > > > > > > --- On *Tue, 7/22/08, Haer Talib <[EMAIL PROTECTED] ..>* wrote: > > > > From: Haer Talib <[EMAIL PROTECTED] ..> > > Subject: Re: [belajar-access] Re: Disable tombol shift (Maaf saya lupa) > > To: belajar-access@ yahoogroups. com > > Date: Tuesday, July 22, 2008, 12:43 PM > > > > Coba masukkan code berikut ini pada sebuah module umum (create new > > module kalau perlu). > > > > Function ChangeProperty( strPropName As String, varPropType As Variant, > > varPropValue As Variant) As Integer > > Dim dbs As Object, prp As Variant > > Const conPropNotFoundErro r = 3270 > > Set dbs = CurrentDb > > On Error GoTo Change_Err > > ' > > dbs.Properties( strPropName) = varPropValue > > ChangeProperty = True > > > > Change_Bye: > > Exit Function > > > > Change_Err: > > If Err = conPropNotFoundErro r Then ' Property not found. > > > > Set prp = dbs.CreateProperty( strPropName, varPropType, > > varPropValue) > > dbs.Properties. Append prp > > Resume Next > > Else > > ' Unknown error. > > ChangeProperty = False > > Resume Change_Bye > > End If > > End Function > > > > > > lalu eksekusi perintah: > > > > ChangeProperty "AllowBypassKey" , DB_BOOLEAN, False > > > > bisa di immediate window atau taruh dalam sub lalu jalankan/call sub nya > > > > CUATION! > > Kalau anda menjalankan perintah di atas, maka SHIFT akan lumpuh pada waktu > > buka MDB berikutnya, anda bisa lock out. > > Buat backup MDB anda sebelum menjalankannya. > > > > Salam, > > Haer Talib > > > > > > 2008/7/21 Rosana Dewi <rosana.dewi@ gmail.com <rosana.dewi@ ...>>: > > > >> Dear Mas Mas yang udah bantuin, sebelumnya saya ucapin makasih..saya > >> udah coba tapi kok ngga mau ya...?? > >> Saya coba saran dari Mas Sws_Sby, sesuai dengan yang ditulis di-email, > >> tapi shift keynya masih berfungsi dan database window masih bisa > >> diexplorasi. > >> > >> Saya juga coba saran dari Mas Soffan...tapi kok malah error..mungkin saya > >> kurang bisa menempatkan codingnya ke module atau kurang bisa bikin macronya. > >> > >> > >> Mas bisa ngga bikin mdb sederhana (1 table, 1 form sebagai contoh > >> penggunaannya) . > >> > >> Beribu maaf mas...telah ngerepotin. > >> > >> Terima kasih > >> Dewi > >> > >> > >> > >> > >> On 7/20/08, Rosana Dewi <rosana.dewi@ gmail.com <rosana.dewi@ ...>> > >> wrote: > >>> > >>> Dear para pakar, > >>> > >>> Saya pernah baca artikel ini dibahas di forum, cuman saya udah ngga > >>> ketemu lagi nyarinya..bantuin dong. > >>> > >>> Gimana caranya biar user tidak bisa mencegah start up dengan menekan > >>> tombol shift pada saat buka program. Karena log in screen yg saya bikin jadi > >>> di skip dan user bisa dengan leluasa obok2 database window saya. > >>> > >>> Please help ya... > >>> > >>> Terima kasih banyak sebelumnya > >>> Dewi > >>> > >>> > >>> > >> > >> > > > > > > -- > > [Haer Talib] > > Office Access MVP > > Meet me at www.RumahAccess. com <http://www.rumahacc ess.com/> > > > > => > > > > > > > > > > > > -- > [Haer Talib] > Office Access MVP > Meet me at www.RumahAccess. com > > => > Send instant messages to your online friends http://uk.messenger.yahoo.com
