اختيار حقول وتصديرها للاكسيل

[salim07]

السلام عليكم 

اسعد الله صباحكم اخواني عندي طلب ومشكلة لم اجد لها حل .

وهي :

لدينا بيانات في نموذج هذه البيانات اريد ان اختار منها حقول معينة عن طريق خانة اختيار ✔️ هكذا

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

فقط بأختياره الحقل بعلامة  ✔️ والصغط على زر تصدير مثلا

وكل الشكر لكم .

في المرفق قاعدة بيانات تجريبية لتطبيق المطلوب

TEST 12.rar

[kanory]

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

السلام عليكم 

اسعد الله صباحكم اخواني عندي طلب ومشكلة لم اجد لها حل .

وهي :

لدينا بيانات في نموذج هذه البيانات اريد ان اختار منها حقول معينة عن طريق خانة اختيار ✔️ هكذا

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

فقط بأختياره الحقل بعلامة  ✔️ والصغط على زر تصدير مثلا

وكل الشكر لكم .

في المرفق قاعدة بيانات تجريبية لتطبيق المطلوب

وعليكم السلام ...

اخي الكريم علامة الاختيار لديك واضح انها للسجل وليس الحقل ...

 

[ابو البشر]

مشاركة مع استاذي كانوري

في 10‏/12‏/2017 at 16:59, أبو إبراهيم الغامدي said:

وعليكم السلام ورحمة الله

أهلا بك أستاذ عبد الفتاح ومرحبا.. عودا حميد..

أرجو أن أوفق لإرضاء طموحك.. لأني أتساءل كيف ستقوم باستخدم الطريقة على مستوى المستخدم؟! هل ستسلمة بيانات مفتوحة المصدر؟! أم أن لديك طريقة ما تتيح للمستخدم  انتقاء حقول البيانات ومعالجنها ومن ثم تصديرها؟! على كل حال إليك الطريقة..

يمكن تصدير حقول مختارة من جدول أو استعلام عن طريق مزودات البيانات لأكسس (DAO,ADO)  عن طريق خصيصة توصيف البيانات لكل منهما..

هناك فروق بسيط بين المزودين لكن سوف أركز على (DAO) لكونة المزود الافتراضي لأكسس..

يمكن توصيف البيانات على مستوى قاعدة البيانات، كما يمكن توصيف البيانات على مستوى مصدر السجلات (Recordset).. صيغة الشفرة لهذه المكونات كالتالي

مكون (ِADO)

Function OLEDB() As ADODB.Connection
    Set OLEDB = New ADODB.Connection
    OLEDB.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source =" & CurrentProject.Path & _
    "\EMPLOYEES.XLSX;Extended Properties = 'Excel 12.0;HDR=YES;'"
End Function

مكون (DAO)

Function XLDB() As DAO.Database
    DB_PATH = CurrentProject.Path & "\BOOK2"
    Set XLDB = OpenDatabase(DB_PATH, True, False, "EXCEL 12.0;HDR=YES;")
End Function

يكون مصدر البيانات  لهذين المكونيين هو ملف أكسل، فإذا كان ملف أكسل موجود مسبقا فإن المكون سيقوم بإدراج ورقة البيانات إلى الملف، أما إذا كان ملف أكسل غير موجود فسيقوم المكون بإنشاء الملف وإدراج ورقة البيانات..

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

ينطبق ما سبق على مكون مصدر السجلات (Recordset) وهذه صيغته

Sub EXPORT_TO_EXCEL_02(SHEET_NAME) '.. EXPORT TO EXCEL USING CURENTDB EXECUTE
    CurrentDb.Execute "SELECT ID, [LAST NAME],[FIRST NAME] INTO [" & SHEET_NAME & "]IN'" _
    & CurrentProject.Path & "\employees'[Excel 8.0;HDR=yes;] FROM EMP1"
End Sub

يمكن أيضا استخدام (DOCMD.RUNSQL) لكونها تعمد على (DAO) في مصدر البيانات وهذه صيغته

Sub EXPORT_TO_EXCEL_01(SHEET_NAME) '.. EXPORT TO EXCEL USING DOCMD RUNSQL
    DoCmd.RunSQL "SELECT ID, [LAST NAME],[FIRST NAME] INTO [" & SHEET_NAME & "]IN'" _
    & CurrentProject.Path & "\employees'[Excel 8.0;HDR=yes;] FROM EMP1"
End Sub

أرجو ملاحظة أن الأخيرين لهما نفس الصيغة في تعريف البيانات

 

الصيغة المخصصة لتوصيف بيانات أكسل هي

"EXCEL 8.0;HDR=YES;" 'تستخدم هذه الصيغة على مستوى قاعدة البيانات
[EXCEL 8.0;HDR=YES;] 'تستخدم هذه الصيغة على مستوى مصدر السجلات

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

 

طريقة تصدير البيانات تعتمد على صيغة استعلام عمل جدول (SELECT ... INTO.. IN.. [EXCEL 8.0;HDR=YES] FROM)  

..SELECT  تأخذ اسماء حقول البيانات

