Menggabungkan data dalam beberapa tabel excel tertaut ke tabel Access master

0

Saya memiliki beberapa lembar Excel dengan header yang persis sama dengan yang saya tautkan ke Access. Saya mengalami masalah dengan menggabungkan semua data dari file excel ke dalam satu tabel Akses master sambil menjaga tabel akses master diperbarui ketika orang mengedit informasi dalam lembar Excel. Biasanya kueri akan digunakan, tetapi bisakah database Access memperbarui data dengan sendirinya?

Andrew Tan
sumber

Jawaban:

0

Metode termudah yang dapat saya sarankan kepada Anda adalah Perbarui Permintaan.

Karena lembar Excel Anda identik dengan Access Database Table maka Update Query akan bekerja lebih cepat dan lembar Excel Anda akan tampak seperti tabel terlampir di Access.

Saya harap Anda tidak memiliki baris kosong antara header dan data di Excel.

Solusi lain adalah Kode VBA, Anda dapat mencoba ini.

Private Sub UpdateAccess()

Dim db As Database
Dim rs As RecordSet
Dim sql As String
Dim dbLocation As String

dbLocation = Workbook.Path & "\database\data.accdb"
Set db = OpenDatabase(dbLocation)
sql = "Select * FROM [Main Table]"
Set rs = db.OpenRecordSet(sql, dbOpenSnapshot)

If Not rs.EOF Then
   Worksheets("Sheet1").Range("A1").CopyFromRecordset rs
End If

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Sub

NB: Kode VBA ini akan berhasil bila penggabungan tidak bersyarat.

Rajesh S
sumber