Monday, February 2, 2015

Memanfaatkan InputBox Pada MS Access

www.AstroDigi.com AstroDigi.com | Senin, 2 Feb 2015 | Kali ini saya akan membahas cara penggunaan InputBox di aplikasi MS Access. InputBox adalah fungsi yang disediakan bagi user untuk menginput text, lewat sebuah "dialog box" yang tampil secara "pop up" (kotak/ window yang muncul didepan window yang sudah terbuka sebelumnya).

Sintax paling sederhana dari InputBox adalah:
InputBox(prompt)

Contoh:
Dim KetikNama
KetikNama = InputBox("Ketikkan nama Anda")
MsgBox ("Nama Anda: " & KetikNama)      
-----------------------------------------------------------
User bisa menambahkan title/ judul, sintaxnya adalah:
InputBox(prompt[, title])

Contoh:
Dim KetikNama
KetikNama = InputBox("Ketikkan nama Anda", "Kotak Untuk Isi Nama")
MsgBox ("Nama Anda: " & KetikNama)      
-----------------------------------------------------------
User juga bisa menambahkan text "default" (text yang ditetapkan sebagai input, sebelum user mengetikkan input) :
InputBox(prompt[, title][, default])

Contoh:
Dim KetikNama
KetikNama = InputBox("Ketikkan nama Anda", "Kotak Untuk Isi Nama", "AstroDigi")       
MsgBox ("Nama Anda: " & KetikNama)      
-----------------------------------------------------------
Anda bisa memanfaatkan fasilitas InputBox ini sebagai sarana untuk mempassword sebuah form atau juga seluruh aplikasi anda, jadi sebelum masuk kedalam aplikasi user diminta untuk mengetikkan password dulu.

Sisipkan script berikut dievent OnOpen form sebagai berikut:

passwordKu = InputBox("Ketikkan password Anda", "Kotak Untuk Isi Password", "AstroDigi")        
if passwordKu <> "123456789" then cancel = -1
    Exit Sub
End If
-----------------------------------------------------------
Saat form dibuka, event OnOpen akan mengeksekusi instruksi diatas. Jika user tidak mengisi dengan password yang benar (= 123456789), maka form tidak akan terbuka.

Tentu saja passwordnya bisa anda ganti sesuka anda (tidak harus "123456789"). Dan bila anda ingin keluar dari aplikasi, apabila terjadi kesalahan input password (bukan hanya mencegah sebuah form terbuka), maka anda bisa mengganti Exit Sub dengan instruksi "Quit".

Akhir kata selamat mencoba, have a nice day :-)

 www.AstroDigi.com (Nino Guevara Ruwano)

Comments :

9 comments to “Memanfaatkan InputBox Pada MS Access”

3
michael kors handbags
louis vuitton uk
oakley outlet
nba jerseys wholesale
pandora
fitflop shoes
cheap nhl jerseys
adidas wings
michael kors outlet
replica watches
cheap snapbacks
karen millen sale
coach outlet store online
hollister
nhl jerseys wholesale
air jordan concord
kate spade uk
coach outlet
insanity workout
pandora jewelry
lacoste outlet
tiffany jewelry
michael kors outlet store
cheap mlb jerseys
true religion outlet
tory burch outlet online
soccer jerseys for sale
thomas sabo bracelet
louis vuitton outlet online
valentino sale
asics running shoes
burberry outlet
christian louboutin shoes
hollister clothing
air jordan shoes
giuseppe zanotti sale
longchamp handbags
michael kors handbags
tiffany and co
louboutin shoes
cheap ray ban sunglasses
20150330maoqiuyun

mao yun said...
on 

boston celtics jersey
air max 2014
the north face uk
christian louboutin uk
ugg boots
michael kors uk
nike air max uk
mbt shoes
chicago bulls jersey
san francisco 49ers jerseys
denver broncos jerseys
hermes outlet
nike free 5.0
swarovski uk
nike free uk
canada goose outlet
oakland raiders jerseys
chicago bears jerseys
soccer shoes
michael kors uk
indianapolis colts jerseys
michael kors outlet
moncler coats
miami dolphins jerseys
ray ban sunglasses
nike roshe
koby bryant shoes
manchester united jersey
chanel outlet
los angeles lakers jerseys
evening dresses
air max 90
arizona cardinals jerseys
nike huarache
san antonio spurs jerseys
ysl outlet
the north face outlet
the north face outlet store
beats headphones
surpa sneakers
a chang 0609

