codingan Textbox hanya bisa Di input angka Saja

If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
MsgBox "Isikan Angka Saja", 48, "Perhatian"
KeyAscii = 0
End If

atau dengan cara ini
taru di cmd proses


If Not IsNumeric(text1.Text) Then
MsgBox "Masukan Angka Saja ", vbCritical, "Pesan"
Exit Sub
End If

0 Komentar:

Posting Komentar