ikutan nimbrung Bagaimana Caranya untuk mengaktifkan kembali tombol shift dengan cara share dan nonshare
--- In [email protected], "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: [email protected] > > 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 <[EMAIL PROTECTED]>>: > > > >> 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 <[EMAIL PROTECTED]>> > >> 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.rumahaccess.com/> > > > > => > > > > > > > > > > > > -- > [Haer Talib] > Office Access MVP > Meet me at www.RumahAccess.com > > => >
