sory bang sofyan... maaf tadi saya buka di acces 03, ternyata ada di acces 07. terima kasih. lanjut ke tkp.
best regards
must hdis
--- In belajar-access@yahoogroups.com, "hadis0678" <hadis0678@...> wrote:
>
> maaf bang untuk yang DoCmd.RunCommand acCmdExportText kok masih salah ya.. tak lihat yang ada hanya accmeksport
>
> tengkyu
>
> 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
> > >
> > >
> > >
> >
>
Tidak ada komentar:
Posting Komentar