Ada kalanya dalam sebuah textbox kita harus mengisikan angka saja, seperti jumlah suatu barang atau jumlah uang. Hal ini dikarenakan data ini nanti akan di kalkulasi atau dihitung dengan data angka yang lain. Apabila dalam textbox tersebut bisa diisi selain angka, besar kemungkinan akan terjadi error apabila user salah input data.
Bagaimana untuk mengantisipasi agar user hanya bisa menginput angka saja? Berikut adalah contoh yang saya gunakan pada "Tjumlah" (textbox dengan nama Tjumlah) yang saya buat hanya bisa diisi angka saja. Event yang dideteksi adalah pada saat textbox tersebut diisi atau keypress. Dari event ini kita bisa memilih keyascii agar huruf atau inputan selain angka tidak bisa masuk. ASCII (American Standart Code Information Interchange) adalah suatu standar internasional dalam kode huruf dan simbol seperti Hex dan Unicode.
Berikut coding yang digunakan,
Private Sub Tjumlah_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 44, 46
Case Else
MsgBox "Hanya angka yang bisa dimasukkan", vbCritical + vbOKOnly, "Warehouse"
KeyAscii = 0
End Select
End Sub
Semoga bermanfaat
0 comments:
Posting Komentar