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

Wednesday, January 12, 2011

Re: [belajar-access] mengambil nilai numeriknya saja

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