VBA Message Box Dan Cara Penggunaannya

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)

AllBlogToolsFacebook comments for blogger brought to you by AllBlogTools.com , Get Yours?