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 <[email protected]> To: [email protected] 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
