MS ACCESS MAILING LIST: Re: [belajar-access] Re: mencari % kesamaan 2 string

Friday, April 1, 2011

Re: [belajar-access] Re: mencari % kesamaan 2 string

saya coba dulu pak, minimal teridentifikasi dulu

terima kasih banyak

On 4/1/11, sudarsono <jkssbma@yahoo.com> wrote:
> coba buat module , lalu ketik :
>
> Function testsama()
> namanya = "i wayan dana"
> testnama = "dana i wayan"
> testnama = "dana i nyoman"
>
> namanya = UCase(namanya)
> testnama = UCase(testnama)
>
> arkata = Split(testnama, " ")
> ' karena index array dimulai dari 0 (nol),
> ' maka ditambah 1
> JumKata = UBound(arkata) + 1
>
> For Each a In arkata
> If InStr(1, namanya, a) Then YgSama = YgSama + 1
> Next
> If YgSama = JumKata Then
> testsama = True
> MsgBox "sama"
> Else
> testsama = False
> MsgBox "beda"
> End If
>
> '---
> kadang susah juga menentukan orang dgn nama yg sama , merupakan orang yg
> sama pula. Idealnya ya No Indentitas ( KTP ) sbg patokannya.
> NI tsb dapat dipakai untuk kepentingan Pemilu, Pajak, Pencegahan Korupsi (
> apa bisa ? ), dsb.
>
> =======
>
>
> End Function
> --- In belajar-access@yahoogroups.com, rizald al kaaf <r.alkaaf@...> wrote:
>>
>> salam,
>> saya lagi bingung ni mencari % kemiripan dari 2 tabel nama (nama Bali,
>> yg banyak banget mirip2nya), dan kebetulan penulisan dari 2 tabel yang
>> saya miliki ini berbeda, contoh :
>>
>> tabel 1: i wayan dana
>> tabel 2: dana i wayan
>>
>> ini contoh sederhana yang sebenarnya merupakan orang yang sama namun
>> karena diambil dari database yang berbeda dan cara input/system yang
>> berbeda, hasil akhirnya jadi beda
>>
>> secara umum text yg ada pada tabel saya melebihin 4 kata yang dipisah
>> menggunakan spasi
>>
>> mohon pencerahan,
>>
>
>
>