شكر الله لك أخي الكريم ..
تم تغيير المطلوب لكن لم يتم استيراد الملف من المجلد الذي هو موجود فيه .
ما الذي يمكن تغييره في كود زر أمر الاستيراد ؟
طبعا الهدف من هذا العمل : هوأنني أريد استيراد ملف الاكسل من أي مجلد يمكن أن يكون فيه ..
الأمر الموجود حاليا يتطلب أن يكون ملف اكسل والبرنامج معا في مجلد واحد ..
Private Sub command4_Click()
Dim ImportFileName As String
ImportFileName = CurrentProject.Path & "\Teacher" & ".xls"
DoCmd.TransferSpreadsheet acImport, 8, "Teacher", ImportFileName, True
End Sub