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 conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
'
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError 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 <[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 <[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
=>
