Coba seperti ini
If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 46 Or KeyAscii =
vbKeyBack Or KeyAscii = 13) Then KeyAscii = 0
If KeyAscii = 13 Then
Command1.SetFocus
End If
mario <[EMAIL PROTECTED]> wrote:
Permisi semua nya.
Saya minta bantuan temen-temen sekalian,
Saya mw validasi agar input hanya berupa angka!
Ato berupa “tombol enter”
Sedikit codingnya:
Private Sub Text3_Keypress(KeyAscii As Integer)
If (Not KeyAscii >= Asc("0") Or Not KeyAscii <= Asc("9")) _
Or KeyAscii <> Asc(vbBack) Or Not KeyAscii = 13 Then
MsgBox "Input harus berupa angka", vbOKOnly, "Warning"
Text3.Text = ""
End If
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Bagaimana yah???
Klo pake coding ini, walaupun input nya = angka 0-9
Tetap akan menuju msgbox.
Trima kasih buat pencerahannya
---------------------------------
Never miss a thing. Make Yahoo your homepage.
