Re: [belajar-access] mengambil nilai numeriknya saja

kalau angkanya selalu di depan, bisa gunakan fungsi val()

contoh di debug windows:




aksan kurdin



On 1/12/2011 12:45 PM, him mah wrote:

 

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
>
>
>
>
>
>
>
>