Monday, April 21, 2014

VBA Message Box Dan Cara Penggunaannya

www.AstroDigi.com AstroDigi.com | Sabtu, 19 Apr 2014 | Saat user sedang menginput data yang keliru, kadangkala muncul kotak peringatan, yang memberitahu kesalahan apa yang dilakukannya. Nah kotak yang muncul tersebut disebut sebagai Message Box (kotak pesan).

Message box juga kadangkala muncul sebagai konfirmasi atas pekerjaan yang dilakukan user misalnya saat melakukan penghapusan record data: "Apakah anda akan menghapus record ini?"
Atau misalnya pada saat melakukan printing: "Apakah anda ingin mencetak laporan ini?"
Dan masih banyak lagi contoh lainnya.

Programmer MS Access dan VB dapat memanfaatkan fasilitas Message Box yang sudah disediakan, dengan format perintah sebagai berikut:

MsgBox («Pesan», «Tipe», «Judul»)

Pilihan Tipe:
0 = Tombol OK
1 = Tombol OK & Cancel
2 = Tombol Abort, Retry & Ignore
3 = Tombol Yes, No & Cancel
4 = Tombol Yes & No
5 = Tombol Retry & Cancel

Pilihan Tipe dapat ditambah dengan:
256 = Tombol kedua dari kiri sebagai default
512 = Tombol ketiga dari kiri sebagai default

Pilihan Tipe juga dapat ditambah dengan icon sebagai berikut:
16 = Icon tanda silang
32 = Icon tanda tanya
48 = Icon tanda seru
64 = Icon huruf i (=info)

Pilihan Tipe tersebut juga dapat ditambah perintah untuk  memastikan semua aplikasi non-aktif saat pesan muncul yaitu:
4096 = Semua aplikasi non aktif sampai tombol ditekan

Contoh:
MsgBox "Apakah anda ingin menambahkan data baru?", 4+256+32, "TAMBAH DATA"

atau boleh juga langsung dijumlahkan tipe-nya menjadi:

MsgBox "Apakah anda ingin menambahkan data baru?", 292, "TAMBAH DATA"

Maka hasilnya akan muncul message box dengan judul disisi atasnya "TAMBAH DATA", dan tulisan pada kotak "Apakah anda ingin menambahkan data baru?", dengan pilihan jawaban "NO" sebagai pilihan defaultnya, plus ada icon tanda tanya yang tampil disitu.


Mengambil Nilai Jawaban Dari User

Saat user mengklik tombol yang tampil pada message box, sebenarnya sebuah nilai dikirimkan ke sistem. Nilai ini bisa diambil, dan bila diperlukan bisa digunakan sebagai bagian dari sebuah pengambilan keputusan yang dilakukan oleh user.

Nilai jawaban tersebut adalah sebagai berikut:
1 = OK
2 = Cancel
3 = Abort
4 = Retry
5 = Ignore
6 = Yes
7 = No

Contoh:

IsiData = MsgBox "Apakah anda ingin menambahkan data baru?", 4+256+32, "TAMBAH DATA"

If IsiData = 6 Then    'Ini berarti bila "YES", maka perintah berikut dijalankan
 . . . . .
 . . . . .
 . . . . .

End If

Selamat mencoba . . . have a nice day :-)


 www.AstroDigi.com (Nino Guevara Ruwano)

Comments :

6 comments to “VBA Message Box Dan Cara Penggunaannya”

Trims untuk Panduannya :)
Box Makanan

Kotak said...
on 

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

ninest123 Ninest said...
on 

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

ninest123 Ninest said...
on 

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

ninest123 Ninest said...
on 

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

ninest123 Ninest said...
on 

abercrombie and fitch,abercrombie and,abercrombie,abercrombie kids,abercrombie fitch,abercrombie.com
nike air force 1, http://www.airforce1.us.com/
michael kors factory store,michael kors outlet online sale,michael kors,kors outlet,michael kors outlet,michael kors handbags,michael kors outlet online,michael kors handbags clearance,michael kors purses,michaelkors.com,michael kors bags,michael kors shoes,michaelkors,cheap michael kors
lebron james shoes, http://www.lebronjamesshoes.in.net/
ralph lauren polo shirts, http://www.poloralphlaurenshirts.us.com/
babyliss, http://www.babyliss.us.com/
timberland boots, http://www.timberlandboots.name/
ralph lauren shirts, http://www.poloralphlaurenshirts.us.com/
prada outlet, http://www.pradashoes.us/
karen millen dresses, http://www.karenmillendressesoutlets.co.uk/
seattle seahawks jerseys, http://www.seattleseahawksjersey.us/
miami heat jersey, http://www.miamiheatjerseys.net/
ray ban sunglasses, http://www.ray-bansunglassess.in.net/
michael kors outlet, http://www.michaelkorsoutletonlinstore.us.com/
coach outlet store, http://www.coachoutletstores.com.co/
mulberry outlet, http://www.mulberryoutlet.com.co/
tods shoes, http://www.todsshoes.us.com/
mac cosmetics,m a c cosmetics,mac makeup,maccosmetics.com,mac cosmetics outlet
nike foamposite, http://www.foampositeshoe.net/
kk0915

小 Gg said...
on 

Post a Comment

Related Posts Plugin for WordPress, Blogger...