iya deh saya koreksi menjadi improvement :). namanya juga diskusi.... bagaimana mencari solusi terbaik dengan script sesingkat mungkin supaya script aplikasi yang kita bangun semakin ramping. Semakin banyak ide yang keluar akan semakin baik.
Salam,
Edi Rosadi komersilkan blog atau website anda dengan bergabung di sini atau di sini
--- On Thu, 13/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: Thursday, 13 January, 2011, 1:10 AM
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 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 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
|
|
|
|
|
No comments:
Post a Comment