Memang kurang mengenakkan berhadapan dengan ribuan data yang acak-acakan. Dan kita memiliki tugas untuk memperbaiki.
Benar, seperti kerangka berpikir Sampeyan. Harus ditambah satu alat lagi, agar bekerja lebih nyaman. Kita bisa gunakan fungsi len(variabel), untuk menentukan jumlah karakter. Bila diatas 4 digit, sampaikan ke user. Bila kurang, abaikan.
Kita bisa menambah baris script ini pada Function cek_kata(txt As String)
If Len(Trim(isi(i))) > 4 Then
hasil = hasil & isi(i) & "; "
End If
Namun, menurut saya lebih baik kita buat 1 tabel lagi yang berisi kata-kata diabaikan. Sehingga kita bisa mengeksekusi lebih fleksibel. Tidak tergantung pada jumlah karakter. Tapi pada kata yang telah kita tetapkan. Kalau kurang bisa kita tambah. Bila lebih kita kurangi.
Sehingga Function cek_kata(txt As String) ditambah script:
If IsNull(DLookup("[d]", "t2", "trim([d])='" & Trim(isi(i)) & "'")) Then
hasil = hasil & isi(i) & "; "
End If
Terlampir adalah perbaikan mdb 2003, yang mengakomodasi hal diatas.
Semoga bisa membantu dan memberi semangat.
Hariyanto (Surabaya)
--------------------------------------------
On Sat, 11/1/14, tasurun@gmail.com <tasurun@gmail.com> wrote:
Subject: Re: [belajar-access] Mencari Data yang Mirip
To: belajar-access@yahoogroups.com
Date: Saturday, 11 January, 2014, 7:52 PM
Pak Hariyanto,
maaf, mau nanya lagi,
kalau supaya bisa menampilkan hasilnya hanya yang jumlah
karakter sama minimal 4 bisa ngga ya, karena kata seperti
"jl ds kec / rt rw..dll" lumayan bikin mata
sakit utk melototin satu-satu mengingat datanya ratusan ribu
record.
sekali lagi mohon maaf terima kasih
Reply
via web post
Reply to sender
Reply to group
Start a New
Topic
Messages in this
topic
(5)
Recent
Activity:
New Members
4
Visit Your Group
SPAM IS PROHIBITED
Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback
Attachment(s) from hari yanto
1 of 1 File(s)
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (7) |
Tidak ada komentar:
Posting Komentar