Rabu, 18 Mei 2011

Re: [belajar-access] Linked Table from excel [1 Attachment]

 
[Attachment(s) from Sofyan Efendi included below]

Dear Mas Hendra Agestha Hamid, pertama kali buatlah sebuah file Access kemudian tambahkan form, lalu buat command button untuk membuka file xlsm. Misal:
 
Private Sub Command0_Click()
'Sebelum menjalankan procedure dibawah ini, pastikan library ini sudah ditambahkan
'di Tools -> References:
'- Microsoft Excel Objects Library
'Versi sesuai dengan Office yg diinstall di PC nya
'Tahap 1: Deklarasi nama object dan variable yg digunakan
    Dim xl As Excel.Application
    Dim xlwkbk As Excel.Workbook
'Tahap 2: Buka file Excelnya
    Set xl = Excel.Application
    Set xlwkbk = xl.Workbooks.Open(CurrentProject.Path & "\SumberDB.xlsm")
  
'Tahap 3: Tampilkan Excel agar terlihat workbooknya
    xl.Visible = True
'Tahap 4: Bersihkan memory di VBA
     Set xl = Nothing
     Set xlwkbk = Nothing
End Sub
 
Kemudian buat file xlsm, di Sheet1 tambahkan judul kolom dan datanya, lalu tekan Alt+F11. Pada class module Sheet1, tambahkan procedure:
 
Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveWorkbook.Save
End Sub
 
Save file xlsm ini dengan nama : SumberDB.xlsm, lalu exit dari excel.
 
Buka file access yg dibuat pada langkah 1 diatas, lalu buat link table ke file SumberDB.xlsm di Sheet1. Buka form nya, lalu klik tombolnya.
 
File excel akan terbuka, kemudian cobalah ubah salah satu data yg ada, maka dengan segera table di Access pun akan berubah.
 
Sample bisa di download, lalu simpanlah di folder D:\ACC_Buka_XL\
 
Agar selalu membuka instance baru, cukup mengganti kode:
Set xl = Excel.Application
Menjadi:
Set xl = New Excel.Application
 
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
Pada 18 Mei 2011 20:24, Hendra Agestha Hamid <the_agestha@yahoo.com> menulis:
 

Dear Warga Milis...

Mohon pencerahannya :
Bagaimana coding untuk membuka sebuah file excel (misal ABC.xls, sheet1) dari sebuah button dan file tsb terbuka dalam mode read and write sedang ABC.xls, sheet1 tersebut kita set menjadi link table di database kita..?
Maksud saya adalah ingin membuka file excel tsb (dalam kondisi database access juga terbuka) dan setiap kita merubah data di file excel tsb otomatis data tabel di access yg merupakan hasil link tabel dari file tsb juga otomatis berubah...

Terima kasih
Regards
Hendra


__._,_.___

Attachment(s) from Sofyan Efendi

1 of 1 File(s)

Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar