مشكلة في استيراد البيانات

[waheidi2005]

الخبراء الافاضل ،،، السلام عليكم

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

 

مع الشكر

مثال.accdb

[محمد أبوعبدالله]

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

لانك تريد استيراد جدول employee وهو موجود اساساً

اذا كنت تريد استيراد البيانات فقط قم بعمل ربط لملف اكسيل ثم قم بعمل استعلام  الحاق

اما اذا كنت تريد حذف الجدول القديم واستيراد الجدول الجديد نفذ الامر التالي

DoCmd.DeleteObject acTable, "employee"

تحياتي

[waheidi2005]

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

 

ولك كل الاحترام

[محمد أبوعبدالله]

10 دقائق مضت, waheidi2005 said:

ولكن هل من الممكن ان توضح لي كيف اربط ملف اكسل

تفضل اخي الكريم

     Dim excelFilePath As String
        excelFilePath = CurrentProject.Path & "\" & "employee.xlsx"
        ' حذف الجدول القديم
        DoCmd.DeleteObject acTable, "employee"
        ' استيراد الجدول الجديد
        DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel16, "employee", excelFilePath, True

 

ملاحظة : acSpreadsheetTypeExcel16 يتغير حسب اصدار الاوفيس لديك

10 دقائق مضت, waheidi2005 said:

واقوم بعمل استعلام الحاقي

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

تحياتي

[waheidi2005]

جزاك الله كل خير اخي محمد ونفع الله بك وغفر لنا ولك

[محمد أبوعبدالله]

الان, waheidi2005 said:

جزاك الله كل خير اخي محمد ونفع الله بك وغفر لنا ولك

بالتوفيق اخي الكريم

تحياتي

[jjafferr]

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

 

هنا كانت نفس المشكلة 

 

 

جعفر

[waheidi2005]

اشكرك اخي جعفر تم حل المشكلة بمساعدة الاخ الفاضل محمد ابو عبد الله

جزاكم الله كل خير

[jjafferr]

نعم انا متابع مجهود احوي محمد ابوعبدالله ، ولكني اردت المشاركة بطريقة اخرى للحل 🙂

 

جعفر

[أبوبسمله]

جزاكم الله خيرا اساتذتى وفقكم الله لما يحبه ويرضاه

[waheidi2005]

الشكر لله اولا ومن ثم لكم اخوتنا واستاتذتنا الفاضلين على جهودكم المميزة في مساعدتنا وجعلها الله في ميزان حسناتكم