في حالة تطوير البرنامج باستخدام قاعدة بيانات Access، عند تلف قاعدة بيانات Access، ستظهر الرسالة التالية بمجرد إدخال البرنامج:
لا يمكن فتح "اسم" قاعدة البيانات. قد لا تحتوي على قاعدة بيانات يتعرف عليها تطبيقك، أو قد يكون الملف تالفًا. (خطأ 3049)
إذا لم تتم إضافة حكم الخطأ إلى البرنامج، فسيقوم البرنامج بالمقاطعة والقفز، مما سيعطي المستخدم انطباعًا سيئًا للغاية لتجنب هذا الموقف وحتى منع المستخدم من اكتشاف تلف قاعدة البيانات، يجب استخدام رمز البرنامج التالي يضاف إلى القاضي:
PRivateSubForm_Load()
DimdbAsDatabase
OnErrorGoToerror1
Setdb=OpenDatabase("c:/test.mdb")
OnErrorGoTo0
:'يبدأ البرنامج العادي
:
ExitSub
خطأ1:
IfErr=3049 إذن قاعدة البيانات تالفة
DBEngine.RepairDatabase "C:/test.mdb"
سيرة ذاتية
آخر
MsgBoxErr&خطأ(خطأ)
إنديف->