Validasi Inputan Textbox Khusus Angka

Pernahkah anda dipusingkan dengan sebuah textbox yang berfungsi untuk menginputkan data gaji ???

Nah ada kan ???

Inputan pada textbox tersebut yang diijinkan hanyalah angka, tombol delete, tombol backspace dan tombol enter. Untuk tombol delete dan tombol enter sih secara otomatis pasti berfungsi, masalahnya tinggal 2 hal, yaitu (1) Bagaimana supaya hanya angka saja yang bisa diinputkan, (2) Bagaimana supaya tombol backspace tetap berfungsi sebagaimana mestinya ???

Oke ini pembahasannya ...

Contoh kita memiliki sebuah textbox dengan nama "txtgaji" yang kita gunakan untuk menginputkan data gaji. Maka codingnya adalah seperti di bawah ini :

Private Sub txtgaji_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End Sub

Ingat !!! coding itu diketik pada event KeyPress miliknya textbox yang bernama "txtgaji"