Re: [belajar-access] mengambil nilai numeriknya saja

iya sudah bisa pak. kalau mau di ganti ke function gimana ya?

On 1/11/11, edi rosadi <edirosadie@yahoo.com.sg> wrote:
> 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 PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/