Jika program dikembangkan menggunakan database Access, ketika database Access rusak, pesan berikut akan muncul segera setelah program dimasukkan:
Tidak dapat membuka database 'nama'. Ini mungkin bukan database yang dikenali aplikasi Anda, atau file mungkin rusak. (Error3049)
Jika penilaian kesalahan tidak ditambahkan ke program, program akan terputus dan keluar, yang akan memberikan kesan yang sangat buruk kepada pengguna. Untuk menghindari situasi ini dan bahkan mencegah pengguna menemukan bahwa database rusak, kode program berikut harus ditambahkan ke hakim.
PrivatSubForm_Load()
DimdbAsDatabase
OnErrorGoToerror1
Setdb=OpenDatabase("c:/test.mdb")
OnErrorGoTo0
:'Program normal dimulai
:
KeluarSub
kesalahan1:
IfErr=3049Maka database rusak
DBEngine.RepairDatabase"C:/test.mdb"
Melanjutkan
Kalau tidak
MsgBoxErr&Error(Err)
AkhirJika->