المساعدة فى - تصدير جدول الى ملف اكسيل ثم استيراد ما به من بيانات الى نفس الجدول

[محمد قاسم 12]

السلام عليكم

الرجاء المساعدة فى ما يلى 

لدي جدول باسم Tp_stoudnt

ارغب فى ما يلى 

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

لكى يتم تعبئة بياناته من ملفات اكسيل مستورة من موقع الحكومة الالكترونية

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

لانه عند لصق البيانات فى الجدول مباشرة لا تعمل 

stu- up.rarFetching info...

[ناقل]

اين ملف الاكسل ::::

وهل انت تريد تصدير للاكسل أم استيراد من الاكسل ؟؟؟؟؟

 

[محمد قاسم 12]

ارغب فى ان يكون هناك زر فى الفورم لانشاء ملف الاكسيل بجوار القاعده

وبعد زلك يكون هناك زر للاستيراد

انظر الفورم المرفق بالقاعدة

[أ / محمد صالح]

أشعر بشيء من عدم ترتيب الأفكار

  في 27‏/8‏/2021 at 17:10, محمد قاسم 12 said:

1- تصدير بعض الاعمدة من الجدول الى ملف اكسيل

Expand  

مادام الأمر به انتقاء لبعض الأعمدة لتصديرها وبعض الأعمدة لا تصدر فيجب إنشاء استعلام ثم تصدير هذا الاستعلام

  في 27‏/8‏/2021 at 17:10, محمد قاسم 12 said:

2 - يتم استيراد البيانت من ملف الاكسيل الى نفس الجدول

Expand  

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

وإذا تم حذفها ماذا عن الأعمدة التي لم يتم تصديرها. هل تظل فارغة بدون بيانات ؟

رجاء توضيح المطلوب بكل تفاصيله وأهدافه

[محمد قاسم 12]

  في 27‏/8‏/2021 at 19:05, أ / محمد صالح said:

مادام الأمر به انتقاء لبعض الأعمدة لتصديرها وبعض الأعمدة لا تصدر فيجب إنشاء استعلام ثم تصدير هذا الاستعلام

Expand  

بارك الله فيك يا استاذنا

هناك جدول باسم جدول Tp_stoudntoutبه الأعمدة التي ترغب في تصديرها في الاكسيل

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

  في 27‏/8‏/2021 at 19:05, أ / محمد صالح said:

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

وإذا تم حذفها ماذا عن الأعمدة التي لم يتم تصديرها. هل تظل فارغة بدون بيانات ؟

رجاء توضيح المطلوب بكل تفاصيله وأهدافه

Expand  

الهدف هو ادراج سجلات جديده للقاعده

انظر الفورم والمرفق في الملف

[أ / محمد صالح]

يمكنك استعمال هذه الأكواد

كود تصدير الاستعلام إلى اكسل في نفس مجلد البرنامج

DoCmd.OutputTo acOutputQuery, "QueryName", acFormatXLSX, CurrentProject.Path & "\ExcelFileName.xlsx", False

مع مراعاة تغيير اسم الاستعلام queryname واسم ملف الاكسل excelfilename

كود الاستيراد من اكسل إلى جدول

DoCmd.TransferSpreadsheet acImport, 8, "TableName", CurrentProject.Path & "\ExcelFileName.xlsx", True

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

بالتوفيق 

[محمد قاسم 12]

كود التصدير نجح بالفعل

والمشكلة فى كود الاستيراد

استاذى الفاضل

المشكله هنا اننى ارغب فى ان يتم الاستيراد واضاة اسم المدرسة واسم الصف من الفورم مع البيانات المضافة 

 

وهناك جدول باسم Tp_stoudnt-OUT

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

 

[أ / محمد صالح]

بالنسبة لموضوع إضافة حقل المدرسة والفصل لملف الاكسل

يمكنك استعمال هذا الكود قبل كود الاستيراد

