Saturday, February 25, 2012

MenDISABLE SHIFT Key



AstroDigi.com | Topik yang senantiasa hangat dibicarakan bagi para programmer MS Access adalah bagaimana cara mengatasi bypass dari tombol SHIFT, meskipun bukan sebuah topik mengenai teknik baru, tapi sampai sekarang mash merupakan topik hangat yang selalu diangkat sebagai FAQ (frequently asking question) dikalangan para programmer pemula dan intermediate.

Seringkali saran yang diberikan kurang detail, sehingga gagal pada saat dicoba untuk diaplikasikan. OK, langsung saja, ikuti langkah-langkah berikut: Pertama:
Ketikkan script berikut di module (module apa saja, bebas).


'---------------------------
'Properties Settings Module
'---------------------------
Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue AsVariant) As Integer
On Error GoTo Err_SetProperties
Dim db As DAO.Database, prp As DAO.Property
Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = True
Set db = Nothing
Exit_SetProperties:
Exit Function
Err_SetProperties:
If Err = 3270 Then 'Property not found
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
db.Properties.Append prp
Resume Next
Else
SetProperties = False
MsgBox "SetProperties", Err.Number, Err.Description
Resume Exit_SetProperties
End If
End Function
'---------------------------------

Kedua:
Buat form apa saja lengkapi dengan tombol/button, dan pada even OnClick isikan script ini:

'------------------------------
SetProperties "AllowBypassKey", dbBoolean, False
SetProperties "AllowFullMenus", dbBoolean, False
SetProperties "AllowToolbarChanges", dbBoolean, False
SetProperties "AllowSpecialKeys", dbBoolean, False
SetProperties "StartUpShowDBWindow", dbBoolean, False
SetProperties "AllowBuiltInToolbars", dbBoolean, False
MsgBox "Tombol SHIFT sudah terDISABLE" & vbCrLf & vbLf & "Program tidak bisa lagi
diByPass dengan menekan tombol SHIFT", 48, "Peringatan"
Quit
'-----------------------------------------------------------------

Nah selesai sudah . . . . hanya dengan dua langkah mudah Sekarang coba buka form yang anda buat dan klik tombol yang anda buat, akan anda dapatkan bahwa database anda sudah tidak dapat diBypass kembali. Catatan: jangan lupa melakukan backup database anda sebelum mencobanya, karena setelah set perubahan dijalankan anda tidak bisa melakukan bypass kembali :)

Masih belum yakin? Khawatir gagal saat mencoba? OK, download saja contoh program berikut dengan mengklik: contoh program DISABLE SHIFT KEY
Selamat mencoba :)

www.AstroDigi.com (Nino Guevara Ruwano)

Comments :

10 comments to “MenDISABLE SHIFT Key”

MenDISABLE SHIFT Key

Mohon dijelaskan step by step, cara mendisable shift key di Ms. Access.
Terimakasih banyakkkkk banget kirim ke email saya ya mas brow : ediap1@yahoo.com

ediap said...
on 

ninest123 08.04
nike free, michael kors outlet, oakley sunglasses, true religion jeans, polo ralph lauren outlet, louboutin outlet, louboutin shoes, kate spade outlet, ray ban sunglasses, replica watches, prada handbags, tiffany and co, coach factory outlet, kate spade handbags, christian louboutin outlet, michael kors outlet, longchamp outlet, coach outlet, burberry, nike outlet, chanel handbags, michael kors outlet, oakley sunglasses, burberry outlet online, longchamp, michael kors outlet, polo ralph lauren outlet, coach outlet, coach purses, longchamp outlet, ray ban sunglasses, tory burch outlet, gucci outlet, tiffany jewelry, nike air max, michael kors, oakley sunglasses, michael kors outlet, louboutin, nike air max, jordan shoes, prada outlet

ninest123 Ninest said...
on 

new balance pas cher, north face, ray ban uk, louboutin pas cher, nike air max, hollister, tn pas cher, hollister pas cher, nike free, michael kors, vans pas cher, hermes, sac guess, air jordan pas cher, air max, true religion jeans, lacoste pas cher, ralph lauren pas cher, converse pas cher, vanessa bruno, ralph lauren uk, air force, michael kors, mulberry, nike free run uk, michael kors, nike air max, nike air max, sac longchamp, timberland, true religion outlet, oakley pas cher, true religion jeans, burberry, nike blazer, nike roshe run, lululemon, abercrombie and fitch, ray ban pas cher, north face, longchamp pas cher, hogan

