sory bang sofyan..
betul bang, saya harus mengekspor 34 table menjadi file txt.
langsung ke tkp dulu bang, untuk coba formula bang sofyan
best regards
must hdi s
--- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@...> wrote:
>
> 1. Saya tidak menerima email sebelumnya. Apakah ada sample filenya?
> 2. Pada kalimat "34 file yang harus di dieksport menjadi txt", apakah yg
> dimaksud "34 table yang harus di dieksport menjadi txt"?
> 3. Membuat function spt ini harus ada parameter, misal: Function
> cobahadi(nama_table, nama_field1, dst). Tanpa parameter, function tsb hanya
> bisa digunakan untuk satu kali export.
> 4. Terakhir, pada event on click:
> Private Sub Command12_Click()
> call cobahadi("table1", "field1", dst)
> End Sub
>
> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> Sofyan Efendi
> http://imopi.wordpress.com/
> ----- Original Message -----
> From: "hadis0678" <hadis0678@...>
> To: <belajar-access@yahoogroups.com>
> Sent: Tuesday, April 17, 2012 7:43 AM
> Subject: [belajar-access] Re: transferdatabase text
>
>
> masih belum terpecahkan...
>
> --- In belajar-access@yahoogroups.com, "hadis0678" <hadis0678@> wrote:
> >
> > dear mas sofyan..
> > walah.. malah jadi berlanjut dan bersambung nih mas..
> > formula dengan dao tersebut telah saya pratekkan dan berhasil untuk satu
> > file. nah permasalahannya saya nanti ada 34 file yang harus di dieksport
> > menjadi txt. untuk itu saya mencoba formula tersebut saya jadikan fungsi,
> > sehingga nanti harapan saya di event clicknya tombolnya hanya menjalankan
> > fungsi-fungsinya saja.
> > formula dao yang saya rubah menjadi fungsi sehingga menjadi :
> > Function cobahadi()
> > '& Forms![F_pilih_area]![CBRT] &
> > Dim db As DAO.Database
> > Dim rs As DAO.Recordset
> > If IsNull(Forms![form1]![Text0]) Then
> > MsgBox "Isi dahulu alamat text file nya."
> > Forms![form1]![Text0].SetFocus
> > End If
> > Set db = CurrentDb()
> > Set rs = db.OpenRecordset("Table1", dbReadOnly)
> > Open [Forms]![form1]![Text0] & "Table1.txt" For Output As #1
> > Print #1, """ID"";""Field1"""
> > Do While Not rs.EOF
> > Print #1, rs![Id] & ";""" & rs![Field1] & """"
> > rs.MoveNext
> > Loop
> > Close #1
> > CloseMe:
> > rs.Close
> > Set rs = Nothing
> > db.Close
> > Set db = Nothing
> > MsgBox "Proses sudah selesai."
> >
> > End Function
> >
> > selanjutnya saya bikin tombol dengan event untuk menjalankan fungsi
> > tersebut
> >
> > Private Sub Command12_Click()
> > DoCmd.OpenFunction cobahadi()
> > End Sub
> >
> > permasalahan yang timbul adalah :
> >
> > proses berhasil, ada hasil berupa file txt
> > tetapi kok muncul komentar
> > "Run-time error "2495":
> > The action or method requires a Table argument
> >
> > kira-kira yang salah saya dimana ya mas, tengkyu
> >
> > best regards
> >
> > must hdi s
> >
> > --- In belajar-access@yahoogroups.com, "hadis0678" <hadis0678@> wrote:
> > >
> > > dear mas sofyan..
> > >
> > > bravo.... well done..
> > >
> > > matur tengkyu setengkyu tengkyunya..
> > >
> > > best regards
> > >
> > > must hdi s
> > >
> > > --- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@>
> > > wrote:
> > > >
> > > > Dear Mas Hadis, maap saya kurang titik komanya sama judul fieldnya.
> > > >
> > > > Private Sub Command11_Click()
> > > > Dim db As DAO.Database
> > > > Dim rs As DAO.Recordset
> > > > If IsNull(Me![Text0]) Then
> > > > MsgBox "Isi dahulu alamat text file nya."
> > > > [Text0].SetFocus
> > > > Exit Sub
> > > > End If
> > > > Set db = CurrentDb()
> > > > Set rs = db.OpenRecordset("Table1", dbReadOnly)
> > > > Open Me![Text0] & "Table1.txt" For Output As #1
> > > > Print #1, """ID"";""Field1"""
> > > > Do While Not rs.EOF
> > > > Print #1, rs![Id] & ";""" & rs![Field1] & """"
> > > > rs.MoveNext
> > > > Loop
> > > > Close #1
> > > > CloseMe:
> > > > rs.Close
> > > > Set rs = Nothing
> > > > db.Close
> > > > Set db = Nothing
> > > > MsgBox "Proses sudah selesai."
> > > > End Sub
> > > >
> > > > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > Sofyan Efendi
> > > > http://imopi.wordpress.com/
> > > > ----- Original Message -----
> > > > From: "Sofyan Efendi" <SofyanEfendi@>
> > > > To: <belajar-access@yahoogroups.com>
> > > > Sent: Monday, April 09, 2012 1:34 PM
> > > > Subject: Re: [belajar-access] Re: transferdatabase text
> > > >
> > > >
> > > > > Dear Mas Hadis...
> > > > >
> > > > > Mantap, kasus baru, buat bahan belajar nih Mas...
> > > > > Sepertinya ini harus dimodif lagi kodenya Mas Hadis, misal dengan
> > > > > looping:
> > > > >
> > > > > Do While Not rs.EOF
> > > > > Print #1, rs![ID] & ";" & rs![Field1]
> > > > > rs.MoveNext
> > > > > Loop
> > > > >
> > > > > Kita teruskan... inginnya:
> > > > >
> > > > > 1;AAA
> > > > > 2;BBB
> > > > > 3;CCC
> > > > >
> > > > > Maka itu titik koma kudu buat manual di kodenya, saya coba buatkan
> > > > > prosedurnya, di command buttonnya fiel Mas Hadis yg sudah saya
> > > > > download:
> > > > >
> > > > > Private Sub Command11_Click()
> > > > > Dim db As DAO.Database
> > > > > Dim rs As DAO.Recordset
> > > > > If IsNull(Me![Text0]) Then
> > > > > MsgBox "Isi dahulu alamat text file nya."
> > > > > [Text0].SetFocus
> > > > > Exit Sub
> > > > > End If
> > > > > Set db = CurrentDb()
> > > > > Set rs = db.OpenRecordset("Table1", dbReadOnly)
> > > > > Open Me![Text0] & "\Table1.txt" For Output As #1
> > > > > Do While Not rs.EOF
> > > > > Print #1, rs![Id] & ";" & rs![Field1]
> > > > > rs.MoveNext
> > > > > Loop
> > > > > Close #1
> > > > > CloseMe:
> > > > > rs.Close
> > > > > Set rs = Nothing
> > > > > db.Close
> > > > > Set db = Nothing
> > > > > MsgBox "Proses sudah selesai."
> > > > > End Sub
> > > > >
> > > > > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > > Sofyan Efendi
> > > > > http://imopi.wordpress.com/
> > > > > ----- Original Message -----
> > > > > From: "hadis0678" <hadis0678@>
> > > > > To: <belajar-access@yahoogroups.com>
> > > > > Sent: Monday, April 09, 2012 1:13 PM
> > > > > Subject: [belajar-access] Re: transferdatabase text
> > > > >
> > > > >
> > > > > tengkyu mas sofyan..
> > > > > output text yang diinginkan adalah :
> > > > > "ID";"Field1"
> > > > > 1;"AAA"
> > > > > 2;"BBB"
> > > > > 3;"CCC"
> > > > >
> > > > > sedangkan kalau dicoba dengan metode output to text, maka akan
> > > > > menghasilkan :
> > > > > -----------------------------------------
> > > > > | ID | Field1 |
> > > > > -----------------------------------------
> > > > > | 1 | AAA |
> > > > > -----------------------------------------
> > > > > | 2 | BBB |
> > > > > -----------------------------------------
> > > > > | 3 | CCC |
> > > > > -----------------------------------------
> > > > >
> > > > > apabila dengan metode output maka saya kesulitan untuk mengimport
> > > > > kembali
> > > > > karena adanya garis garis batas tersebut.
> > > > >
> > > > > best regards
> > > > >
> > > > > must hdi s
> > > > >
> > > > > --- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@>
> > > > > wrote:
> > > > >>
> > > > >> Dear Mas Hadis, file accessnya sudah saya terima, tapi tolong
> > > > >> dikirimkan
> > > > >> contoh output txt nya juga (yg diinginkannya), biar sekalian yah.
> > > > >>
> > > > >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > >> Sofyan Efendi
> > > > >> http://imopi.wordpress.com/
> > > > >> ----- Original Message -----
> > > > >> From: "hadis0678" <hadis0678@>
> > > > >> To: <belajar-access@yahoogroups.com>
> > > > >> Sent: Saturday, April 07, 2012 1:08 PM
> > > > >> Subject: Bls: [belajar-access] Re: transferdatabase text
> > > > >>
> > > > >>
> > > > >> dear mas nyong arif..
> > > > >> terimakasih atas bantuannya dengan metode output to. permasalahan
> > > > >> yang
> > > > >> timbul selanjutnya adalah ketika harus mengimport file tersebut
> > > > >> untuk
> > > > >> ditambahkan dalam database yang baru. mengingat untuk dengan metode
> > > > >> output
> > > > >> to nanti juga terdapat garis-garis sebagai pembatas antara field
> > > > >> maupun
> > > > >> garis horisontal sebagai pembatas antar record. hal tersebut masih
> > > > >> belum
> > > > >> saya pahami bagaimana caranya mengimport file tersebut sehingga
> > > > >> ketika
> > > > >> masuk
> > > > >> tabel hanya isi record saja dan tidak termasuk garis vertikal dan
> > > > >> horisontalnya. terima kasih
> > > > >>
> > > > >> best regards
> > > > >>
> > > > >> must hdi s
> > > > >>
> > > > >> --- In belajar-access@yahoogroups.com, Nyong Arif <nyong_arif@>
> > > > >> wrote:
> > > > >> >
> > > > >> > Ini Saya coba sertakan contoh export untuk .txt dengan penentuan
> > > > >> > Folder
> > > > >> > dan Nama File untuk Penyimpanannya...
> > > > >> >
> > > > >> > Btw dalam exprot Format TXT ini saya gunakan Docdm.OutputTo.....
> > > > >> > Kalo Mas Hadi Ingin Pake Prosedur lain silahkan ganti Di Line
> > > > >> > Docmd.outputTo nya....dengan prosedur yang sudah mas hadi buat...
> > > > >> >
> > > > >> >
> > > > >> > Semoga Membantu
> > > > >> >
> > > > >> > Â
> > > > >> >
> > > > >> > Terima Kasih
> > > > >> >
> > > > >> > Salam,
> > > > >> > Syarief Nyong
> > > > >> >
> > > > >> >
> > > > >> >
> > > > >> > ________________________________
> > > > >> > Dari: hadis0678 <hadis0678@>
> > > > >> > Kepada: belajar-access@yahoogroups.com
> > > > >> > Dikirim: Jumat, 6 April 2012 9:56
> > > > >> > Judul: [belajar-access] Re: transferdatabase text
> > > > >> >
> > > > >> >
> > > > >> > Â
> > > > >> > kepada bang sofyan
> > > > >> >
> > > > >> > mohon maaf bang, ini saya sertakan file mdb.nya. algoritma yang
> > > > >> > diinginkan
> > > > >> > adalah :
> > > > >> > 1. menentukan folder tempat untuk menyimpan
> > > > >> > 2. transfer text tabel1
> > > > >> > 3. simpan hasil transfer ke folder yang telah ditentukan pada
> > > > >> > langkah 1
> > > > >> > file yang saya sertakan adalah DBExporthadi.zip
> > > > >> >
> > > > >> > best regards
> > > > >> >
> > > > >> > must hdi s
> > > > >> >
> > > > >> > --- In belajar-access@yahoogroups.com, "hadis0678" <hadis0678@>
> > > > >> > wrote:
> > > > >> > >
> > > > >> > > dear bang sofyan..
> > > > >> > > sory selalu ngrepotin.. untuk metode dengan ekspor data
> > > > >> > > tersebut
> > > > >> > > sudah
> > > > >> > > saya lakukan dan sudah berhasil. hanya masih pada masalah awal
> > > > >> > > bahwa
> > > > >> > > tujuan eksport telah ditentukan terlebih dahulu dalam
> > > > >> > > savedekspor
> > > > >> > > tersebut. kalau dimungkinkan kepengin seperti yang diberikan
> > > > >> > > mas
> > > > >> > > nyong
> > > > >> > > arif dan berjalan pada acces 2003, dimana kita tentukan dulu
> > > > >> > > lokasi
> > > > >> > > penyimpanan atau buat folder langsung dan selanjutnya baru kita
> > > > >> > > lakukan
> > > > >> > > eksport data dan kita simpan dalam folder tersebut.
> > > > >> > > terima kasih
> > > > >> > >
> > > > >> > > hormat saya
> > > > >> > >
> > > > >> > > must hdis
> > > > >> > >
> > > > >> > > --- In belajar-access@yahoogroups.com, Sofyan Efendi
> > > > >> > > <sofyanefendi@>
> > > > >> > > wrote:
> > > > >> > > >
> > > > >> > > > Dear Mas Hadis,
> > > > >> > > > Kalo sdh coba masih ada error, kirimin zip nya yah... :)
> > > > >> > > >
> > > > >> > > > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > >> > > > Sofyan Efendi
> > > > >> > > > http://imopi.wordpress.com/
> > > > >> > > > ----- Original Message -----
> > > > >> > > > From: "hadis0678" <hadis0678@>
> > > > >> > > > To: <belajar-access@yahoogroups.com>
> > > > >> > > > Sent: Thursday, April 05, 2012 1:35 PM
> > > > >> > > > Subject: [belajar-access] Re: transferdatabase text
> > > > >> > > >
> > > > >> > > >
> > > > >> > > > > oo.. gitu ya mas..
> > > > >> > > > > jadi kita lakukan ekspor dengan fungsi begitu.. ok langsung
> > > > >> > > > > ke
> > > > >> > > > > tkp
> > > > >> > > > > mas.
> > > > >> > > > > terima kasih
> > > > >> > > > >
> > > > >> > > > > best regards
> > > > >> > > > >
> > > > >> > > > > must hdis
> > > > >> > > > >
> > > > >> > > > > --- In belajar-access@yahoogroups.com, Sofyan Efendi
> > > > >> > > > > <sofyanefendi@>
> > > > >> > > > > wrote:
> > > > >> > > > >>
> > > > >> > > > >> Hmm... Bagaimana bila seluruh procedure diganti menjadi:
> > > > >> > > > >>
> > > > >> > > > >> Function test()
> > > > >> > > > >> DoCmd.OpenTable "NamaTable"
> > > > >> > > > >> DoCmd.RunCommand acCmdExportText
> > > > >> > > > >> DoCmd.Close acTable, "NamaTable"
> > > > >> > > > >> End Function
> > > > >> > > > >>
> > > > >> > > > >> Nama Table boleh diganti menjadi Nama Query ....
> > > > >> > > > >> Cara ini lebih mudah, atau teman2 ada yg hendak
> > > > >> > > > >> menambahkan,
> > > > >> > > > >> dipersilahkan
> > > > >> > > > >> ya...
> > > > >> > > > >>
> > > > >> > > > >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > >> > > > >> Sofyan Efendi
> > > > >> > > > >> http://imopi.wordpress.com/
> > > > >> > > > >> ----- Original Message -----
> > > > >> > > > >> From: "hadis0678" <hadis0678@>
> > > > >> > > > >> To: <belajar-access@yahoogroups.com>
> > > > >> > > > >> Sent: Thursday, April 05, 2012 11:24 AM
> > > > >> > > > >> Subject: [belajar-access] Re: transferdatabase text
> > > > >> > > > >>
> > > > >> > > > >>
> > > > >> > > > >> > mohon maaf mas, sudah saya coba. jadi saya membuat
> > > > >> > > > >> > savedeksportnya ke
> > > > >> > > > >> > mydocument. sedangkan diinginkan nantinya bisa
> > > > >> > > > >> > menentukan
> > > > >> > > > >> > dimana
> > > > >> > > > >> > lokasi
> > > > >> > > > >> > data tersebut dieksport.
> > > > >> > > > >> > sehingga saya ada dua event,yaitu event untuk menentukan
> > > > >> > > > >> > lokasi
> > > > >> > > > >> > penyimpanan yaitu :
> > > > >> > > > >> > Dim result As Integer
> > > > >> > > > >> > Dim sFolder As String
> > > > >> > > > >> > With
> > > > >> > > > >> > Application.FileDialog(msoFileDialogFolderPicker)
> > > > >> > > > >> > .Title = "Pilih Folder to Export"
> > > > >> > > > >> > .AllowMultiSelect = False
> > > > >> > > > >> > .InitialFileName = CurrentProject.Path
> > > > >> > > > >> > result = .Show
> > > > >> > > > >> >
> > > > >> > > > >> > selanjutnya saya buat event untuk proses eksportdatanya.
> > > > >> > > > >> > eksport data yang saya buat mengarah ke mydocument
> > > > >> > > > >> > On Error GoTo Err_Command45_Click
> > > > >> > > > >> >
> > > > >> > > > >> >
> > > > >> > > > >> > MsgBox "Data disimpan dalam folder " & Text0,
> > > > >> > > > >> > vbInformation,
> > > > >> > > > >> > "SIMAKSI
> > > > >> > > > >> > 2012"
> > > > >> > > > >> > DoCmd.RunSavedImportExport
> > > > >> > > > >> > "Export-TransferdataSYSDB_PNS889"
> > > > >> > > > >> > MsgBox "Ekspor Data Selesai dan disimpan dalam folder
> > > > >> > > > >> > " &
> > > > >> > > > >> > Text0,
> > > > >> > > > >> > vbInformation, "SIMAKSI 2012"
> > > > >> > > > >> >
> > > > >> > > > >> > Exit_Command45_Click:
> > > > >> > > > >> > Exit Sub
> > > > >> > > > >> >
> > > > >> > > > >> > Err_Command45_Click:
> > > > >> > > > >> > MsgBox Err.Description
> > > > >> > > > >> > Resume Exit_Command45_Click
> > > > >> > > > >> >
> > > > >> > > > >> > yang diinginkan adalah hasil savedeksport itu dapat
> > > > >> > > > >> > masuk ke
> > > > >> > > > >> > lokasi
> > > > >> > > > >> > yang
> > > > >> > > > >> > telah ditentukan dalam event pertama.
> > > > >> > > > >> > mohon maaf mas sofyan, kalau ngrepotin. terima kasih
> > > > >> > > > >> > atas
> > > > >> > > > >> > bantuannya
> > > > >> > > > >> >
> > > > >> > > > >> > best regards
> > > > >> > > > >> >
> > > > >> > > > >> > must hdi s
> > > > >> > > > >> > --- In belajar-access@yahoogroups.com, Sofyan Efendi
> > > > >> > > > >> > <sofyanefendi@>
> > > > >> > > > >> > wrote:
> > > > >> > > > >> >>
> > > > >> > > > >> >> Dear Mas Hadis,
> > > > >> > > > >> >>
> > > > >> > > > >> >> Iya Mas, silahkan dicoba DoCmd.RunSavedImportExport
> > > > >> > > > >> >> "Nama
> > > > >> > > > >> >> Saved
> > > > >> > > > >> >> export
> > > > >> > > > >> >> nya"
> > > > >> > > > >> >>
> > > > >> > > > >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > >> > > > >> >> Sofyan Efendi
> > > > >> > > > >> >> http://imopi.wordpress.com/
> > > > >> > > > >> >> ----- Original Message -----
> > > > >> > > > >> >> From: "hadis0678" <hadis0678@>
> > > > >> > > > >> >> To: <belajar-access@yahoogroups.com>
> > > > >> > > > >> >> Sent: Thursday, April 05, 2012 9:30 AM
> > > > >> > > > >> >> Subject: [belajar-access] Re: transferdatabase text
> > > > >> > > > >> >>
> > > > >> > > > >> >>
> > > > >> > > > >> >> > bang sofyan, mohon maaf maaf kalau untuk menggunakan
> > > > >> > > > >> >> > yang
> > > > >> > > > >> >> > schema
> > > > >> > > > >> >> > masih
> > > > >> > > > >> >> > bermasalah dalam pemahaman hehehe...
> > > > >> > > > >> >> > mungkin untuk saat ini fokus dulu ke transfertext
> > > > >> > > > >> >> > untuk acces 07 ketika saya menggunakan macro untuk
> > > > >> > > > >> >> > eksport
> > > > >> > > > >> >> > text
> > > > >> > > > >> >> > muncul
> > > > >> > > > >> >> > pesan kesalahan delimiter text
> > > > >> > > > >> >> > kemudian saya menggunakan cara ekspor dengan menu
> > > > >> > > > >> >> > eksport
> > > > >> > > > >> >> > data
> > > > >> > > > >> >> > pada
> > > > >> > > > >> >> > ms
> > > > >> > > > >> >> > acces 2007 dan proses eksportnya saya simpan.
> > > > >> > > > >> >> > kemudian saya masuk macro dan saya masukkan proses
> > > > >> > > > >> >> > eksport
> > > > >> > > > >> >> > tersebut
> > > > >> > > > >> >> > dan
> > > > >> > > > >> >> > ini berhasil dilakukan bang. kalau bisa lihat proses
> > > > >> > > > >> >> > eksportnya itu
> > > > >> > > > >> >> > ada
> > > > >> > > > >> >> > dimana ya bang, biar saya ambil syntaknya kemudian
> > > > >> > > > >> >> > saya
> > > > >> > > > >> >> > tuliskan
> > > > >> > > > >> >> > saja
> > > > >> > > > >> >> > di
> > > > >> > > > >> >> > event. sehingga nanti bisa saya kombinasikan dengan
> > > > >> > > > >> >> > syntak
> > > > >> > > > >> >> > dari mas
> > > > >> > > > >> >> > nyong
> > > > >> > > > >> >> > arif.
> > > > >> > > > >> >> > begitu bang, mohon penjelasan
> > > > >> > > > >> >> >
> > > > >> > > > >> >> > best regards
> > > > >> > > > >> >> >
> > > > >> > > > >> >> > must hdi s
> > > > >> > > > >> >> > --- In belajar-access@yahoogroups.com, Sofyan Efendi
> > > > >> > > > >> >> > <sofyanefendi@>
> > > > >> > > > >> >> > wrote:
> > > > >> > > > >> >> >>
> > > > >> > > > >> >> >> :) Wah Kang, kita belajar bersama saja dimilis ini,
> > > > >> > > > >> >> >> tapi
> > > > >> > > > >> >> >> bila
> > > > >> > > > >> >> >> hendak
> > > > >> > > > >> >> >> silaturahmi, silahkan, rumah saya insya Allah
> > > > >> > > > >> >> >> terbuka bagi
> > > > >> > > > >> >> >> sahabat2
> > > > >> > > > >> >> >> yang
> > > > >> > > > >> >> >> hendak silaturahmi.
> > > > >> > > > >> >> >> Belajar harus sedikit2, dari yg termudah, yg
> > > > >> > > > >> >> >> sederhana...
> > > > >> > > > >> >> >> tidak
> > > > >> > > > >> >> >> bisa
> > > > >> > > > >> >> >> langsung main ke VBA, dimulai dari table, query,
> > > > >> > > > >> >> >> pelajari
> > > > >> > > > >> >> >> dengan
> > > > >> > > > >> >> >> perlahan-lahan, jangan tergesa-gesa... Pahami setiap
> > > > >> > > > >> >> >> kode,
> > > > >> > > > >> >> >> kenapa
> > > > >> > > > >> >> >> harus
> > > > >> > > > >> >> >> pakai kode ini, apa manfaatnya, dll... Nanti lama2
> > > > >> > > > >> >> >> insya
> > > > >> > > > >> >> >> Allah akan
> > > > >> > > > >> >> >> hapal,
> > > > >> > > > >> >> >> setiap ada kasus, akan terpikir bagaimana
> > > > >> > > > >> >> >> solusinya...
> > > > >> > > > >> >> >> Subhanallah
> > > > >> > > > >> >> >> wal
> > > > >> > > > >> >> >> hamdulillah....
> > > > >> > > > >> >> >>
> > > > >> > > > >> >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > >> > > > >> >> >> Sofyan Efendi
> > > > >> > > > >> >> >> http://imopi.wordpress.com/
> > > > >> > > > >> >> >> ----- Original Message -----
> > > > >> > > > >> >> >> From: "hadis0678" <hadis0678@>
> > > > >> > > > >> >> >> To: <belajar-access@yahoogroups.com>
> > > > >> > > > >> >> >> Sent: Wednesday, April 04, 2012 5:07 PM
> > > > >> > > > >> >> >> Subject: [belajar-access] Re: transferdatabase text
> > > > >> > > > >> >> >>
> > > > >> > > > >> >> >>
> > > > >> > > > >> >> >> > ok bang sofyan..
> > > > >> > > > >> >> >> > ini perlu belajar lebih keras lagi, ni atau perlu
> > > > >> > > > >> >> >> > langsung
> > > > >> > > > >> >> >> > ketemu
> > > > >> > > > >> >> >> > dengan
> > > > >> > > > >> >> >> > suhunya ya hehehe..
> > > > >> > > > >> >> >> > ada program pelatihan di rumah acces indonesia
> > > > >> > > > >> >> >> > untuk
> > > > >> > > > >> >> >> > program ini
> > > > >> > > > >> >> >> > bang
> > > > >> > > > >> >> >> > sofyan? perlu belajar langsung nih ..
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >> > terima kasih
> > > > >> > > > >> >> >> > best regards
> > > > >> > > > >> >> >> > must hdis
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >> > --- In belajar-access@yahoogroups.com, Sofyan
> > > > >> > > > >> >> >> > Efendi
> > > > >> > > > >> >> >> > <sofyanefendi@>
> > > > >> > > > >> >> >> > wrote:
> > > > >> > > > >> >> >> >>
> > > > >> > > > >> >> >> >> Ya Kang Hadis, satu kali centang maka file
> > > > >> > > > >> >> >> >> tersebut
> > > > >> > > > >> >> >> >> sudah
> > > > >> > > > >> >> >> >> terkait
> > > > >> > > > >> >> >> >> ke
> > > > >> > > > >> >> >> >> ADO
> > > > >> > > > >> >> >> >> untuk selamanya, jadi nanti tidak perlu maen
> > > > >> > > > >> >> >> >> centang-centangan
> > > > >> > > > >> >> >> >> lagi
> > > > >> > > > >> >> >> >> di
> > > > >> > > > >> >> >> >> unit-unit kerja di wilayah kabupaten klaten....
> > > > >> > > > >> >> >> >> Saya
> > > > >> > > > >> >> >> >> melakukan
> > > > >> > > > >> >> >> >> proses
> > > > >> > > > >> >> >> >> import
> > > > >> > > > >> >> >> >> export dengan beberapa cara,... ada yg pakai
> > > > >> > > > >> >> >> >> schema.ini,
> > > > >> > > > >> >> >> >> dao,
> > > > >> > > > >> >> >> >> ado,
> > > > >> > > > >> >> >> >> transfer
> > > > >> > > > >> >> >> >> database. Tapi saya suka yg pakai schema.ini,
> > > > >> > > > >> >> >> >> tapi yg
> > > > >> > > > >> >> >> >> dao
> > > > >> > > > >> >> >> >> suka
> > > > >> > > > >> >> >> >> juga
> > > > >> > > > >> >> >> >> sih,
> > > > >> > > > >> >> >> >> soalnya kalo "dao" dibalik jadi "doa", biar inget
> > > > >> > > > >> >> >> >> ama
> > > > >> > > > >> >> >> >> Tuhan ....
> > > > >> > > > >> >> >> >> :-))
> > > > >> > > > >> >> >> >>
> > > > >> > > > >> >> >> >> Kalau Kang Hadis mau, pake schema.ini aja Kang.
> > > > >> > > > >> >> >> >> Saya
> > > > >> > > > >> >> >> >> dulu
> > > > >> > > > >> >> >> >> pernah
> > > > >> > > > >> >> >> >> buat
> > > > >> > > > >> >> >> >> contoh
> > > > >> > > > >> >> >> >> nya, ini saya kirim ulang yah...
> > > > >> > > > >> >> >> >>
> > > > >> > > > >> >> >> >> Petunjuk: Harap diextract seluruh file yg saya
> > > > >> > > > >> >> >> >> kirimkan
> > > > >> > > > >> >> >> >> ini
> > > > >> > > > >> >> >> >> dalam
> > > > >> > > > >> >> >> >> satu
> > > > >> > > > >> >> >> >> folder yang sama. Dalam mengimport table harus
> > > > >> > > > >> >> >> >> disiapkan
> > > > >> > > > >> >> >> >> dahulu
> > > > >> > > > >> >> >> >> file
> > > > >> > > > >> >> >> >> Schema.ini dalam folder tsb. Saya sudah sertakan
> > > > >> > > > >> >> >> >> file
> > > > >> > > > >> >> >> >> dan
> > > > >> > > > >> >> >> >> teorinya
> > > > >> > > > >> >> >> >> pada
> > > > >> > > > >> >> >> >> contoh ini. Silahkan dipelajari ya file
> > > > >> > > > >> >> >> >> ImportDanExportTextFile.mdb...
> > > > >> > > > >> >> >> >>
> > > > >> > > > >> >> >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > >> > > > >> >> >> >> Sofyan Efendi
> > > > >> > > > >> >> >> >> http://imopi.wordpress.com/
> > > > >> > > > >> >> >> >> ----- Original Message -----
> > > > >> > > > >> >> >> >> From: "hadis0678" <hadis0678@>
> > > > >> > > > >> >> >> >> To: <belajar-access@yahoogroups.com>
> > > > >> > > > >> >> >> >> Sent: Wednesday, April 04, 2012 4:15 PM
> > > > >> > > > >> >> >> >> Subject: [belajar-access] Re: transferdatabase
> > > > >> > > > >> >> >> >> text
> > > > >> > > > >> >> >> >>
> > > > >> > > > >> >> >> >>
> > > > >> > > > >> >> >> >> > tengkyu bang sofyan
> > > > >> > > > >> >> >> >> > kalau begitu mungkin nanti timbul masalah lagi
> > > > >> > > > >> >> >> >> > bang.
> > > > >> > > > >> >> >> >> > aplikasi ini akan disebar di unit-unit kerja di
> > > > >> > > > >> >> >> >> > wilayah
> > > > >> > > > >> >> >> >> > kabupaten
> > > > >> > > > >> >> >> >> > klaten
> > > > >> > > > >> >> >> >> > jika harus mengecek apakah sudah diaktifkan,
> > > > >> > > > >> >> >> >> > mungkin
> > > > >> > > > >> >> >> >> > nanti
> > > > >> > > > >> >> >> >> > malah
> > > > >> > > > >> >> >> >> > tidak
> > > > >> > > > >> >> >> >> > efektif ya bang, karena sumber daya manusia di
> > > > >> > > > >> >> >> >> > unit
> > > > >> > > > >> >> >> >> > unit
> > > > >> > > > >> >> >> >> > kerja
> > > > >> > > > >> >> >> >> > kan
> > > > >> > > > >> >> >> >> > tidak
> > > > >> > > > >> >> >> >> > sama dan tidak mungkin malah membingungkan
> > > > >> > > > >> >> >> >> > hehehe...
> > > > >> > > > >> >> >> >> > ada saran bang, kalau menggunakan transfertext
> > > > >> > > > >> >> >> >> > itu
> > > > >> > > > >> >> >> >> > kelihatannya
> > > > >> > > > >> >> >> >> > lebih
> > > > >> > > > >> >> >> >> > sederhana tapi mungkin masalah di delimiter itu
> > > > >> > > > >> >> >> >> > ya...
> > > > >> > > > >> >> >> >> > terima kasih
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> > best regards
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> > must hdi s
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> > --- In belajar-access@yahoogroups.com, Sofyan
> > > > >> > > > >> >> >> >> > Efendi
> > > > >> > > > >> >> >> >> > <sofyanefendi@>
> > > > >> > > > >> >> >> >> > wrote:
> > > > >> > > > >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> Dear Mas Hadis,
> > > > >> > > > >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> Tolong dicek dulu di reference VBA nya, apakah
> > > > >> > > > >> >> >> >> >> sudah
> > > > >> > > > >> >> >> >> >> ditambahkan
> > > > >> > > > >> >> >> >> >> Active X
> > > > >> > > > >> >> >> >> >> ADO : Microsoft ActiveX Data Objects
> > > > >> > > > >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > >> > > > >> >> >> >> >> Sofyan Efendi
> > > > >> > > > >> >> >> >> >> http://imopi.wordpress.com/
> > > > >> > > > >> >> >> >> >> ----- Original Message -----
> > > > >> > > > >> >> >> >> >> From: "hadis0678" <hadis0678@>
> > > > >> > > > >> >> >> >> >> To: <belajar-access@yahoogroups.com>
> > > > >> > > > >> >> >> >> >> Sent: Wednesday, April 04, 2012 3:51 PM
> > > > >> > > > >> >> >> >> >> Subject: [belajar-access] Re: transferdatabase
> > > > >> > > > >> >> >> >> >> text
> > > > >> > > > >> >> >> >> >>
> > > > >> > > > >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> > dear Bang Haer,
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> > saya mencoba menggunakan transfer text, dan
> > > > >> > > > >> >> >> >> >> > ada
> > > > >> > > > >> >> >> >> >> > masalah
> > > > >> > > > >> >> >> >> >> > apabila
> > > > >> > > > >> >> >> >> >> > menggunakan windows7, untuk itu saya coba
> > > > >> > > > >> >> >> >> >> > dengan
> > > > >> > > > >> >> >> >> >> > metode
> > > > >> > > > >> >> >> >> >> > ADO.
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> > saya mencoba menggunakan ADO sehingga
> > > > >> > > > >> >> >> >> >> > menjadi :
> > > > >> > > > >> >> >> >> >> > Private Sub Command64_Click()
> > > > >> > > > >> >> >> >> >> > MsgBox "Data disimpan dalam folder " &
> > > > >> > > > >> >> >> >> >> > Text0,
> > > > >> > > > >> >> >> >> >> > vbInformation,
> > > > >> > > > >> >> >> >> >> > "SIMAKSI
> > > > >> > > > >> >> >> >> >> > 2012"
> > > > >> > > > >> >> >> >> >> > DoCmd.RunMacro
> > > > >> > > > >> >> >> >> >> > "macrobikintabelesksporsydbpnsdetail"
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> > Dim str As String
> > > > >> > > > >> >> >> >> >> > Dim sql As String
> > > > >> > > > >> >> >> >> >> > Dim cn As New ADODB.Connection
> > > > >> > > > >> >> >> >> >> > Dim rs As New ADODB.Recordset
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> > set cn as currentproject.connection ----->>>
> > > > >> > > > >> >> >> >> >> > error
> > > > >> > > > >> >> >> >> >> > menjadi
> > > > >> > > > >> >> >> >> >> > merah
> > > > >> > > > >> >> >> >> >> > sql = "SELECT * FROM TransferdataSYSDB_PNS"
> > > > >> > > > >> >> >> >> >> > rs.Open sql, cn, adOpenKeyset,
> > > > >> > > > >> >> >> >> >> > adLockOptimistic
> > > > >> > > > >> >> >> >> >> > Open CurrentProject.Path & "\" &
> > > > >> > > > >> >> >> >> >> > TransferdataSYSDB_PNS &
> > > > >> > > > >> >> >> >> >> > ".TXT"
> > > > >> > > > >> >> >> >> >> > For
> > > > >> > > > >> >> >> >> >> > Input
> > > > >> > > > >> >> >> >> >> > As #1
> > > > >> > > > >> >> >> >> >> > While Not EOF(1)
> > > > >> > > > >> >> >> >> >> > Line Input #1, str
> > > > >> > > > >> >> >> >> >> > rs.AddNew
> > > > >> > > > >> >> >> >> >> > rs!Field1= ----------->>>> error menjadi
> > > > >> > > > >> >> >> >> >> > merah
> > > > >> > > > >> >> >> >> >> > rs.Update
> > > > >> > > > >> >> >> >> >> > Wend
> > > > >> > > > >> >> >> >> >> > rs.Close
> > > > >> > > > >> >> >> >> >> > Close #1
> > > > >> > > > >> >> >> >> >> > End Sub
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> > dari syntak diatas terdapat dua error bang,
> > > > >> > > > >> >> >> >> >> > kira-kira
> > > > >> > > > >> >> >> >> >> > apa
> > > > >> > > > >> >> >> >> >> > ya
> > > > >> > > > >> >> >> >> >> > yang
> > > > >> > > > >> >> >> >> >> > kurang/salah dari syintak saya.. terima
> > > > >> > > > >> >> >> >> >> > kasih
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> > best regards
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> > must hdi s
> > > > >> > > > >> >> >> >> >> > --- In belajar-access@yahoogroups.com,
> > > > >> > > > >> >> >> >> >> > "Sofyan
> > > > >> > > > >> >> >> >> >> > Efendi"
> > > > >> > > > >> >> >> >> >> > <sofyanefendi@>
> > > > >> > > > >> >> >> >> >> > wrote:
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> Dear Mas Hadis,
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> Umumnya, error karena masalah regional
> > > > >> > > > >> >> >> >> >> >> settings.
> > > > >> > > > >> >> >> >> >> >> Cobalah
> > > > >> > > > >> >> >> >> >> >> diubah
> > > > >> > > > >> >> >> >> >> >> dari
> > > > >> > > > >> >> >> >> >> >> Indonesia ke English, atau sebaliknya. Atau
> > > > >> > > > >> >> >> >> >> >> alternatif
> > > > >> > > > >> >> >> >> >> >> lainnya,
> > > > >> > > > >> >> >> >> >> >> bisa
> > > > >> > > > >> >> >> >> >> >> menggunakan metode import text filenya ADO
> > > > >> > > > >> >> >> >> >> >> dan
> > > > >> > > > >> >> >> >> >> >> DAO,
> > > > >> > > > >> >> >> >> >> >> misal:
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> Contoh Menggunakan ADO:
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> Private Sub Command0_Click
> > > > >> > > > >> >> >> >> >> >> Dim str as string
> > > > >> > > > >> >> >> >> >> >> Dim sql as string
> > > > >> > > > >> >> >> >> >> >> Dim cn as New ADODB.Connection
> > > > >> > > > >> >> >> >> >> >> Dim rs as New ADODB.Recordset
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> set cn as currentproject.connection
> > > > >> > > > >> >> >> >> >> >> sql = "SELECT * FROM TABLE1"
> > > > >> > > > >> >> >> >> >> >> rs.open
> > > > >> > > > >> >> >> >> >> >> sql,cn,adopenkeyset,adlockoptimistic
> > > > >> > > > >> >> >> >> >> >> Open CurrentProject.Path & "\" &
> > > > >> > > > >> >> >> >> >> >> NamaFileTxt &
> > > > >> > > > >> >> >> >> >> >> ".TXT" For
> > > > >> > > > >> >> >> >> >> >> Input
> > > > >> > > > >> >> >> >> >> >> As
> > > > >> > > > >> >> >> >> >> >> #1
> > > > >> > > > >> >> >> >> >> >> While not EOF(1)
> > > > >> > > > >> >> >> >> >> >> Line Input #1, str
> > > > >> > > > >> >> >> >> >> >> rs.AddNew
> > > > >> > > > >> >> >> >> >> >> rs!Field1=
> > > > >> > > > >> >> >> >> >> >> rs.Update
> > > > >> > > > >> >> >> >> >> >> Wend
> > > > >> > > > >> >> >> >> >> >> rs.close
> > > > >> > > > >> >> >> >> >> >> Close #1
> > > > >> > > > >> >> >> >> >> >> End Sub
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> Contoh Menggunakan DAO:
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> Private Sub Command0_Click
> > > > >> > > > >> >> >> >> >> >> Dim str as string
> > > > >> > > > >> >> >> >> >> >> Dim sql as string
> > > > >> > > > >> >> >> >> >> >> Dim db as DAO.Database
> > > > >> > > > >> >> >> >> >> >> Dim rs as DAO.Recordset
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> set db = currentdb()
> > > > >> > > > >> >> >> >> >> >> sql = "SELECT * FROM TABLE1"
> > > > >> > > > >> >> >> >> >> >> set rs =
> > > > >> > > > >> >> >> >> >> >> db.openrecordset(sql,dbopendynaset)
> > > > >> > > > >> >> >> >> >> >> Open CurrentProject.Path & "\" &
> > > > >> > > > >> >> >> >> >> >> NamaFileTxt &
> > > > >> > > > >> >> >> >> >> >> ".TXT" For
> > > > >> > > > >> >> >> >> >> >> Input
> > > > >> > > > >> >> >> >> >> >> As
> > > > >> > > > >> >> >> >> >> >> #1
> > > > >> > > > >> >> >> >> >> >> While not EOF(1)
> > > > >> > > > >> >> >> >> >> >> Line Input #1, str
> > > > >> > > > >> >> >> >> >> >> rs.AddNew
> > > > >> > > > >> >> >> >> >> >> rs!Field1=
> > > > >> > > > >> >> >> >> >> >> rs.Update
> > > > >> > > > >> >> >> >> >> >> Wend
> > > > >> > > > >> >> >> >> >> >> set rs=nothing
> > > > >> > > > >> >> >> >> >> >> Close #1
> > > > >> > > > >> >> >> >> >> >> End Sub
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> Kedua contoh diatas adalah import data dari
> > > > >> > > > >> >> >> >> >> >> txt
> > > > >> > > > >> >> >> >> >> >> file
> > > > >> > > > >> >> >> >> >> >> ke
> > > > >> > > > >> >> >> >> >> >> Table
> > > > >> > > > >> >> >> >> >> >> di
> > > > >> > > > >> >> >> >> >> >> Ms
> > > > >> > > > >> >> >> >> >> >> Access.
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> Wassalaamu'alaikum Warahmatullahi
> > > > >> > > > >> >> >> >> >> >> Wabarakatuh,
> > > > >> > > > >> >> >> >> >> >> Sofyan Efendi
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >> --- In belajar-access@yahoogroups.com,
> > > > >> > > > >> >> >> >> >> >> "hadis0678"
> > > > >> > > > >> >> >> >> >> >> <hadis0678@>
> > > > >> > > > >> >> >> >> >> >> wrote:
> > > > >> > > > >> >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >> > mohon bantuan para suhu semua mengenai
> > > > >> > > > >> >> >> >> >> >> > tranfer
> > > > >> > > > >> >> >> >> >> >> > database
> > > > >> > > > >> >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >> > saya sedang membangun aplikasi dengan
> > > > >> > > > >> >> >> >> >> >> > acces
> > > > >> > > > >> >> >> >> >> >> > 2003
> > > > >> > > > >> >> >> >> >> >> > dan
> > > > >> > > > >> >> >> >> >> >> > untuk
> > > > >> > > > >> >> >> >> >> >> > transferdatabase menggunakan yang
> > > > >> > > > >> >> >> >> >> >> > transferdatabase
> > > > >> > > > >> >> >> >> >> >> > text
> > > > >> > > > >> >> >> >> >> >> > yang
> > > > >> > > > >> >> >> >> >> >> > dibuat
> > > > >> > > > >> >> >> >> >> >> > dengan makro. makro tersebut bisa
> > > > >> > > > >> >> >> >> >> >> > berjalan
> > > > >> > > > >> >> >> >> >> >> > dengan
> > > > >> > > > >> >> >> >> >> >> > baik
> > > > >> > > > >> >> >> >> >> >> > pada
> > > > >> > > > >> >> >> >> >> >> > acces
> > > > >> > > > >> >> >> >> >> >> > 2003.
> > > > >> > > > >> >> >> >> >> >> > yang menjadi masalah adalah ketika
> > > > >> > > > >> >> >> >> >> >> > dijalankan
> > > > >> > > > >> >> >> >> >> >> > dengan
> > > > >> > > > >> >> >> >> >> >> > acces
> > > > >> > > > >> >> >> >> >> >> > 2007,
> > > > >> > > > >> >> >> >> >> >> > makro
> > > > >> > > > >> >> >> >> >> >> > tersebut tidak berjalan. komentar yang
> > > > >> > > > >> >> >> >> >> >> > muncul
> > > > >> > > > >> >> >> >> >> >> > adalah
> > > > >> > > > >> >> >> >> >> >> > text
> > > > >> > > > >> >> >> >> >> >> > file
> > > > >> > > > >> >> >> >> >> >> > specification field separator matches
> > > > >> > > > >> >> >> >> >> >> > decimal
> > > > >> > > > >> >> >> >> >> >> > separator
> > > > >> > > > >> >> >> >> >> >> > or
> > > > >> > > > >> >> >> >> >> >> > text
> > > > >> > > > >> >> >> >> >> >> > delimiter.
> > > > >> > > > >> >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >> > mohon bantuan
> > > > >> > > > >> >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >> > best regards
> > > > >> > > > >> >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >> > hdi s
> > > > >> > > > >> >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >>
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> > ------------------------------------
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >> >
> > > > >> > > > >> >> >> >> >>
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> > ------------------------------------
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >> >
> > > > >> > > > >> >> >> >>
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >> > ------------------------------------
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >> >
> > > > >> > > > >> >> >>
> > > > >> > > > >> >> >
> > > > >> > > > >> >> >
> > > > >> > > > >> >> >
> > > > >> > > > >> >> >
> > > > >> > > > >> >> > ------------------------------------
> > > > >> > > > >> >> >
> > > > >> > > > >> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > > >> > > > >> >> >
> > > > >> > > > >> >> >
> > > > >> > > > >> >> >
> > > > >> > > > >> >>
> > > > >> > > > >> >
> > > > >> > > > >> >
> > > > >> > > > >> >
> > > > >> > > > >> >
> > > > >> > > > >> > ------------------------------------
> > > > >> > > > >> >
> > > > >> > > > >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > > >> > > > >> >
> > > > >> > > > >> >
> > > > >> > > > >> >
> > > > >> > > > >>
> > > > >> > > > >
> > > > >> > > > >
> > > > >> > > > >
> > > > >> > > > >
> > > > >> > > > > ------------------------------------
> > > > >> > > > >
> > > > >> > > > > SPAM IS PROHIBITEDYahoo! Groups Links
> > > > >> > > > >
> > > > >> > > > >
> > > > >> > > > >
> > > > >> > > >
> > > > >> > >
> > > > >> >
> > > > >>
> > > > >>
> > > > >>
> > > > >>
> > > > >> ------------------------------------
> > > > >>
> > > > >> SPAM IS PROHIBITEDYahoo! Groups Links
> > > > >>
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > ------------------------------------
> > > > >
> > > > > SPAM IS PROHIBITEDYahoo! Groups Links
> > > > >
> > > > >
> > > > >
> > > >
> > >
> >
>
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
Tidak ada komentar:
Posting Komentar