ما الخطأ فى كود يقوم باستيراد جدول من أكسل إلى قاعدة بيانات أكسس

[أحمد العيسى]

السلام عليكم

للأخت زهرة ملف كمثال منها به زر استيراد جدول من ملف أكسل سبق تصديره من قاعدة بيانات معينة

وعندما تقوم بحذف محتويات الجدول بتلك القاعدة ( وأصبح خالياً كخطوة أساسية) ، يمكنك استيراده بسهولة

عندما طبقت كل هذا على مثالى  db1.mdb  ظهر خطأ فى عملية الاستيراد

سؤالى : أين الخطأ عندى ، وما البديل لكى يتم تلاشى هذا الخطأ ؟؟

بالمرفقات الملفين المذكورين الأول للأخت زهرة بارك الله فيها .

أشكركم مقدماً على تفضلكم بالرد .

za-Export&Import.mdb db1.mdb

[jjafferr]

وعليكم السلام 🙂

 

اخوي احمد ،

يجب ان يكون عندك ملف اسمه 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

 

واذا صادفت مشكلة ، فرجاء اذكر رقم الخطأ (وياريت صورة واضحة منه) ، كما رجاء تخبرنا على اي سطر يقع الخطأ 🙂

 

جعفر

[أحمد العيسى]

بارك الله فيك أخى جعفر على تفضلك بالرد  ..   لقد تم تنقيح ما أشرت عليه ، لكن ما زالت المشكلة موجودة

1 - عند تشغيل الفورم  و جدول قاعدة البيانات به " بيانات " نضغط على زر تصدير فينتج ملف أكسل من جدول القاعدة

2- بعد ذلك نضغط على زر حذف بيانات الجدول فيتم إزالة محتوى الجدول من القاعدة ويصبح الجدول فارغاً من البيانات

3- ثم عند الضغط على زر استيراد لجلب جدول أكسل المستخرج فى خطوة 1 تظهر رسالة الخطأ التالية

أين الخطأ :

db2.mdb

[jjafferr]

وعليكم السلام 🙂

 

الآن نظرت الى الموضوع بالكامل ، واضطررت ان اغير الامر ، لأن الامر السابق يصدر تسمية الحقول (باللغة العربية) ، بينما لما نستوردهم ، لما يعمل مقارنة اسماء الحقول بالتي موجودة في الجدول ، يرى انها مختلفة ، فتظهر رسالة تقول بأن الحقل الفلاني غير موجود في الجدول !!

 

هذا الكود الجديد:

Private Sub cmd_Delete_Records_Click()

    Dim strSQL As String
    
    strSQL = "DELETE [tbl_Teacher].* FROM [tbl_Teacher];"
    DoCmd.SetWarnings False
        DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
    
End Sub

Private Sub cmd_Export_Click()
    
    Dim ImportFileName As String

    ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls"
    DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", ImportFileName, True
    
End Sub

Private Sub cmd_Import_Click()

    Dim ImportFileName As String

    ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls"
    DoCmd.TransferSpreadsheet acImport, 8, "tbl_Teacher", ImportFileName, True

End Sub

 

جعفر

1153.db2.zip

[أحمد العيسى]

أشكرك أخى جعفر

والله فكرتنى بأخى الغالى أبو هادى

المرفق يعمل بلا مشاكل

[ابو البشر]

ههه

تم تعديل ديسمبر 18, 2019 بواسطه ابو البشر

[jjafferr]

24 دقائق مضت, أحمد العيسى said:

والله فكرتنى بأخى الغالى أبو هادى

للأسف الشديد ما صار لي الشرف اتعرف عليه ،

وما شاء الله نار على علم ، بصماته موجودة ولا تندثر ،

ومواضيعه اصيله مو مأخذها نسخ/لصق من مواقع اجنبية (ومو عيب اخذها من مواقع اجنبية والتطوير عليها ، ولكن العيب عدم ذكر المصدر)

 

جعفر 🙂