Dear Lai...., Tolong dong gmana caranya untuk menampilkan data yang terfilter dalam Dbgrid misalnya yang alamatnya di Jakarta aja, atau yang namanya benny aja gitu.
Thanks sebelumnya. Benny ----- Original Message ---- From: Lai Min Feng <[EMAIL PROTECTED]> To: [email protected] Sent: Friday, December 28, 2007 10:14:31 AM Subject: RE: [Programmer-VB] Tips n Triks membatasi input pada TextBox nambahin jg.. If Not IsNumeric(Text1) Then MsgBox "Bukan Data Numeric" Else MsgBox "Data Numeric" End If Note: Text1 --> Textbox jika text1 = textbox.. maka sebaiknya dijadiin text1.text jangan text1 doang... memang umumnya bisa.. karena vb otomatis melakukan typecasting. .. dari tipe textbox diambil textnya.. tapi pada kasus2 tertentu coding seperti ini bisa menyebabkan error yang akan membingungkan anda... karena bisa jadi di computer laen jalan... tapi di beberapa komp laen error... jadi sebaiknya jadi seperti ini : If Not IsNumeric(Text1. text) Then MsgBox "Bukan Data Numeric" Else MsgBox "Data Numeric" End If Note: Text1 --> Textbox ============ ========= == http://www.fire888. com -----Original Message----- From: Programmer-VB@ yahoogroups. com [mailto:Programmer- [EMAIL PROTECTED] com]On Behalf Of Stefanus Agus Setiawan Sent: Friday, December 28, 2007 9:33 AM To: Programmer-VB@ yahoogroups. com Subject: Re: [Programmer- VB] Tips n Triks membatasi input pada TextBox ikutan nambahin juga yach, kalau untuk validasi input tipe angka saya biasanya pakai code dibawah ini. If Not IsNumeric(Text1) Then MsgBox "Bukan Data Numeric" Else MsgBox "Data Numeric" End If Note: Text1 --> Textbox salam Agus Setiawan ----- Original Message ---- From: Sodik Ihwan <sodik_ihwan@ yahoo.com. sg> To: Programmer-VB@ yahoogroups. com Sent: Friday, December 28, 2007 8:45:13 AM Subject: Re: [Programmer- VB] Tips n Triks membatasi input pada TextBox 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.ActiveContr ol.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, .-" & _ "ABCDEFGHIJKLMNOPQR STUVWXYZ" & _ " abcdefghijklmnopqrs tuvwxyz" & _ "[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/Perempua n 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 <lilis.5ury4n1@ yahoo.co. id> 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 Yahoo! Groups Links Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. ____________________________________________________________________________________ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
