[belajar-access] Memisah kata

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Monday, February 01, 2010 10:33 AM
Subject: Re: [belajar-access] Memisah kata

> amiiinnn ..... amin ... amin ........
>
> aksan kurdin
>
>
>
> tio.adjie@ptssb.co.id wrote:
> >
> > [Attachment(s) <#TopText> from tio.adjie@ptssb.co.id included below]
> >
> >
> > Terima kasih Mas Aksan.
> >
> > Saya sudah mencoba kode program dari Belajar Office dan dari Mas Aksan
> > . Ke-2 nya berhasil. Terima kasih.
> >
> > Ya Allah, semoga Engkau menambah ilmu Mas Aksan dan Belajar Office,
> > dan diberi kesehatan dan duit yang banyak. Amiin.
> >
> > Salam,
> > Tio
> >
> >
> >
> >
> > *Aksan Kurdin <aksan.kurdin@gmail.com>*
> > Sent by: belajar-access@yahoogroups.com
> >
> > 01/31/2010 06:17 PM
> > Please respond to belajar-access
> >
> >
> > To: belajar-access@yahoogroups.com
> > cc:
> > Subject: Re: [belajar-access] Memisah kata
> >
> >
> >
> >
> > Periksa Reference, ada yang MISSING ?
> > kalau tidak berhasil, coba dengan 'ikan' ini.
> >
> > aksan kurdin
> > _
> > __tio.adjie@ptssb.co.id_ <mailto:tio.adjie@ptssb.co.id> wrote:
> >
> >
> >
> > Dear Pakar Access,
> > Saya sudah mencoba koding Mas Aksan dengan mengcopy modulnya tapi kok
> > masih error ya ? Dan ada tanda merah di kode modulnya spt. di bawah :
> >
> >
> >
> > Dan setelah saya buat querynya dengan mencopy kode programnya maka
> > keluar sbb. :
> >
> >
> >
> > Tolong pencerahannya.
> >
> > Terima kasih sebelumnya.
> > Salam,
> > Tio
> >
> >
> >
> > *Aksan Kurdin <aksan.kurdin@gmail.com>*
> > Sent by: belajar-access@yahoogroups.com
> >
> > 01/29/2010 10:47 AM
> > Please respond to belajar-access
> >
> >
> > To: belajar-access@yahoogroups.com
> > cc:
> > Subject: Re: [belajar-access] Memisah kata
> >
> >
> >
> >
> >
> > 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
> >
> >
> >
> >
===========================================================================
> >
> > This email is confidential. If you are not the addressee tell the
> > sender
> > immediately and destroy this email without using, sending or
> > storing it.
> > Emails are not secure and may suffer errors, viruses, delay,
> > interception
> > and amendment. The Trakindo Group of Companies do not accept
> > liability for
> > damage caused by this email and may monitor email
> > traffic.
> > Unless expressly stated, any opinions are the sender's and are not
> > approved
> > by the Tiara Marga Trakindo Group of Companies and this email is
> > not an
> > offer, solicitation, recommendation or agreement of any
> > kind.
> >
===========================================================================
> >
> >
> >
===========================================================================
> > This email is confidential. If you are not the addressee tell the
sender
> > immediately and destroy this email without using, sending or storing
it.
> > Emails are not secure and may suffer errors, viruses, delay,
interception
> > and amendment. The Trakindo Group of Companies do not accept liability
for
> > damage caused by this email and may monitor email
traffic.
> > Unless expressly stated, any opinions are the sender's and are not
approved
> > by the Tiara Marga Trakindo Group of Companies and this email is not
an
> > offer, solicitation, recommendation or agreement of any
kind.
> >
===========================================================================
> >
> >
> >
>
>

----------------------------------------------------------------------------
----

> amiiinnn ..... amin ... amin ........
>
> aksan kurdin
>
>
>
> tio.adjie@ptssb.co.id wrote:
> Â
>
> Terima kasih Mas Aksan.
>
> Saya sudah mencoba kode program dari Belajar Office dan dari Mas Aksan .
Ke-2 nya berhasil. Terima kasih.
>
> Ya Allah, semoga Engkau menambah ilmu Mas Aksan dan Belajar Office, dan
diberi kesehatan dan duit yang banyak. Amiin.
>
> Salam,
> Tio
>
>
>
>
> Aksan Kurdin <aksan.kurdin@gmail.com>
> Sent by: belajar-access@yahoogroups.com
> 01/31/2010 06:17 PM
> Please respond to belajar-access
>
> Â Â Â Â
> Â Â Â Â To: Â Â Â Â belajar-access@yahoogroups.com
> Â Â Â Â cc: Â Â Â Â
> Â Â Â Â Subject: Â Â Â Â Re: [belajar-access] Memisah kata
>
>
>
> Periksa Reference, ada yang MISSING ?
> kalau tidak berhasil, coba dengan 'ikan' ini.
>
> aksan kurdin
>
> tio.adjie@ptssb.co.id wrote:
> Â
>
>
> Dear Pakar Access,
> Saya sudah mencoba koding Mas Aksan dengan mengcopy modulnya tapi kok
masih error ya ? Dan ada tanda merah di kode modulnya spt. di bawah :
>
>
>
> Dan setelah saya buat querynya dengan mencopy kode programnya maka
keluar sbb. :
>
>
>
> Tolong pencerahannya.
>
> Terima kasih sebelumnya.
> Salam,
> Tio
>
>
>
> Aksan Kurdin <aksan.kurdin@gmail.com>
> Sent by: belajar-access@yahoogroups.com
> 01/29/2010 10:47 AM
> Please respond to belajar-access
> Â Â Â Â
> Â Â Â Â To: Â Â Â Â belajar-access@yahoogroups.com
> Â Â Â Â cc: Â Â Â Â
> Â Â Â Â Subject: Â Â Â Â Re: [belajar-access] Memisah kata
>
>
>
>
> 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