إستيراد جدول ؟

[بوكفوس عبدالسلام]

السلام عليكم ...

أنشات كود لإستيراد جدول فتظهر رسالة خطأ رقم 3127. (صورة مرفقة ) ؟

للعلم ان هذا الجدول تم تصديره من الاكسس بصيغة الأكسل ( Excel ) إلى سطح المكتب و قمت بملأ لإعادة إستيراده لقاعدة البيانات .

أين يكمن الخلل إذا ؟ 

Handicapés.accdb الإجمالية.xlsx كود إستيراد جدول.rar

[Foksh]

وعليكم السلام ورحمة الله وبركاته ،

قد يفيدك مراجعة هذا الموضوع هنا ،  .

[ابو عارف]

وعليكم السلام و رحمة الله

أخي الكريم من اجل تجنب أخطاء مستقبلا ، عليك متابعة مواضع كما اشار اليه الأستاذ @Foksh  لان اسماء حقول محتوي فواصل و كذالك الرموز الاقواس و علامات استفهام مثلا  و شيء آخر عند الحاق جول بجدول آخر يجب استثناء حقل ترقيم تلقائي في جدول الهدف

على العموم حاليا جرب الكود  من الافضل تجربة في قاعدة اساسية لان هناك بعض جداول مرتبطة 

Private Sub Commande1_Click()
'-------------------------------------------------
On Error Resume Next
Dim SQl As String
Dim SQl2 As String
Dim DB As DAO.Database
Dim rst As Recordset
Dim rst2 As Recordset
Dim fld As Field
Dim fld2 As Field
Set DB = CurrentDb
'-----------------------------------------------------
Dim mfile As String
'ÇÎÊíÇÑ ãáÝ ÅßÓá
mfile = GetFileName
' Ýí ÍÇáÉ ÚÏã ÇÎÊíÇÑ ãáÝ íÊã ÇáÅáÛÇÁ æÇáÎÑæÌ ãä ÇáÚãáíÉ
If mfile = "" Or IsNull(mfile) = True Then Exit Sub
' ÇÓÊíÑÇÏ ÇáÌÏæá æÊÓãíÊå ÈMyTable
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, "MyTable", mfile, True
'ãÓÍ ãÍÊæíÇÊ ÌÏæá ÇáÅÌãÇáíÉ ÞÈá ÇáÅáÍÇÞ
CurrentDb.Execute "DELETE ÇáÅÌãÇáíÉ.* FROM ÇáÅÌãÇáíÉ;"
'ÅáÍÇÞ ÈíÇäÇÊ ÇáÌÏæáMyTable ÈÌÏæá ÇáÅÌãÇáíÉ
'=====================================================
For Each fld In DB.TableDefs("ÇáÅÌãÇáíÉ").Fields
For Each fld2 In DB.TableDefs("MyTable").Fields
If fld.Name = fld2.Name And (fld.Attributes And dbAutoIncrField) <> 16 Then SQl = SQl & "MyTable.[" & fld.Name & "],": SQl2 = SQl2 & "[" & fld.Name & "],"
Next
Next
SQl = Left(SQl, Len(SQl) - 1)
SQl2 = Left(SQl2, Len(SQl2) - 1)
SQl = "INSERT INTO ÇáÅÌãÇáíÉ (" & SQl2 & ") SELECT " & SQl & " FROM MyTable;"
DB.Execute (SQl)
If Err.Number > 0 Then MsgBox Err.Description
'======================================================
' 'ÍÐÝ ÇáÌÏæá
CurrentDb.Execute "DROP TABLE [MyTable]"
' ÊÍÏíË ÈíÇäÇÊ ÇáãÕÏÑ
Me.Requery
End Sub

 

 

 

Handicapés (1).accdb