Re: [belajar-access] mengambil nilai numeriknya saja

coba ini :   Private Sub Text8_LostFocus() Dim teks As Integer Dim angka As String Dim karakter As String   teks = Len(Text8) angka = ""   For i = 1 To teks  karakter = Mid(Text8, i, 1)  If karakter = "0" Or karakter = "1" Or karakter = "2" Or karakter = "3" Or karakter = "4" Or karakter = "5" Or karakter = "6" Or karakter = "7" Or karakter = "8" Or karakter = "9" Then    angka = angka & Mid(Text8, i, 1)  End If Next i Text10 = angka End Sub belum menemukan cara untuk menyederhanakan :   If karakter = "0" Or karakter = "1" Or karakter = "2" Or karakter = "3" Or karakter = "4" Or karakter = "5" Or karakter = "6" Or karakter = "7" Or karakter = "8" Or karakter = "9" Then Salam, Edi Rosadi Algoritma dan Pemrograman Peta Industri dan Wisata Cilegon       komersilkan blog atau website anda dengan bergabung di sini atau di sini   --- On Wed, 12/1/11, him mah <himmah.mlg@gmail.com> wrote: From: him mah <himmah.mlg@gmail.com> Subject: [belajar-access] mengambil nilai numeriknya saja To: "belajar-access" <belajar-access@yahoogroups.com> Date: Wednesday, 12 January, 2011, 8:07 AM   misal saya buat 2 textbox, textbox1 dan textbox2 textbox1 isinya bisa semua data textbox2 isinya data numerik dari data textbox1 misal di textbox 1 kita isi data sbb: 125a maka di textbox2 muncul 125 12abc maka di textbox2 muncul 12 1256 maka di textbox2 muncul 1256 dst.. kira-kira rumus atau formulanya seperti apa ya terima kasih sebelumnya

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___