'Tools ->References -> Microsoft Excel Object Library
Dim xlapp As Excel.Application, xlBook As Excel.Workbook, xlSheet As Excel.Worksheet
Dim ExcelPath As String, lastRow As Long, lastcolumn As Long

ExcelPath = CurrentProject.Path & "\ExcelFileName.xlsx"
Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.Workbooks.Open(ExcelPath)
Set xlSheet = xlBook.Worksheets(1)

With xlSheet
    lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    lastcolumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
    .Cells(1, lastcolumn + 1) = "school field title"
    .Range(.Cells(2, lastcolumn + 1), .Cells(lastRow, lastcolumn + 1)) = "school field value"
    .Cells(1, lastcolumn + 2) = "class field title"
    .Range(.Cells(2, lastcolumn + 2), .Cells(lastRow, lastcolumn + 2)) = "class field value"
End With

xlBook.Close 1
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlapp = Nothing

مع مراعاة تفعيل مرجع اكسل من قائمة tools وتغيير اسم ملف الاكسل

واسم عنوان حقل المدرسة وقيمة حقل المدرسة

واسم عنوان حقل الفصل وقيمة حقل الفصل

بالتوفيق

[محمد قاسم 12]

لم انجح  للمرة الثانية فى تطبيق الحل

ارجوا ان يكون العمل من خلال هذا الفورم

stu- up2.rarFetching info...

[د.كاف يار]

تفضل هذا التعديل

 

stu- up.accdbFetching info...

[محمد قاسم 12]

  في 28‏/8‏/2021 at 14:23, د.كاف يار said:

تفضل هذا التعديل

 

Expand  

استاذ الفاضل والمعلم الجليل

الف شكر لكم

بالفعل يتم انشاء ملف الاكسل

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

اسف جدا علىعدم قدرتى على ايصال طلبي

انظر الفورم بعد التعديل عليه

 

ارغب فى لصق البيانات هنا لتأخذ معها الصف واسم المدرسة  وتدرج فى جدول Tp_stoudnt 

اما بالنسبة لتصدير البيانات ارغب فى ن يكون التصدير من جدول Tp_stoudnt-OUT

وهذه تم تعديل ويتم الاخراج بنجاح

الفشل هنا فى استيراد البيانات مره اخرى

ExcelFiles.rarFetching info...

هذا ملف الاكسل وقد تم تعبئة بالبيانات

stu- up.accdbFetching info...

[د.كاف يار]

لديك مشكلة في ملف الاكسل 

حقول يجب الا تكون فارغة

- RakamKomy

- csles

- school

 

لقد وضعت تسلسل في dyana مما تسبب في مشكلة في الاستيراد

 

تفضل التعديل

 

stu- up2.zipFetching info...

[محمد قاسم 12]

السلام عليكم

اولا : اعتذر بشده عن ازعاجي لكم

واسف لانى لم استطع التطبيق جيدا لما قمتم به من تعديل

-------------------------

عند تجربة الملف تأتى الرسائل التالية

و قد اشارت اليكم بان المطلوب ان يتم الاستيراد الى اسم المدرسة والصف المحددين فى الفورم

csles

- school

تأخذ بياناتهم من الفورم

وتضاف مع البيانات الى جدول  Tpstoudnt 

[د.كاف يار]

  في 28‏/8‏/2021 at 18:35, محمد قاسم 12 said:

السلام عليكم

اولا : اعتذر بشده عن ازعاجي لكم

واسف لانى لم استطع التطبيق جيدا لما قمتم به من تعديل

-------------------------

عند تجربة الملف تأتى الرسائل التالية

و قد اشارت اليكم بان المطلوب ان يتم الاستيراد الى اسم المدرسة والصف المحددين فى الفورم

csles

- school

تأخذ بياناتهم من الفورم

وتضاف مع البيانات الى جدول  Tpstoudnt 

Expand  

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

