Re: [Programmer-VB] Re: validasi lagi nih,, logika nya ga nemu

[Oldy Rompas]

semoga koding ini bisa membantu......soalnya saya newbie juga.
   
  Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii > 57 Or KeyAscii < 48) And KeyAscii <> 13 And KeyAscii <> 27 And 
KeyAscii <> Asc(vbBack) Then
MsgBox "Masukkan angka 0-9", vbCritical, "Perhatian"
KeyAscii = 0
End If
End Sub


       
---------------------------------
Never miss a thing.   Make Yahoo your homepage.