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

[Attachment(s) from hari yanto included below]

Kalau menurut saya begini:

Pada proses import, biasanya user mengambil langkah-langkah: mengklik button > memilih file xls > selesai...

Dari sini kita buat flow chart berdasarkan kebiasaan user itu.

Ketika button diklik, kita beri event on click. Isinya membuka file dialog. Dan user memilih file xls > klik button OK
Ketika button OK diklik inilah, folder dan nama file harus kita pegang.
Kalau berisi > cek file apakah yang dipilih extentionnya sesuai harapan
Kalau sesuai harapan > Cek apakah nama file-nya sesuai harapan. Misal kita tetapkan nama file yang boleh masuk adalah 2011_04_01_Dataku.xls. Cara melihatnya dengan apakah nama file like "*Dataku.xls".
Kalau sudah cocok, kita bayangkan *dataku.xls mirip dengan recordset. Worksheet = tabel. Record baris pertama (A1, B1, C1, dst) = nama_field. Agar bisa dicopykan ke Ms Acces.
Untuk sampai ke sini, kita bisa menggunakan ADODB. Kita perintahkan untuk mendefinisikan worksheet.
Setelah terdefinisi > kita pakai sql untuk menentukan jumlah data yang akan diimport. Ini kita pakai untuk memberitahukan user soal proses yang sedang berjalan (progress bar). Pakai sql: "select count(*) from " & nama_worksheet & " where nama_field_yang_dijadikan_patokan is not null"
Ketahuan jumlahnya, kita ke langkah selanjutnya.
kita pakai variabel i = 1. Dan i = i + 1. Pakai sql: "select * from " & nama_worksheet & " where nama_field_yang_dijadikan_patokan is not null"
Lakukan proses looping, yang didalamnya berisi:

status progres
gambar progress bar, sehingga user yakin kalau proses sedang berjalan. Kita pakai lebar img yang diperlebar sampai lebar sesuai harapan. Gunakan img.widht = i/jm_data_tot * 5000. Beri pula perintah doEvents agar gambar bergerak.
Nilai 5000 merupakan salah contoh lebar maksimal gambar. Kerangka berpikirnya, ketika looping pada record pertama lebar gambar menjadi 1/100, kedua 2/100 dst. Hingga diakhir record 100/100 * 5000.
masukkan data dari excel ke Acces dengan insert into atau addnew

Bila selesai beri pesan kepada user bahwa dia telah sukses memproses data sebanyak jm_data_tot

Dengan memakai kerangka berpikir seperti flow chart seperti itu, terlampir file mdb yang sudah saya perbaiki. (Proses uji coba memakai xls. Bukan xlsx).

Semoga bisa membantu, memberi semangat dan bermanfaat...

Hariyanto (Surabaya)

--- On Thu, 14/4/11, sudarsono <jkssbma@yahoo.com> wrote:

From: sudarsono <jkssbma@yahoo.com>
Subject: [belajar-access] Re: Browse File saat akan Import
To: belajar-access@yahoogroups.com
Date: Thursday, 14 April, 2011, 9:55 AM

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