Teman-teman mw nanya tentang validasi coding
Sub validasi()
If namacustomertxt.Text = "" Then
MsgBox " Nama tidak boleh kosong ", vbOKOnly, "Warning"
namacustomertxt.SetFocus
ElseIf IsNumeric(namacustomertxt.Text) Then ' MASALAH ADA DI BAGIAN INI
MsgBox " Nama harus berupa character ", vbInformation, "Warning"
namacustomertxt.SetFocus
With namacustomertxt
.SelStart = 0
.SelLength = Len(namacustomertxt.Text)
End With
ElseIf teleponcustomertxt.Text = "" Then
MsgBox " Telepon tidak boleh kosong ", vbOKOnly, "Warning"
teleponcustomertxt.SetFocus
end if
end sub
pertanyaannya:
kenapa koq validasinya ngak jalan?
Klo saya input:
Dsfdfsf --> dia langsung lanjut ke validasi teleponcustomertxt.text
Klo saya input:
3453453453 --> validasi bisa jalan dengan semestinya
Klo inputnya berupa:
Dsfsdfsd435 --> kenapa langsung lanjut ke validasi teleponcustomertxt.text
???
Bagiamana caranya supaya inputnya hanya berupa "huruf" saja? Tetapi simbol
juga tidak diperbolehkan..
Trims buat temen-temen yang mw ngejawab this simple question.
thx
