Re: [belajar-access] Memisah kata

Thu, 28 Jan 2010 22:39:04 -0800

 
mas aksan dan mas belajar office ok terima kasih. ms access memang mantap
 
terima kasih
lukman


--- On Fri, 1/29/10, Aksan Kurdin <[email protected]> wrote:

From: Aksan Kurdin <[email protected]>
Subject: Re: [belajar-access] Memisah kata
To: [email protected]
Date: Friday, January 29, 2010, 3:47 AM

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




Kirim email ke