وعليكم السلام 🙂
اخوي احمد ،
يجب ان يكون عندك ملف اسمه tbl_Teacher.xls في نفس المجلد الذي يكون فيه برنامجك ،
كما انه في خطأ td الكود عندك :
بدل
ImportFileName = CurrentProject.Path & "tbl_Teacher" & ".xls"
اكتب
ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls"
فيصبح الكود كاملا هكذا:
Dim ImportFileName As String
ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls"
DoCmd.RunSQL ("Delete * From tbl_Teacher") 'هذا السطر يحذف بيانات الجدول
DoCmd.TransferSpreadsheet acImport, 8, "tbl_Teacher", ImportFileName, True
واذا صادفت مشكلة ، فرجاء اذكر رقم الخطأ (وياريت صورة واضحة منه) ، كما رجاء تخبرنا على اي سطر يقع الخطأ 🙂
جعفر