validasi string pada vb (fungsi validasi tombol keyboard)

Tips ini banyak diterapkan untuk menvalidasi suatu text box agar pada waktu input ke database bisa sesuai dengan tipe data yang digunakan, misal text box hanya menampilkan angka atau huruf saja, untuk lebih jelasnya lihat script berikut :

tips untuk menampilkan angka saja :

'Hanya karakter 0 sampai dengan 9 saja.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

'Cara di atas hanya menerima karakter 0 sampai dengan 9 'saja. Agar tombol lainnya seperti Delete, BackSpace, 'dan SpaceBar juga bisa diterima, Anda bisa menggunakan 'tips di bawah ini:

Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub

tips untuk menghindari karakter tertentu :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
'Ganti '!@#$%^&*()_+=' dengan karakter yang Anda
'inginkan untuk dihindari diinput pada Text1
sTemplate = "!@#$%^&*()_+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then _
KeyAscii = 0
End Sub


--semoga bermanfaat--