Validasi Karakter TextBox

CARA MEMVALIDASI PENGETIKAN KARAKTER DALAM TEXTBOX

Berdasarkan pengalaman penulis sebelum-sebelumnya dalam membuat aplikasi ms access 2003, selalu saja penulis temukan karakter-karakter yang tidak pada tempatnya, misalnya untuk field nama yang harusnya hanya berupa teks, namun ada banyak record atau data dalam tabel untuk field nama yang berisi karakter angka, ataupun karakter-karakter yang lain yang tidak seharusnya atau dengan kata lain penulis belum pernah mendengar ada seseorang yang namanya ada karakter-karakter khusus seperti karakter &, %, #, [, ] dan karakter-karakter khusus yang lainnya. Tentunya anda sebagai pembuat aplikasinya tidak menginginkan hal itu terjadi bukan ?, yang belum lagi kemungkinan terjadinya error, karena ada karakter khusus dalam field yang karakter tersebut termasuk kedalam karakter operator penghubung dalam penulisan SQL (Structure Query Language). Berikut ini adalah cara untuk mencegah penginputan karakter angka atau karakter huruf dalam suatu TextBox ketika user mengetik karakternya. Untuk hal ini kita hanya perlu menggunakan event On KeyPress, serta mengetahui karakter set dari Key Ascii untuk setiap karakter huruf/angka. berikut ini adalah contohnya :

Jika hanya huruf yang boleh diinput oleh user :

Private Sub Text1_KeyPress(KeyAscii As Integer)

'65 sampai 90 adalah huruf kecil, 97 sampai 122 adalah huruf besar

'8 adalah Backspace, 9 adalah Tab, 13 adalah Enter, 32 adalah Spasi

     Select Case KeyAscii

          Case 65 To 90, 97 To 122, 8, 9, 13, 32

          Case Else

          KeyAscii = 0

          MsgBox "Hanya Huruf Alphabet a-z, A-Z dan <Spasi> yang diperbolehkan", vbInformation
      End Select
End Sub
Dari code diatas, jika user mengetik atau menekan tombol selain yang termasuk kedalam Alphabet, Tab, Backspace, Enter, dan spasi, maka access akan menampilkan pesan MsgBox diatas.

Jika hanya angka yang diperbolehkan :
Private Sub Text1_KeyPress(KeyAscii As Integer)
'48 sampai 57 adalah angka 0 sampai 9, 44 adalah Koma, 45 adalah negatif, 46 adalah Titik
'8 adalah Backspace, 9 adalah Tab, 13 adalah Enter, 32 adalah Spasi
      Select Case KeyAscii
           Case 48 To 57, 8, 9, 13, 32, 44 To 46
           Case Else
           KeyAscii = 0
           MsgBox "Hanya Angka/Nomor dan (, . -) yang diperbolehkan", vbInformation
      End Select
End Sub

Dari code diatas, jika user mengetik atau menekan tombol selain yang termasuk kedalam Numeric, Tab, Backspace, Enter, dan spasi, maka access akan menampilkan pesan MsgBox diatas.

Semoga Bermanfaat...

Posted in: tips n trik