MS ACCESS MAILING LIST: [belajar-access] Re: Browse File saat akan Import

silakan download :
[DaftarSavedImport 30596.rar]
di :
[Files] [jkssbma] [cobasolusi] [ImportExport]

'====

--- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@...> wrote:
>
> Jadi :
> 1. gunakan :
> CurrentProject.ImportExportSpecifications.count untuk menlakukan
> looping
> 2. cek nama :
> CurrentProject.ImportExportSpecifications.Item(i).name
> untuk membedakan import dan export , misal nama import saved
> diawali imp_ , export saved diawali exp_
> 3. tambahkan ke control listbox (misal list1), untuk yang saved
> import
> Me.List1.additem ...... ' yang save import
> 4. pilih yg diinginkan untuk import adri list1
> jumitem = Me.List1.ListCount
> For i = 0 To jumitem - 1
> If Me.List1.Selected(i) Then
> namapilih = Me.List1.Column(0, i)
> DoCmd.RunSavedImportExport namapilih
> End If
> Next
>
> dengan demikian kita bisa memilih yang kita inginkan. tapi hati2
> jangan salah import looh , data bisa kacau jadinye ....
>
> '========
> ' jangan salah pilih bupati , gubenur dan presiden. karena rakyat
> ' juga yang menderita.
> ' Tapi apa ada calon bupati, .. yang bermental yang baik ?????
> '---
>
>
>
>
>
> --- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@> wrote:
> >
> > Ternyata ada loh info tentang daftar Saved-Import dan Saved Export di :
> > untuk nama:
> > CurrentProject.ImportExportSpecifications.Item(i).name
> > untuk execute
> > CurrentProject.ImportExportSpecifications.Item(i).execute
> > '===
> > i --> index dimulai dari 0
> >
> >
> > sayangnya hanya berlaku untuk versi 2007 keatas
> > Jadi yang pakai ms access 2003 , jangan ragu2 untuk pindah deehhh
> >
> > '===============
> >
> >
> > --- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@> wrote:
> > >
> > >
> > > 'tambahkan di [Tools] [reference] :
> > > ' Microsoft Office 12.0/13.0/14.0 Object Library.
> > > Dim fDialog As Office.FileDialog
> > >
> > > Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
> > > With fDialog
> > > .AllowMultiSelect = False
> > > .Title = "Pilih satu atau lebih "
> > > .Filters.Clear
> > > .Filters.Add "File Excel", "*.XLS; *.XLSX"
> > > .Filters.Add "All Files", "*.*"
> > >
> > > If .Show = True Then
> > > For Each varFile In .SelectedItems
> > > ' jika ada yang di pilih , ngapain ya ???
> > > ' ya terserah anda deh ....
> > > Next
> > > Else
> > > MsgBox "Tak jadi tuh ...."
> > > End If
> > > End With
> > >
> > > apakah nama langkah import yang disimpan bisa di browse ???
> > > '===========
> > > --- In belajar-access@yahoogroups.com, Yana Karyana <way_key111182@> wrote:
> > > >
> > > > Assalamu'alaikum........
> > > >
> > > >
> > > > Rekan-rekan dan guruku semua .... Mohon bantuan untuk masalah berikut.
> > > > Saya akan mengimport file Excel ke database access. Import yang dilakukan tidak
> > > > hanya satu kali tapi beberapa kali (tiap hari/berkala).
> > > >
> > > > Setelah berusaha mencari dan belajar, Cara yang sudah saya lakukan adalah :
> > > > 1. Dari menu ExternalData, Group Import saya filih Excel
> > > > 2. Saya ikuti langkah-langkah import
> > > > 3. kemudian langkah2 itu saya simpan.
> > > > 4. Saya Buat Form dengan satu comman Button
> > > > 5. Pada comman Button saya masukan perintah : DoCmd.RunSavedImportExport
> > > > "DataBKU_UPTPembantu"
> > > >
> > > > Alhamdulilah cara di atas berhasil. Tetapi kekurangannya : saya hanya bisa
> > > > import file excel dengan nama yang sama pada lokasi yang telah ditentukan saja.
> > > >
> > > > jadi : Bagaimana carannya saat tekan tombol Import, Browse File Muncul, lalu
> > > > saya cari lokasi file, dan bisa milih nama file yang berbeda-beda (struktur
> > > > tabel file excelnya sama). Langkah import nya lebih sederhana dari menggunakan
> > > > wizard import. Berikut saya lampirkan contoh filenya. (catatan : simpan folder
> > > > tersebut langsung di drive C:)
> > > >
> > > > demikian dan atas bantuannya sebelumnya terima kasih.
> > > >
> > > > salam access selalu,
> > > > Yana K
> > > >
> > >
> >
>