Memanfaatkan InputBox Pada MS Access

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)

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