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

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
> > >
> >
>