"share" yg saya maksudkan "dibagi" ke orang lain. saya menganjurkan utk tdk membagi teknik menghidupkan fungsi bypass key dari MDB lain karena bisa digunakan utk melumpuhkan startup dr program yg sudah mematikan tombol shift tsb. yg sdh menemukan sendiri caranya, tentu orang yg kreatif, dan bagi orang kreatif, lebih mudah membuat sendiri program ketimbang "mengambil" prog org lain.
jadi bukan dalam pengertian "shared" dan "exclussive". Haer 2008/7/24 David <[EMAIL PROTECTED]>: > 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 > > > > => > > > > > > ------------------------------------ > > SPAM IS PROHIBITEDYahoo! Groups Links > > > > -- [Haer Talib] Office Access MVP Meet me at www.RumahAccess.com =>
