عند تنفيذ الكود ..تخرج هذه الرسالة

هذه الرسالة إخواني تخرج لي الآن مع أنها لم تخرج لي في السابق ..

حيث استوردت وحدة نمطية من مثال وضعه أحد الأخوان كان يعمل على أخذ نسخة احتياطية من الجداول ..

والبرنامج مرفق وهو شغال معي 100% ..

البرنامج يوجد فيه جدول واحد وهو ( xxcc )

في قاعدتي الجديدة يوجد أكثر من جدول .. حيث قمت بوضع نفس الأسطر لكل جدول وغيرت ما يلزم ..

لكن البرنامج يوقف عمل الوحدة النمطية date2

ويلون الكود التالي باللون الأصفر فأين المشكلة رجاء ..

Function CreateDB(Db As String) As Boolean
   Dim wrkDefault As Workspace
   Dim dbsNew As Database
   CreateDB = False
   Set wrkDefault = DBEngine.Workspaces(0)
   If Dir(Db) <> "" Then Kill Db
   Set dbsNew = wrkDefault.CreateDatabase(Db, dbLangArabic)
   dbsNew.Close
   CreateDB = True
err:
End Function

حفظ واسترجاع بعد تحديد الاسم.rar