ACCESS FEED: Bls: [belajar-access] Upload data excel dengan browse folder

Senin, 12 Oktober 2015

Bls: [belajar-access] Upload data excel dengan browse folder

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

__._,_.___

Posted by: Indra Rakhim <indra.rakhim@yahoo.co.id>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic