Dear Mas Haryanto
metode saya simple ..seperti ini..
Private Sub Command32_Click()
Dim strFile As String
Dim strFilter As String
strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLSX")
strFile = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)
If Len(strFile) > 0 Then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblUstock", strFile, True
Me.lstTnum_Agents.Requery
End If
End Sub
Dim strFile As String
Dim strFilter As String
strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLSX")
strFile = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)
If Len(strFile) > 0 Then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblUstock", strFile, True
Me.lstTnum_Agents.Requery
End If
End Sub
di saat saya klik dan ambil data file excelnya..blok kuning di statement ...DoCmd.TransferSpreadsheet....
Maulana
Pada Senin, 25 Agustus 2014 15:02, "hari yanto har_i20002000@yahoo.com [belajar-access]" <belajar-access@yahoogroups.com> menulis:
MAULANA ...,
Saya coba import dengan cara klik kanan ==> import ==> Alhamdulillah tidak ada masalah. Hanya beberapa record data tidak terekam.
Kalau boleh diuraikan, bagaimana metode import yang Sampeyan jalankan? Diandaikan Excel sebagai recordset lalu insert into table yang sudah ada?
Hariyanto (Surabaya)
--------------------------------------------
On Mon, 25/8/14, MAULANA - maulana_pup@yahoo.co.id [belajar-access] <belajar-access@yahoogroups.com> wrote:
Subject: [belajar-access] (unknown) [1 Attachment]
To: belajar-access@yahoogroups.com
Date: Monday, 25 August, 2014, 9:28 AM
[Attachment(s) from MAULANA -
maulana_pup@yahoo.co.id [belajar-access] included
below]
Mas
Haryanto..berikut
saya lampirkan file excelnya..ada
banyak row saya hide..karena file kosong sengaja saya
hidekarena
saya ambil data juga melalui link file excel
lain..
Maulana
Saya coba import dengan cara klik kanan ==> import ==> Alhamdulillah tidak ada masalah. Hanya beberapa record data tidak terekam.
Kalau boleh diuraikan, bagaimana metode import yang Sampeyan jalankan? Diandaikan Excel sebagai recordset lalu insert into table yang sudah ada?
Hariyanto (Surabaya)
--------------------------------------------
On Mon, 25/8/14, MAULANA - maulana_pup@yahoo.co.id [belajar-access] <belajar-access@yahoogroups.com> wrote:
Subject: [belajar-access] (unknown) [1 Attachment]
To: belajar-access@yahoogroups.com
Date: Monday, 25 August, 2014, 9:28 AM
[Attachment(s) from MAULANA -
maulana_pup@yahoo.co.id [belajar-access] included
below]
Mas
Haryanto..berikut
saya lampirkan file excelnya..ada
banyak row saya hide..karena file kosong sengaja saya
hidekarena
saya ambil data juga melalui link file excel
lain..
Maulana
__._,_.___
Posted by: MAULANA - <maulana_pup@yahoo.co.id>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (3) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar