Re: [belajar-access] Memisah kata

Aksan Kurdin Thu, 28 Jan 2010 19:51:39 -0800

Bagus sekali bpk/ibu, saya coba simulasikan sudah berhasil memenuhi yang diinginkan.

Berikut adalah alternatifnya:

modul:
Public Function GetWordN(theWord As String, number As Integer) As String Dim arrWord() As String, result As String arrWord = Split(theWord, " ") If number > (UBound(arrWord) + 1) Then result = "" Else result = arrWord(number - 1) End If GetWordN = result End Function

query:
SELECT Table1.Field1, GetWordN([Field1],1) AS Nama1, GetWordN([Field1],2) AS Nama2, GetWordN([Field1],3) AS Nama3, GetWordN([Field1],4) AS Nama4, GetWordN([Field1],5) AS Nama5 FROM Table1;
hasil:

aksan kurdin

Belajar Office wrote:

Bpk buat module baru dahulu:

Public Function JmlData(ByVal MyStr, Simbol As String) As Integer
Dim HitungKata As Integer, Posisi As Integer
If VarType(MyStr) <> 8 Or Len(MyStr) = 0 Then
JmlData = 0
Exit Function
End If
HitungKata = 1
Posisi = InStr(MyStr, Simbol)
Do While Posisi > 0
HitungKata = HitungKata + 1
Posisi = InStr(Posisi + 1, MyStr, Simbol)
Loop
JmlData = HitungKata
End Function

Public Function Dataku(ByVal MyStr, MyIndex As Integer, Simbol As String)
Dim HitungKata As Integer, HitungAwal As Integer
Dim PosisiAwal As Integer, PosisiAkhir As Integer
HitungKata = JmlData(MyStr, Simbol)
If MyIndex < 1 Or MyIndex > HitungKata Then
Dataku = Null
Exit Function
End If
HitungAwal = 1
PosisiAwal = 1
For HitungAwal = 2 To MyIndex
PosisiAwal = InStr(PosisiAwal, MyStr, Simbol) + 1
Next HitungAwal
PosisiAkhir = InStr(PosisiAwal, MyStr, Simbol) - 1
If PosisiAkhir <= 0 Then PosisiAkhir = Len(MyStr)
Dataku = Trim(Mid(MyStr, PosisiAwal, PosisiAkhir - PosisiAwal + 1))
End Function

Nanti diquerynya ditambahkan column baru berisi rumus:

Nama1: Dataku([Nama],1," ")

Nama2: Dataku([Nama],2," ")

Nama3: Dataku([Nama],3," ")

Thank's.

From: luqman permata <luqman.permata@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Fri, January 29, 2010 8:53:13 AM
Subject: [belajar-access] Memisah kata

Assalamu'alaikum

mau tanya nih bagaimana ya rumus yang di gunakan untuk memisahkan kata-kata yang ada di kolom dgn query misal:

di field nama ada "budi irawan sanjaya" di pisah menjadi field1 "budi" field2 "irawan" field3 "sanjaya" dan seterusnya

makasih sebelumnya

luqman

Re: [belajar-access] Memisah kata

Kirim email ke