النجاشي قام بنشر سبتمبر 4, 2019 مشاركة قام بنشر سبتمبر 4, 2019 السلام عليكم احبتي الموضوع اريد كود يستورد البيانات من اكسل الي الاكسس بحيث ينشي لي جدول بنفس عدد الاعمده الذي بالاكسل تحياتي احبتي NWBANY.mdb XX.xls رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 4, 2019 مشاركة قام بنشر سبتمبر 4, 2019 تفضل هذا المثال للتوضيح تصدير و استيراد.accdb 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 4, 2019 مشاركة قام بنشر سبتمبر 4, 2019 اخي الكريم لا اعلم ما هو تنسيق الجدول الاصلي لديك يبدوا ان الملف المحمل تم التعديل عليه بحذف صفوف قد يلزمك انشاء كود متكرر يتم الاستيراد البيانات على دفعات حسب تقسيم الاكسل لديك نصيحة احذف الصفوف انشئ جدول للعملاء انشئ جدول للفواتير بعدها تستطيع استيراد البيانات حسب نطاق البيانات الموجود في ملف الاكسل الطريقة متعبة نوعا ما و تحتاج وقت لفرز ملف الاكسل ليتماشى مع تصميم قواعد البيانات 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 4, 2019 الكاتب مشاركة قام بنشر سبتمبر 4, 2019 6 دقائق مضت, د.كاف يار said: اخي الكريم لا اعلم ما هو تنسيق الجدول الاصلي لديك يبدوا ان الملف المحمل تم التعديل عليه بحذف صفوف صحيح استاذي الكريم تم حذف صفوف من الاكسل بالنسبه للجدول مابهيمنا غير انه يكون غي كود مثلا يشي جدول جسب الحقول الموجوه بالاكسس ونستورد بعدها من ملف الاكسل تحياتي اليك يالغالي رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر سبتمبر 4, 2019 مشاركة قام بنشر سبتمبر 4, 2019 السلام عليكم استخدم هذا الكود DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K164" DoCmd.RunSQL "delete from zaher Where isnull([رقم الصنف]) and isnull([اسم الصنف])" 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 4, 2019 الكاتب مشاركة قام بنشر سبتمبر 4, 2019 26 دقائق مضت, صالح حمادي said: السلام عليكم استخدم هذا الكود DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K164" DoCmd.RunSQL "delete from zaher Where isnull([رقم الصنف]) and isnull([اسم الصنف])" بارك الله فيك استاذي القاضل /صالح حمادي الف الف شكر اليك يالغالي كم بحثت عن هذا ولم اجده دوما وانت تعمل لي اشياء مختصره وحلوه بارك الله فيك يالغالي ولكن لدي شويه امور ياليت تكملها لي يظهر لي رقم العميل وتاريخ الانتهاء والتاريخ الموجوده براس الورقه بالاكسل تظهر بالجدول نهايه السجلات فاريد ان لا تظهر هذه الاشياء مع العلم انها لم تظهر عندك لاننا حذفت بعض السجلات من الورقه ياالغالي مع شكري وتقديري للدكتور كاف الله يعطيه الصحه والعافيه دوما ما يقصر معنا رابط هذا التعليق شارك More sharing options...
essam rabea قام بنشر سبتمبر 4, 2019 مشاركة قام بنشر سبتمبر 4, 2019 (معدل) أخى ابو زاهر هذه محاولة أخرى ولكن عن طريق الماكرو أرجو أن تفيد ضع ملف الإكسيل فى ال \:D NWBANY.accdb XX.xlsx تم تعديل سبتمبر 4, 2019 بواسطه essam rabea 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 4, 2019 الكاتب مشاركة قام بنشر سبتمبر 4, 2019 18 دقائق مضت, essam rabea said: أخى ابو زاهر هذه محاولة أخرى ولكن عن طريق الماكرو أرجو أن تفيد ضع ملف الإكسيل فى ال \:D NWBANY.accdb 452 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads XX.xlsx 17.01 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads مشكور استاذي عصام بطلع عليها غدا واوفيك بالنتيجه رغم انني ما بجب المكرو الف شكر اليك يالغالي وتصبح على خير نعست هههههههه رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر سبتمبر 5, 2019 مشاركة قام بنشر سبتمبر 5, 2019 11 ساعات مضت, ابو زاهر said: يظهر لي رقم العميل وتاريخ الانتهاء والتاريخ الموجوده براس الورقه بالاكسل تظهر بالجدول نهايه السجلات هذه لا تظهر لأنني حددت نطاق البيانات 11 ساعات مضت, ابو زاهر said: مع العلم انها لم تظهر عندك لاننا حذفت بعض السجلات من الورقه ياالغالي أنا لم أحذف سوى السجلات الفارغة جرب لا تضع كود الحذف سوف يجلب لك نفس الجدول به مجموعة من السجلات الفارغة هذه السجلات الفارغة تمثل الجدول الذي قمت بتحديد حدوده في الأكسل 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 5, 2019 الكاتب مشاركة قام بنشر سبتمبر 5, 2019 استاذي صالح حمادي اليك هذه الملف الاصل اريد ان لابظهر لي رقم العميل والتاريخ ورقم العرض استورده من هذا الملف ستجد انها ظهرت بالجدول xx.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة صالح حمادي قام بنشر سبتمبر 5, 2019 أفضل إجابة مشاركة قام بنشر سبتمبر 5, 2019 جرب الكود بهذا الشكل: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K" DoCmd.SetWarnings False DoCmd.RunSQL "delete from zaher Where isnull([المجموع/ض]) and isnull([المجموع])" DoCmd.SetWarnings True 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر سبتمبر 6, 2019 الكاتب مشاركة قام بنشر سبتمبر 6, 2019 14 ساعات مضت, صالح حمادي said: منذ ساعه, صالح حمادي said: جرب الكود بهذا الشكل: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K" DoCmd.SetWarnings False DoCmd.RunSQL "delete from zaher Where isnull([المجموع/ض]) and isnull([المجموع])" DoCmd.SetWarnings True ممتاز جدا استاذي الفاضل جزاك الله خير هذا هو مطلوبي بكله الف تحيه اليك يالغالي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.