v\:* {behavior:url(#default#VML);}o\:* {behavior:url(#default#VML);}w\:*
{behavior:url(#default#VML);}..shape
{behavior:url(#default#VML);}st1\:*{behavior:url(#default#ieooui) }
Coba validasinya pake keyascii aja taro ditextbox_keyup
If isnumeric(text1.text) then
Keyascii= 0
Else
‘bla..bla
End if
Gak pake else juga boleh
---------------------------------
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of mario
Sent: Friday, February 09, 200718:10
To: [email protected]
Subject: [Programmer-VB][ask]validasi character
Teman-teman mwnanya tentang validasi coding
Sub validasi()
If namacustomertxt.Text= "" Then
MsgBox " Nama tidak bolehkosong ", vbOKOnly, "Warning"
namacustomertxt.SetFocus
ElseIfIsNumeric(namacustomertxt.Text) Then ‘ MASALAH ADA DI BAGIAN INI
MsgBox " Nama harus berupacharacter ", vbInformation, "Warning"
namacustomertxt.SetFocus
With namacustomertxt
..SelStart = 0
..SelLength = Len(namacustomertxt.Text)
End With
ElseIfteleponcustomertxt.Text = "" Then
MsgBox " Telepon tidak bolehkosong ", vbOKOnly, "Warning"
teleponcustomertxt.SetFocus
end if
end sub
pertanyaannya:
kenapa koqvalidasinya ngak jalan?
Klo saya input:
Dsfdfsf à dialangsung lanjut ke validasi teleponcustomertxt.text
Klo saya input:
3453453453 àvalidasi bisa jalan dengan semestinya
Klo inputnyaberupa:
Dsfsdfsd435 àkenapa langsung lanjut ke validasi teleponcustomertxt.text
???
Bagiamana caranyasupaya inputnya hanya berupa “huruf” saja? Tetapi
simbol juga tidakdiperbolehkan..
Trims buattemen-temen yang mw ngejawab this simple question…
thx
---------------------------------
TV dinner still cooling?
Check out "Tonight's Picks" on Yahoo! TV.
