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

[محمد قاسم 12]

السلام عليكم

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

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

ارغب فى ما يلى 

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

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

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

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

stu- up.rar

[ناقل]

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

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

 

[محمد قاسم 12]

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

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

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

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

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

1 ساعه مضت, محمد قاسم 12 said:

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

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

1 ساعه مضت, محمد قاسم 12 said:

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

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

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

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

[محمد قاسم 12]

37 دقائق مضت, أ / محمد صالح said:

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

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

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

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

40 دقائق مضت, أ / محمد صالح said:

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

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

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

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

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

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

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

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

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.rar

[د.كاف يار]

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

 

stu- up.accdb

[محمد قاسم 12]

منذ ساعه, د.كاف يار said:

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

 

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

الف شكر لكم

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

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

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

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

 

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

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

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

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

ExcelFiles.rar

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

stu- up.accdb

[د.كاف يار]

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

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

- RakamKomy

- csles

- school

 

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

 

تفضل التعديل

 

stu- up2.zip

[محمد قاسم 12]

السلام عليكم

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

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

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

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

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

csles

- school

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

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

[د.كاف يار]

43 دقائق مضت, محمد قاسم 12 said:

السلام عليكم

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

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

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

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

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

csles

- school

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

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

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

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

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

 

Tp_stoudnt.xlsx

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

[محمد قاسم 12]

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

لانه لم تنجح

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

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

Tp_stoudnt بيانات صحيحة.rar

[د.كاف يار]

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

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

 

stu- up22.zip

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

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

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

بالتوفيق

mas_import_export.rar

[محمد قاسم 12]

19 ساعات مضت, د.كاف يار said:

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

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

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

5 ساعات مضت, أ / محمد صالح said:

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

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

بالتوفيق

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

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

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

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

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

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

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

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

في ٢٨‏/٨‏/٢٠٢١ at 13:50, أ / محمد صالح said:

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

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

بالتوفيق 

[محمد قاسم 12]

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

سؤال مبدئي

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

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

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

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

[محمد قاسم 12]

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

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

 

[Eng.Qassim]

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

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

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

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

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

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

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

بالتوفيق 

[د.كاف يار]

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

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