MS ACCESS MAILING LIST: FW: [belajar-access] Upload data excel dengan browse folder

From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com]
Sent: 16 Oktober 2015 14:16
To: belajar-access@yahoogroups.com
Subject: Bls: [belajar-access] Upload data excel dengan browse folder

Dear Pak Qomarudin,

Sebetulnya sudah saya share di email sebelumnya, bapak tinggal buatkan satu button dan text box atau label, dalam hal ini saya buat textbox, kemudian dimasukan coding:

Berikut Coding untuk Browse nya:

Private Sub btnBrowse_Click()
    Dim dialog As FileDialog
    Set dialog = Application.FileDialog(msoFileDialogFilePicker) '

    With dialog
        .AllowMultiSelect = False
        .Show
        Me.txtBrowseFile = .SelectedItems.Item(1)
    End With

End Sub

Thank You

Indra P Rakhim

Mobile : +6285780480959

PIN BB : 7D86658D

Pada Jumat, 16 Oktober 2015 7:47, "Ahmad Qomaruddin ud13en@gmail.com [belajar-access]" <belajar-access@yahoogroups.com> menulis:

Pak Indra, mohon di share juga coding browse button. karena mau nyoba masih mentok di browse. atau dibuatkan sample filenya. terima kasih.

2015-10-15 15:31 GMT+07:00 Haer Talib haertalib@gmail.com [belajar-access] <belajar-access@yahoogroups.com>:

Good bang Indra,

Jika sudah menemukan solusi, memang sebaiknya dishare ke teman yang lain juga.

Good luck!

Haer Talib

RumahAccess Indonesia

Tempatnya Belajar Microsoft Access

Artikel | Forum | Milis | Download | Training | Links | Blog | Event

On Mon, Oct 12, 2015 at 4:50 PM, Indra Rakhim indra.rakhim@yahoo.co.id [belajar-access] <belajar-access@yahoogroups.com> wrote:

Dear Pak Ady,

Untuk Case ini sudah saya temukan caranya, yaitu dengan open file dialog, kemudian dilakukan proses import ke tabel.

Berikut codingnya :

' Browse file

Private Sub btnBrowse_Click()
    Dim dialog As FileDialog
    Set dialog = Application.FileDialog(msoFileDialogFilePicker) '

    With dialog
        .AllowMultiSelect = False
        .Show
        Me.txtBrowseFile = .SelectedItems.Item(1)
    End With

End Sub

' Import file excel ke table access

Private Sub btnimport_Click()
    Dim strExcelPath As String
        strExcelPath = Me.txtBrowseFile
    DoCmd.SetWarnings False
    Call DoCmd.TransferSpreadsheet(acImport, _
    acSpreadsheetTypeExcel8, "TblDataPlan", strExcelPath, _
    True, "A1:P500")
    DoCmd.SetWarnings True

    DoCmd.SetWarnings False
    Call DoCmd.TransferSpreadsheet(acImport, _
    acSpreadsheetTypeExcel8, "TblDataPlanHistory", strExcelPath, _
    True, "A1:P500")
    DoCmd.SetWarnings True


    MsgBox "Import Finished"
    Me.txtBrowseFile = ""
    [Form_TblDataPlan subform].Requery

End Sub

Terima kasih,

Rgrds,

Indra P Rakhim

Mobile : +6285780480959

PIN BB : 7D86658D

Pada Minggu, 11 Oktober 2015 23:18, "Makhdi Musa makhdi6666@yahoo.com [belajar-access]" <belajar-access@yahoogroups.com> menulis:

Dear Pak Indra

Salam kenal saya ady makhdi.

Sebenarnya saya belum mengerti betul tujuan bapak memasukan data excel kedalam Access tanpa diImport.

Yg saya lakukan apa bila ingin menggunakan data Excel dalam MS Acces cukup dengan Melakukan Link data excel tersebut menjadi bagian dari Tabel dalam Access. tanpa harus mengimport.

Apakah Cara membuat Link ini yang bapak tanyakan ?

Mohon maaf jika sharing saya belum menjawab pertanyaan bapak.

Salam

Ady Makhdi

On Wednesday, October 7, 2015 12:15 PM, "Indra Rakhim indra.rakhim@yahoo.co.id [belajar-access]" <belajar-access@yahoogroups.com> wrote:

Dear STeman2 Millis,

Mohon bantuannya bagaimana cara membuat data excel
bisa masuk ke access, tapi dengan bantuan button browse folder data
pada form , tidak diimport langsung.

Atas perhatiannya terima kasih.

Indra P Rakhim

Mobile : +6285780480959

PIN BB : 7D86658D