استيراد بيانات من اكسل الى اكسس

[النهر العطشان]

السلام عليكم

رمضان كريم اعاده الله علينا وعليكم والامة الاسلامية بخير

سؤالي يا اساتذه ياكرام هو .

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

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

وشكرا

Access Import.rar

[رمهان]

حسب فهمي 

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

فذا هذا ماتريد عملناها بدون الحاجة لحذف العمود من الاكسل

بالتوفيق

[النهر العطشان]

شكرا استاذي الفاضل على سرعة الاجابة

لقد نفذت ما ابلغتني به ولكن الطريقه لم تنجح حيث اختلف التسلسل وكما بالصورة ولم يستمر .

[ابو جودي]

بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @رمهان

 

 

3 ساعات مضت, النهر العطشان said:

شكرا استاذي الفاضل على سرعة الاجابة

لقد نفذت ما ابلغتني به ولكن الطريقه لم تنجح حيث اختلف التسلسل وكما بالصورة ولم يستمر .

الاختلاف هنا بسب حذف السجلات من قبل وهذه هى النتيجة الطبيعية للترقيم التلقائى 

 

 

 

Access Import_ up.rar

تم تعديل مايو 27, 2017 بواسطه ابا جودى

[ابو جودي]

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

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

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

[ابو جودي]

على العموم انا انتهت من تطبيق اعادة الترقيم مرة اخرى بع اغلاق القاعدة وفتحها تجد الترقيم تم اعادته برمجيا

 

Access Import_ up 2.rar

[النهر العطشان]

رمضان كريم اعاده الله علينا وعليكم والامة الاسلامية بالخير والبركة

السلام عليكم

شكرا استاذي الفاضل على ماتفضلت به جعلها الله في ميزان حسناتك .

هل بالامكان عند استيراد البيانات بان تكون الرساله باللغة العربية وتبين عدد السجلات التي سيتم استيرادها الى جدول الاكسس .

وشكرا .

[ابو جودي]

22 دقائق مضت, النهر العطشان said:

رمضان كريم اعاده الله علينا وعليكم والامة الاسلامية بالخير والبركة

السلام عليكم

شكرا استاذي الفاضل على ماتفضلت به جعلها الله في ميزان حسناتك .

هل بالامكان عند استيراد البيانات بان تكون الرساله باللغة العربية وتبين عدد السجلات التي سيتم استيرادها الى جدول الاكسس .

وشكرا .

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

وبالنسبه لتعريب الرساله ان شاء الله سيتم اخذه فى الاعتبار

[هيثم أحمد]

بعد اذن الاخ صاحب الموضوع 

اذا اردنا ان نستورد اكثر من ورقة عمل من نفس ملف الاكسيل 

بمعني انه فرضا عندي 10 ورقات عمل واريد استيراد 6 ورقات عمل فقط 

فما هي الطريقة لعمل ذلك هل يمكن عمل COMBO-BOX يظهر اسماء ورقات العمل ويكون من النوع MULTI-VALUE لكي نتمكن من اختيار اكثر من ورقة عمل في نفس الوقت واستيرادهم 

كيف يمكن كتابة كود لهذا الامر 

 

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

او لعلي لم اوفق في الحصول علي اجابة 

[Shivan Rekany]

منذ ساعه, هيثم أحمد said:

بمعني انه فرضا عندي 10 ورقات عمل واريد استيراد 6 ورقات عمل فقط

 

منذ ساعه, هيثم أحمد said:

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

فقط فكر

انت في المنتدى بها عمالقة اكسس مثل استاذنا ابوخليل و جعفر و رمهان و ابوابراهيم الغامدي و محمد ايمن و صالح حمادي و السيد جمال و ..... الخ

واليك هذا  الرابط بها ما تريد لاحد العمالقة

 

[ahmed-saad]

On ٢٧‏/٥‏/٢٠١٧ at 11:40 AM, ابا جودى said:

على العموم انا انتهت من تطبيق اعادة الترقيم مرة اخرى بع اغلاق القاعدة وفتحها تجد الترقيم تم اعادته برمجيا

 

Access Import_ up 2.rar

أستاذ ابا جودى بارك الله لك لو تكرمت ممكن تشرح لى كيف انشأت استعلام الالحاق

مع الشكر ...

[mohamedmas]

في 27‏/5‏/2017 at 11:40, ابو جودي said:

على العموم انا انتهت من تطبيق اعادة الترقيم مرة اخرى بع اغلاق القاعدة وفتحها تجد الترقيم تم اعادته برمجيا

 

Access Import_ up 2.rar

ممكن من فضلك تشرح الاستعلام import_tbl والاكواد في ازار النموذج

[ابو جودي]

17 ساعات مضت, mohamedmas said:

ممكن من فضلك تشرح الاستعلام import_tbl والاكواد في ازار النموذج

فى جدول بيتم انشاؤه باسم Tablex

استعلام الالحاق بياخد منه البيانات وبعد مدع بيتمسح الحدول ده بس كده

هذا الكود الموجود على زر الامر 

    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True

DoCmd.SetWarnings False
DoCmd.OpenQuery "import_tbl"
'DoCmd.DeleteObject acTable, "Tablex"
DoCmd.SetWarnings True

txtImportFile = ""
MsgBox "Data imported successfully"

هذا السطر الخاص بعملية استيراد البيانات من ملف الاكسل الى الجدول Tablex

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True

وهذان السطران لايقاف رسائل تشغيل الاستعلام واعادة مرة اخرى بعد الانتهاء من الكود 

DoCmd.SetWarnings False

DoCmd.SetWarnings True

وهذا الكود بين السطرين السابقين السطر الاول  لتشغيل استعلام الالحاق السطر الثانى لحذ الجدول 
 

DoCmd.OpenQuery "import_tbl"
DoCmd.DeleteObject acTable, "Tablex"

 

 

[mohamedmas]

59 دقائق مضت, ابو جودي said:

فى جدول بيتم انشاؤه باسم Tablex

استعلام الالحاق بياخد منه البيانات وبعد مدع بيتمسح الحدول ده بس كده

هذا الكود الموجود على زر الامر 

    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True

DoCmd.SetWarnings False
DoCmd.OpenQuery "import_tbl"
'DoCmd.DeleteObject acTable, "Tablex"
DoCmd.SetWarnings True

txtImportFile = ""
MsgBox "Data imported successfully"

هذا السطر الخاص بعملية استيراد البيانات من ملف الاكسل الى الجدول Tablex

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True

وهذان السطران لايقاف رسائل تشغيل الاستعلام واعادة مرة اخرى بعد الانتهاء من الكود 

DoCmd.SetWarnings False

DoCmd.SetWarnings True

وهذا الكود بين السطرين السابقين السطر الاول  لتشغيل استعلام الالحاق السطر الثانى لحذ الجدول 
 

DoCmd.OpenQuery "import_tbl"
DoCmd.DeleteObject acTable, "Tablex"

 

 

بارك الله فيك شرح شافي وافي شكرا