..INTO ينشئ جدول يحمل البيانات العائدة من SELECT .. الجدول هنا هو ورقة البيانات في أكسل

..IN تأخد اسم ملف أكسل مع الدليل

[EXCEL 8.0] ثوصيف مصدر البيانات المصدر إليها البيانات

FROM تأخذ اسم جدول البيانات في أكسس

 

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

Access With Excel.zip 46.04 kB · 89 downloads

 

[salim07]

5 ساعات مضت, kanory said:

وعليكم السلام ...

اخي الكريم علامة الاختيار لديك واضح انها للسجل وليس الحقل ...

 

شكرا على مرورك اخي .

نعم هذا ما اقصده للعمود ككل مثل الذي بالاحمر مثل الصورة التي ارسلتها انت يعني يأخذ القيمة من الحقل a وb وc وهكذا الي اخر الجدول 

[الوسيط]

ممكن تشوف التعديل التالى

 

TEST 12.rar

[kanory]

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

شكرا على مرورك اخي .

نعم هذا ما اقصده للعمود ككل مثل الذي بالاحمر مثل الصورة التي ارسلتها انت يعني يأخذ القيمة من الحقل a وb وc وهكذا الي اخر الجدول 

طيب تفضل ... التعديلات :::::::

1- اضفنا حق ch في الجدول

2- عملنا استعلام بالسجلات المختارة

3- ادرجنا زر وبه الامر التالي :::::

4- جرب المرفق ..

    Dim DTPath As String
DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\salim07- " & Format(Date, "dd-mm-yyyy") & ".xlsx"
DoCmd.OutputTo acOutputQuery, "استعلام1", acFormatXLSX, DTPath, False
MsgBox "لقد تم تصدير البيانات بنجاح"

TEST 12.accdb

[salim07]

14 ساعات مضت, kanory said:

طيب تفضل ... التعديلات :::::::

1- اضفنا حق ch في الجدول

2- عملنا استعلام بالسجلات المختارة

3- ادرجنا زر وبه الامر التالي :::::

4- جرب المرفق ..

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

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

[salim07]

14 ساعات مضت, kanory said:

طيب تفضل ... التعديلات :::::::

1- اضفنا حق ch في الجدول

2- عملنا استعلام بالسجلات المختارة

3- ادرجنا زر وبه الامر التالي :::::

4- جرب المرفق ..

شكرا اخي كنوري تم حل المشكلة بارك الله فيك وانت ايضا اخي وسيط بارك الله فيك 

[abouelhassan]

في 26‏/9‏/2022 at 21:39, kanory said:

طيب تفضل ... التعديلات :::::::

1- اضفنا حق ch في الجدول

2- عملنا استعلام بالسجلات المختارة

3- ادرجنا زر وبه الامر التالي :::::

4- جرب المرفق ..

    Dim DTPath As String
DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\salim07- " & Format(Date, "dd-mm-yyyy") & ".xlsx"
DoCmd.OutputTo acOutputQuery, "استعلام1", acFormatXLSX, DTPath, False
MsgBox "لقد تم تصدير البيانات بنجاح"

 

TEST 12.accdb 476 kB · 41 downloads

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

عدم التنفيذ رجاء نظرا لحاجتى لهذا الموضوع اخى الكريم

هذا النموذج الذى تم التنفيذ عليه اخى فى الله

DATA1041-5.mdb

تم تعديل أكتوبر 16, 2022 بواسطه abouelhassan

[abouelhassan]

في 16‏/10‏/2022 at 21:13, abouelhassan said:

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

عدم التنفيذ رجاء نظرا لحاجتى لهذا الموضوع اخى الكريم

هذا النموذج الذى تم التنفيذ عليه اخى فى الله

DATA1041-5.mdb 1.75 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

 

[abouelhassan]

في 16‏/10‏/2022 at 21:13, abouelhassan said:

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

عدم التنفيذ رجاء نظرا لحاجتى لهذا الموضوع اخى الكريم

هذا النموذج الذى تم التنفيذ عليه اخى فى الله

DATA1041-5.mdb 1.75 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 6 downloads

مع الشكر والتقدير 

[abouelhassan]

في 16‏/10‏/2022 at 21:13, abouelhassan said:

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

عدم التنفيذ رجاء نظرا لحاجتى لهذا الموضوع اخى الكريم

هذا النموذج الذى تم التنفيذ عليه اخى فى الله

DATA1041-5.mdb 1.75 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 8 downloads

 

[abouelhassan]

في 16‏/10‏/2022 at 21:13, abouelhassan said:

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

عدم التنفيذ رجاء نظرا لحاجتى لهذا الموضوع اخى الكريم

هذا النموذج الذى تم التنفيذ عليه اخى فى الله

DATA1041-5.mdb 1.75 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 9 downloads

مع الشكر الجزيل 

[kanory]

منذ ساعه, abouelhassan said:

مع الشكر الجزيل 

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

[abouelhassan]

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

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

اشكرك اخي الكريم وجزاك الله خيرا يارب 

[abouelhassan]

للرفع

[abouelhassan]

في 3‏/11‏/2022 at 21:01, kanory said:

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

للرفع