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

Friday, April 1, 2011

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

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,
>