Cara Membuat Tabel Baru MS Access dari Excel dengan Macro VBA

Kami akan berbagi tip membuat sebuah contoh tabel sederhana untuk mengelola data karyawan di suatu perusahaan menggunakan Access dengan empat kolom isian. 

Adapun kolom isian utamanya adalah nomor anggota karyawan dan tiga kolom lainnya adalah nama depan, nama belakang, dan alamat.

Tabel dengan nama tabelKaryawan ini bisa Anda buat pada file database1.accdb seperti yang telah dijelaskan pada postingan sebelumnya yaitu Tips Mentransfer Data Dari Sel Excel Ke Tabel MS Access.

Langsung saja, berikut ini langkah-langkah yang bisa Anda ikuti:

1. Wajib untuk Anda lakukan, dalam Excel silakan buka VBE kemudian pastikan Anda telah mengaktifkan Microsoft ActiveX Data Objects 2.8 Library pada menu Tools > References... tandai centang lalu klik OK. Tanpa tool ini kode macro Anda tidak akan bekerja.

2. Buka menu Insert > Module

3. Ketik kode macro berikut pada Module dengan nama BuatTabelAccess dan tekan enter:

Sub BuatTabelAccess()

4. Di bawahnya beri nama variabelnya dengan kode berikut:

Dim A As ADODB.Connection
Dim B As ADODB.Command
Dim C As String

5. Tentukan alamat dan nama file database Access di komputer Anda:

C = "C:\Alamat\File\Anda\Database1.accdb"

6. Tugaskan variabel untuk membuka sambungan database:

Set A = New ADODB.Connection

7. Tentukan penyedia sambungan dan membuka sambungan:

With A
.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=" & C & _
";Persist Security Info=False;"
.Open C
End With

8. Beri tugas pada variabel B:

Set B = New ADODB.Command
Set B.ActiveConnection = A

9. Mulai membuat tabel dengan nama tabelKaryawan. Statement CommandText digunakan untuk memberitahukan Access agar jenis data pada isian formatnya adalah teks, dimana dalam tabel Access terdapat beberapa jenis format isian yaitu Nomor, Memo, Tanggal/Waktu, Mata uang, Hyperlink, OLE Object, Yes/No, dan Attachment.

B.CommandText = _
"CREATE TABLE tabelKaryawan (IDKaryawan Char(10) " & _
"Primary Key, NamaDepan text, NamaBelakang text, Alamat text)"
B.Execute , , adCmdText

10. Lepaskan memori penyimpanan variabel objek.

Set B = Nothing
Set A = Nothing

Kode lengkapnya sebagai berikut:

Sub BuatTabelAccess()
Dim A As ADODB.Connection
Dim B As ADODB.Command
Dim C As String
C = "C:\Alamat\File\Anda\Database1.accdb"
Set A = New ADODB.Connection
With A
.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=" & C & _
";Persist Security Info=False;"
.Open C
End With
Set B = New ADODB.Command
Set B.ActiveConnection = A
B.CommandText = _
"CREATE TABLE tabelKaryawan (IDKaryawan Char(10) " & _
"Primary Key, NamaDepan text, NamaBelakang text, Alamat text)"
B.Execute , , adCmdText
Set B = Nothing
Set A = Nothing
End Sub

Silakan dicoba semoga bermanfaat.

Share :