Senin, 16 April 2012

Re: [belajar-access] Re: transferdatabase text

 

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@yahoo.co.id>
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

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar