MS ACCESS MAILING LIST: Re: [belajar-access] mengambil nilai numeriknya saja

Terimakasih juga untuk bapak Edy , ini bukan koreksi kok bapak.. , lha ini kan spt dikasih gambar peta saya cuma pilah2 aja. Petanya bapak yg buat.
Yang ini maaf lancang , barangkali bp Himmah keburu , ini ide dari mas A.K dan Bapak

Control Source : =Numja(NZ([TextSource]))

Function Numja(Num$)
'karena Asc ,Karakter bebas tentuin int/str kalau gak tentuin jadi variant spt itu :)
Dim karakter, angka$
angka = ""
'ini enaknya access gak usah deklarasi kalau tanpa explicit , mulai terbiasa ikut2an ... hi...hi..hi..
For I = 1 To Len(Num)
karakter = Asc(Mid(Num, I, 1))
If karakter >= 48 And karakter <= 57 Then
angka = angka & Mid(Num, I, 1)
End If

Next I
Numja = angka
End Function

Salam untuk Bapak Edy,
~ Sioon ~

--- Pada Rab, 12/1/11, edi rosadi <edirosadie@yahoo.com.sg> menulis:

Dari: edi rosadi <edirosadie@yahoo.com.sg>
Judul: Re: [belajar-access] mengambil nilai numeriknya saja
Kepada: belajar-access@yahoogroups.com
Tanggal: Rabu, 12 Januari, 2011, 6:23 AM

terima kasih koreksinya. jadi lebih simpel.....

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, Sioon Mandra <msioon@yahoo.com> wrote:

From: Sioon Mandra <msioon@yahoo.com>
Subject: Re: [belajar-access] mengambil nilai numeriknya saja
To: belajar-access@yahoogroups.com
Date: Wednesday, 12 January, 2011, 12:04 PM

Maaf , ikutan ... bisa disederhanakan semisal begini :

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 IsNumeric(karakter) Then ' = "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

Salam,
~ Sioon ~
--- Pada Rab, 12/1/11, edi rosadi <edirosadie@yahoo.com.sg> menulis:

Dari: edi rosadi <edirosadie@yahoo.com.sg>
Judul: Re: [belajar-access] mengambil nilai numeriknya saja
Kepada: belajar-access@yahoogroups.com
Tanggal: Rabu, 12 Januari, 2011, 4:11 AM

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