ninest123 Ninest said...
on 

mont blanc, celine handbags, mcm handbags, vans shoes, valentino shoes, baseball bats, nike air max, longchamp, nike huarache, nike trainers, nike roshe, nike roshe, new balance, timberland boots, nfl jerseys, p90x workout, lululemon, ghd, bottega veneta, asics running shoes, north face outlet, hollister, reebok shoes, hollister, soccer jerseys, north face outlet, giuseppe zanotti, beats by dre, soccer shoes, insanity workout, chi flat iron, wedding dresses, iphone 6 cases, oakley, abercrombie and fitch, babyliss, ferragamo shoes, herve leger, jimmy choo shoes, mac cosmetics, instyler, birkin bag

ninest123 Ninest said...
on 

marc jacobs, coach outlet, ugg boots, ray ban, karen millen, louboutin, replica watches, ugg boots uk, swarovski, toms shoes, uggs on sale, links of london, gucci, ugg boots, juicy couture outlet, hollister, thomas sabo, ralph lauren, lancel, ugg,ugg australia,ugg italia, pandora charms, converse, ugg,uggs,uggs canada, bottes ugg, ugg boots, montre pas cher, converse outlet, hollister, swarovski crystal, pandora charms, ugg pas cher, juicy couture outlet, supra shoes, wedding dresses, vans, pandora jewelry, nike air max, ugg boots
ninest123 08.04

ninest123 Ninest said...
on 

marc jacobs
nike foamposite
vans shoes
calvin klein outlet
ralph lauren outlet
michael kors outlet online
swarovski crystal
ferragamo outlet
cheap nike shoes
michael kors handbags sale
oakley,occhiali oakley,oakley italia,oakley occhiali,oakley sunglasses
moncler outlet store
the north face outlet
michael kors factory online
ralph lauren uk
nike air max
asics,asics israel,asics shoes,asics running shoes,asics israel,asics gel,asics running,asics gel nimbus,asics gel kayano
longchamp outlet
michael kors wallet sale
michael kors outlet
mm1203

mmjiaxin said...
on 

uggs for men
oakley sunglasses
coach outlet
ugg outlet
michael kors outlet
michael kors outlet online
ugg australia
christian louboutin outlet
celine bags
uggs on sale
louis vuitton outlet
nike free run
fitflops
ray-ban sunglasses
montblanc
louis vuitton bags
louboutin pas cher
louis vuitton
uggs outlet
instyler curling iron
burberry outlet
ugg boots
cheap oakley sunglasses
louis vuitton
michael kors outlet online
oakley sunglasses
north face jacket
nike air huarache
ralph lauren polo
michael kors outlet
prada outlet
20151208yuanyuan

John said...
on 

2016-05-30keyun
michael kors handbags
michael kors outlet clearance
adidas nmd
tory burch flats
coach outlet store online
kate spade
coach outlet online
louis vuitton handbags
true religion jeans
cheap oakleys
michael kors outlet online sale
beats by dr dre
louis vuitton outlet online
coach outlet online
polo ralph lauren outlet
jordan 6s
longchamp le pliage
michael kors handbags
nike air max uk
coach outlet
nike blazers shoes
adidas outlet store
celine bags
kobe 10
kate spade handbags
michael kors outlet online
coach factory outlet online
ray ban sunglasses
oakley outlet
mont blanc pen
beats by dre outlet
cheap toms
kd 7 shoes
jordan retro 13
montblanc pen
nike roshe run mens
ray bans
louis vuitton handbags
michael kors outlet online

柯云 said...
on 

kobe sneakers
air jordan shoes
coach outlet online
cheap oakley sunglasses
ralph lauren uk
yeezy boost 350
kobe byrant shoes
air jordan retro
michael kors outlet online
http://www.oakley-sunglass.in.net
nike huarache
adidas nmd
michael kors handbags outlet
louis vuitton handbags
tiffany and co
toms outlet
christian louboutin shoes

Chen Jeje said...
on 

ed hardy uk
michael kors uk
michael kors handbags
cheap nba jerseys
michael kors handbags wholesale
nike store uk
abercrombie and fitch kids
nike blazer
rolex replica watches
cheap ray ban sunglasses

raybanoutlet001 said...
on 

Post a Comment

Related Posts Plugin for WordPress, Blogger...