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
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa
No comments:
Post a comment