كود الاستيراد لو سمحتوا

Public Sub ImportXLS()
On Error GoTo Err_subImport
    Dim MyXLS As String, MySql As String
    Dim fso As Scripting.FileSystemObject
    Dim oktogo As Boolean
    
    DoCmd.SetWarnings False
    oktogo = False
    MyXLS = "c:\qq.xls"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(MyXLS) Then
        oktogo = True
    Else
        MsgBox "الرجاء التحقق من وجود الملف : " & vbCr & MyXLS, vbExclamation + vbOKOnly, "Input File Missing"
    End If
    If oktogo Then
        MySql = "SELECT tbl_import.* INTO tbl_temp_import FROM tbl_import "
        DoCmd.RunSQL MySql
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_temp_import", MyXLS, True
        MySql = "INSERT INTO tbl_import SELECT tbl_temp_import.* FROM tbl_temp_IntellectImport "
        DoCmd.RunSQL MySql
        MsgBox "تمت عملية الاستيراد بنجاح", vbInformation + vbOKOnly + vbApplicationModal
    End If
Exit_ImportXLS:
    DoCmd.SetWarnings True
    Exit Sub
Err_ImportXLS:
    MsgBox "عملية الاتسيراد خاطئة", vbInformation + vbOKOnly + vbApplicationModal
    Resume Exit_ImportXLS
End Sub

ما ضبط معي الكود لكن هذا الملف لمن يستطيع التعديل عليه وشكرا يا اخ مهند على اجابتك وتراني غشيم شوي في الاكواد

dd.rar

تفضل أخي المبرمج

هذا برنامجك بعد التعديل ... ولكني لم أضف الكود المكتوب فوق ..

بل عدلت وأكملت طريقتك التي كنت تحاول بها (الماكرو) لأنها أقصر وأسهل من الكود

وقد أرفقت ملف QQ.xls من أجل التجريب وشكراً

dd.rar

الشكر لله ثم لك يا اخ مهند والله انك اصبت فاجدت الصواب هذا ما كنت اريده بالضبط