استيراد بيانات

[عفرنس]

السلام عليكم 

أريد استيراد البيانات المرفقة من ملف اكسل ..

ولك جزيل الشكر .. 

11.rar

[Khalid Jnb]

تفضل اخي العزيز

ملف لاحد الاخوة  في الموقع

اتمنى ان يكون المطلوب

Access Import_ up.rar

[عفرنس]

منذ ساعه, خالد سيسكو said:

تفضل اخي العزيز

ملف لاحد الاخوة  في الموقع

اتمنى ان يكون المطلوب

Access Import_ up.rar 23.84 kB · 5 تنزيلات

لم يضبط معي .. 

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

[أبو عبدالله الحلوانى]

السلام عليكم 

أخي يجب أن تجري بعض التعديلات علي ملف الاكسل لتسهل معك عملية الاستيراد

أولا يجب أن تجعل كل قيمة بعمود مستقل 

ثانيا اجعل عنوين الاعمدة هي نفسها نفس الأسماء الأعمدة بالجدول المراد الاستيراد اليه بالأكسس

ثالثا اتبع تعليمات استيراد البيانات بمعالج الاستيراد الخاص بالأكسس

 

[عفرنس]

13 دقائق مضت, أبو عبدالله الحلوانى said:

السلام عليكم 

أخي يجب أن تجري بعض التعديلات علي ملف الاكسل لتسهل معك عملية الاستيراد

أولا يجب أن تجعل كل قيمة بعمود مستقل 

ثانيا اجعل عنوين الاعمدة هي نفسها نفس الأسماء الأعمدة بالجدول المراد الاستيراد اليه بالأكسس

ثالثا اتبع تعليمات استيراد البيانات بمعالج الاستيراد الخاص بالأكسس

 

لا أرغب هذه الطريقة .. جزيت خيرا . 

[أبو عبدالله الحلوانى]

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

ثم استخدم الكود التالي

DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel12, _        ' هنا تحدد رقم نسخة الاوفس لديك وفي الغالب ستجد النسخة تظهر لديك اتمتك عند كتابة الكود
"StUpdatInfo", _        ' هنا تحدد اسم الجدول المراد الاستيراد اليه 
Me.txtPath, _        'هنا تحدد مسار ملف الاكسل المراد استيراده  
True, _              'هذا الخيار تحدد فيه ان كان ملف الاكسل لديك يحتوي علي أسماء للأعمدة أم لا
"A1:Z10000"        'هنا تحدد نطاق البيانات داخل ملف الاكسل وهو اختياري ولكن أفضل تحديده بشكل شخصي حتي لا يتم استيراد حقول فارغة غير مرغوب بها

ولا تنسي الخطوتين الأوليين

تمنياتي بالتوفيق

[عفرنس]

11 دقائق مضت, أبو عبدالله الحلوانى said:

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

ثم استخدم الكود التالي

DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel12, _        ' هنا تحدد رقم نسخة الاوفس لديك وفي الغالب ستجد النسخة تظهر لديك اتمتك عند كتابة الكود
"StUpdatInfo", _        ' هنا تحدد اسم الجدول المراد الاستيراد اليه 
Me.txtPath, _        'هنا تحدد مسار ملف الاكسل المراد استيراده  
True, _              'هذا الخيار تحدد فيه ان كان ملف الاكسل لديك يحتوي علي أسماء للأعمدة أم لا
"A1:Z10000"        'هنا تحدد نطاق البيانات داخل ملف الاكسل وهو اختياري ولكن أفضل تحديده بشكل شخصي حتي لا يتم استيراد حقول فارغة غير مرغوب بها

ولا تنسي الخطوتين الأوليين

تمنياتي بالتوفيق

بورك فيك ابو عبدالله .. 

حقيقة انا لا أفهم طريقة الأكواد .. 

إن استطعت تعمله لي اكن لك شاكرا .. 

دمت بود 

[Barna]

2 ساعات مضت, emam1424 said:

بورك فيك ابو عبدالله .. 

حقيقة انا لا أفهم طريقة الأكواد .. 

إن استطعت تعمله لي اكن لك شاكرا .. 

دمت بود 

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

 

Database1.mdb

[عفرنس]

1 ساعه مضت, Barna said:

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

 

Database1.mdb 316 kB · 2 تنزيلات

جزاك الله خيرا أخي محمد . وجميع الأخوة ..