Guo Guo said...
on 

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

ninest123 Ninest said...
on 

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

ninest123 Ninest said...
on 

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

ninest123 Ninest said...
on 

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

ninest123 Ninest said...
on 

chanel bags

converse

converse shoes

designer handbags

ed hardy

eyeglasses online

eyeglass frames

ray ban

ray ban outlet

ray bans

ray ban sunglasses

ray ban sunglasses

ray-ban sunglasses

ray ban wayfarer

replica handbags

replica watches

jordan retro

rolex watches

rolex watches

watches

rolex watches for sale

roshe run

roshe runs

salvatore ferragamo

soccer shoes

womens clothing

ferragamo

ferragamo shoes

hair straightener

giuseppe zanotti

gucci handbags

gucci outlet

gucci outlet

gucci shoes

Ww Weng said...
on 

polo ralph lauren, http://www.poloralphlauren.us.org/
celine outlet store, http://www.celineoutletus.com/
basketball shoes, http://www.basketballshoes.us.com/
pandora jewelry, http://www.pandorajewelryoutlet.us.com/
green bay packers jerseys, http://www.greenbaypackersjersey.us/
football shirts uk,soccer jerseys uk,cheap soccer jerseys uk
michael kors wallet, http://www.michaelkorswallet.net/
nba jerseys, http://www.nbajerseys.us.com/
oakley sunglasses, http://www.oakleysunglassesdiscount.us.com/
nike air force 1, http://www.airforce1.us.com/
north face jackets, http://www.thenorthfaceclearances.us.com/
oakley outlet online, http://www.oakleyoutlet.in.net/
hermes outlet online, http://www.hermesoutletstore.us.com/
oklahoma city thunder jerseys, http://www.thunderjerseystore.com/
mizuno running, http://www.mizunorunningshoes.us/
louboutin uk, http://www.christianlouboutinoutlet.org.uk/
ralph lauren polo shirts, http://www.poloralphlaurenshirts.us.com/
air jordan 13, http://www.airjordan13s.com/
michael kors outlet,michael kors outlet online,michael kors,kors outlet,michael kors handbags,michael kors outlet online sale,michael kors handbags clearance,michael kors purses,michaelkors.com,michael kors bags,michael kors shoes,michaelkors,cheap michael kors
dansko clogs, http://www.dansko-shoes.us/
the north face outlet, http://www.northface-outlet.cc/
the north face uk, http://www.thenorthfaces.org.uk/
kk0915

小 Gg said...
on 

longchamp handbags, http://www.longchamphandbag.us.com/
nike air max shoes, http://www.nikeairmaxshoess.co.uk/
michael kors outlet store, http://www.michaelkorsoutlet-store.us.com/
toms outlet, http://www.tomsoutlet-stores.com/
cheap wedding dresses, http://www.cheap-weddingdresses.net/
soccer jerseys,cheap soccer jerseys,cheap soccer jerseys for sale,soccer jersey,usa soccer jersey,football jerseys
lululemon outlet, http://www.lululemonoutletstore.in.net/
beats headphones, http://www.beats-headphones.in.net/
mont blanc, http://www.montblancpensoutlets.com/
fred perry polo, http://www.fredperrypoloshirts.com/
nike mercurial, http://www.nikemercurial.org/
cheap michael kors handbags, http://www.cheapmichaelkorshandbag.in.net/
louis vuitton outlet online, http://www.louisvuitton.in.net/
ysl outlet store, http://www.ysloutletonline.com/
kobe bryant store, http://www.kobebryantshoes.in.net/
longchamp bags, http://www.longchamphandbag.us.com/
bottega veneta outlet, http://www.bottegaveneta-outlet.net/
washington redskins jerseys, http://www.washingtonredskinsjersey.com/
rolex watches, http://www.rolexwatches.in.net/
giuseppe zanotti sale, http://www.giuseppe-zanotti-outlet.org/
mm0917

mmjiaxin said...
on 

Post a Comment

Related Posts Plugin for WordPress, Blogger...