جرب استخدم نفس الملف المرفق مع التعديل

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

 

Tp_stoudnt.xlsxFetching info...

تم تعديل أغسطس 28, 2021 بواسطه د.كاف يار

[محمد قاسم 12]

يبدوا لى ان الخطاء لدي فى تصميم القاعدة

لانه لم تنجح

هل هناك طرق اخرى

هذا ملف به بيانات صحيحة ارجوا التجربة وقد يكون الخطاء فى الجهاز لدي 

Tp_stoudnt بيانات صحيحة.rarFetching info...

[د.كاف يار]

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

يجب ان تستخرج الملفات من الملف المضغوط اولاً

 

stu- up22.zipFetching info...

[أ / محمد صالح]

تفضل هذا ملفك بعد وضع الكود فيه (أولى خطوات التعلم هي الرغبة والإصرار)

مع ضرورة أن يكون عنصر المدرسة والفصل غير منضم  (لانهما مرتبطان بجدول الطلاب فبمجرد اختيارهم يعني أنك بدأت تسجل سجل جيديد)

بالتوفيق

mas_import_export.rarFetching info...

[محمد قاسم 12]

  في 28‏/8‏/2021 at 20:02, د.كاف يار said:

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

يجب ان تستخرج الملفات من الملف المضغوط اولاً

Expand  

بارك الله فيكم لا اعلم لماذا لا يعمل لدى 

  في 29‏/8‏/2021 at 10:12, أ / محمد صالح said:

تفضل هذا ملفك بعد وضع الكود فيه (أولى خطوات التعلم هي الرغبة والإصرار)

مع ضرورة أن يكون عنصر المدرسة والفصل غير منضم  (لانهما مرتبطان بجدول الطلاب فبمجرد اختيارهم يعني أنك بدأت تسجل سجل جيديد)

بالتوفيق

Expand  

استاذس الفاضل 

بارك الله فيكم

هذا بالفعل ما كنت ارغب به 

ولكن فيما يبدوا لدي مشكله فى الاوفيس 

انظر هذه الرسالة 

[أ / محمد صالح]

لا يوجد مشكلة في الأوفيس

يوجد فقط عدم التزام بالتعليمات

  في 28‏/8‏/2021 at 11:50, أ / محمد صالح said:

مع مراعاة تفعيل مرجع اكسل من قائمة tools

Expand  

والخطوات بالتفصيل في السطر الأخضر فوق سطر الخطأ (في حالة نسخ النموذج إلى قاعدة بيانات أخرى )

بالتوفيق 

[محمد قاسم 12]

[أ / محمد صالح]

سؤال مبدئي

هل الملف المرفق مني يعمل بكفاءة عندك قبل أي تعديل عليه؟

نأتي لظهور الأخطاء 

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

حتى نتوصل لسبب الخطأ 

[محمد قاسم 12]

لم اقمل باى تغييرات على الملف 

وهذا من التجربة الاولى على جهازين لدين ويعملان بنفس الاصدارة من اوفيس 2010 عربي

 

[Eng.Qassim]

يجب ان تنزل اوفيس 2016... لان البرنامج بحاجة لمكتبات اكسل 16

[أ / محمد صالح]

مادام الملف يعمل عندي يفترض أن يعمل عندك بدون إضافة مراجع فقد تمت إضافة المرجع عندي

وإذا كنت لم تقم بأي تغيرات

هل يظهر لك في نافذة المراجع في قائمة أدوات مرجع مفقود missing reference ؟ يخص ميكروسوفت اكسل (16) وهو رقم اكسل 365

إذا كان يظهر يجب حذف علامة الصح بجواره 

لأن الرسالة السابقة تعني تعارض في تسمية الموديول أو المشروع أو المرجع

بالتوفيق 

[د.كاف يار]

انصحك بأن تقوم بإلغاء جميع العلاقات فلست بحاجة للكم الهائل من هذه العلاقات 

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