menambahkan saja Bu, kalo saya biasanya pake ini:
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
ValidIsi 7, KeyAscii
If KeyAscii = vbKeyReturn Then
If Trim(Me.ActiveControl.Text) = "" Then Exit Sub
ObjekBerikutnya TxtAlamat
End If
End Sub
Public Sub ValidIsi(ModeNa As Byte, AsciNa As Integer, _
Optional JadiHurufBesar As Boolean = False, _
Optional JadiHurufKecil As Boolean = False)
Dim KarakterSah As String, i As Integer
If ModeNa = 1 Then KarakterSah = "0123456789"
If ModeNa = 2 Then KarakterSah = "0123456789-"
If ModeNa = 3 Then KarakterSah = "0123456789."
If ModeNa = 4 Then KarakterSah = "0123456789.-"
If ModeNa = 5 Then KarakterSah = "0123456789,."
If ModeNa = 6 Then KarakterSah = "0123456789,.-"
If ModeNa = 7 Then KarakterSah = "0123456789,.-" & _
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
" abcdefghijklmnopqrstuvwxyz" & _
"[EMAIL PROTECTED]&*()_+-=[]\{}|;:/<>?€"
&
Chr(34)
If ModeNa = 8 Then
KarakterSah = ""
For i = 0 To 255
KarakterSah = KarakterSah + Chr(i)
Next i
End If
If ModeNa = 11 Then KarakterSah = "PWpw" 'Pria/Wanita
If ModeNa = 12 Then KarakterSah = "LPlp" 'Laki-laki/Perempuan
If ModeNa = 13 Then KarakterSah = "YTyt" 'Ya/Tidak
If ModeNa = 14 Then KarakterSah = "YNyn" 'Yes/No
If ModeNa = 15 Then KarakterSah = "SIsi" 'Suami/Istri
If AsciNa > 26 Then
If InStr(KarakterSah, Chr(AsciNa)) = 0 Then AsciNa = 0
End If
If JadiHurufBesar = True Then AsciNa = Asc(UCase(Chr(AsciNa)))
If JadiHurufKecil = True Then AsciNa = Asc(LCase(Chr(AsciNa)))
End Sub
salam,
sodik
On Thu, 27 Dec 2007 14:24:43 +0700, Lilis <[EMAIL PROTECTED]>
wrote:
> hallo programmer
>
> sedikit trik nih utk membuat validasi inputan, contoh ini biasanya dibuat
> spy user ga salah menginput.
>
> ketik kodingnya spt dibawah ini pada event keypress
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> If (Not KeyAscii >= Asc("A") Or Not KeyAscii <= Asc("Z")) _
> And (Not KeyAscii >= Asc("0") Or Not KeyAscii <= Asc("9")) _
> And KeyAscii <> Asc(vbBack) Then
>
> MsgBox "Hanya huruf dan Angka aja"
>
> End If
> End Sub
>
> kode diatas hnya membatasi user utk menginput huruf atau angka dan
> backspace
> utk menghapus kalo ada kesalahan
> dan hurufnya nya pun cuma bisa huruf besar aja jadi perlu ditambah spy
> bisa
> juga utk huruf kecil dan juga mungkin
> perlu ditambah spasi ( itu PR yg hrs diselesaikan ) dan kalo
> diperhatikan,
> aku menggunakan sintak Asc daripada Chr, kenapa?
> karena kalo memakai chr kombinasinya kan dgn angka sehingga bacanya agak
> susah bagi orang awam spt aku.
> tapi kalo menggunakan asc spt diatas, kodenya jadi jelas dan maksudnya
> dapat
> dimengerti.
>
> ok semoga bermanfaat, sampe ketemu di trik berikutnya :-)
>
> salam
> lilis
>
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Send instant messages to your online friends http://asia.messenger.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/Programmer-VB/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
