Compact and Repair Database yang sedang dibuka

Microsoft Access tidak bekerja secara otomatis untuk mengcompress kembali file-file didalamnya. Jika Anda menghapus suatu object ataupun data didalamnya, file database akan tetap mempunyai size yang sama. Proses compact akan membuat suatu copy dari file yang dicompact, kemudian menyusun kembali secara rapih susunan object dan data didalam file database Anda. Karena itu size database akan kecil kembali sesuai dengan keadaan yang terakhir. Adapun proses repair digunakan untuk memperbaiki segala error yang terdeteksi oleh Access, kemudian error tersebut akan diperbaiki secara otomatis. Didalam Access terdapat fasilitas untuk compact and repair database ini, yaitu melalui menu Tools Database Utilities Compact and Repair Database…

Bagaimana jika hendak mengakses menu ini melalui VBA? Silahkan ikuti langkah-langkah dibawah ini.

Compact and Repair Database Microsoft Access 2000/XP/2003 yang sedang dibuka:

1.      Buatlah database baru, Save dengan nama “04_CompactRepair_Database.mdb”.

2.      Pada database Access, pilih object forms, kemudian klik New. Pilih design view.

3.      Tambahkan command button, rubah properties name menjadi “cmdCompactRepair”. Pada event On Click, sisipkan kode dibawah ini:

  Private Sub cmdCompactRepair_Click()

CommandBars(“Menu Bar”). _

    Controls(“Tools”). _

    Controls(“Database utilities”). _

    Controls(“Compact and repair database…”). _

    accDoDefaultAction

End Sub

4.      Save form ini dengan nama “frmCompactRepairDatabase”, kemudian jalankan.

5.      Proses compact and repair database akan dilakukan jika tombol “cmdCompactRepair” diklik.


Gambar Form untuk menjalankan compact and repair database

Compact and Repair Database Microsoft Access 2010 yang sedang dibuka:

Private Sub cmdTest_Click()
On Error GoTo Err_cmdTest_Click
‘7 April 2012, Ba’da Subuh di BTR
‘sambil dengerin istri ngaji dikamar belakang…
‘Test by PC core 2 duo, acc 2010, 100% qc passed 🙂
‘all code work succesfully
SendKeys “%{F}”, True
SendKeys “{TAB}”, True
SendKeys “{TAB}”, True
SendKeys “{ENTER}”, True
Exit_cmdTest_Click:
Exit Sub
Err_cmdTest_Click:
MsgBox Err.Description, vbExclamation, “Error in cmdTest_Click()”
Resume Exit_cmdTest_Click
End Sub

Adapun untuk Access 2007 tidak bisa dilakukan Compact and Repair Database yang sedang dibuka.

Beri Nilai Artikel Ini:

0 thoughts on “Compact and Repair Database yang sedang dibuka

Leave a Reply

Do NOT follow this link or you will be banned from the site!
%d bloggers like this: