salim07 قام بنشر سبتمبر 26, 2022 قام بنشر سبتمبر 26, 2022 السلام عليكم اسعد الله صباحكم اخواني عندي طلب ومشكلة لم اجد لها حل . وهي : لدينا بيانات في نموذج هذه البيانات اريد ان اختار منها حقول معينة عن طريق خانة اختيار ✔️ هكذا وتلك الحقول المختارة يتم تصديرها لسطح المكتب في ملف اكسيل وفي جدول مثل الذي في الاكسس. فقط بأختياره الحقل بعلامة ✔️ والصغط على زر تصدير مثلا وكل الشكر لكم . في المرفق قاعدة بيانات تجريبية لتطبيق المطلوب TEST 12.rar
kanory قام بنشر سبتمبر 26, 2022 قام بنشر سبتمبر 26, 2022 2 ساعات مضت, salim07 said: السلام عليكم اسعد الله صباحكم اخواني عندي طلب ومشكلة لم اجد لها حل . وهي : لدينا بيانات في نموذج هذه البيانات اريد ان اختار منها حقول معينة عن طريق خانة اختيار ✔️ هكذا وتلك الحقول المختارة يتم تصديرها لسطح المكتب في ملف اكسيل وفي جدول مثل الذي في الاكسس. فقط بأختياره الحقل بعلامة ✔️ والصغط على زر تصدير مثلا وكل الشكر لكم . في المرفق قاعدة بيانات تجريبية لتطبيق المطلوب وعليكم السلام ... اخي الكريم علامة الاختيار لديك واضح انها للسجل وليس الحقل ... 2 1
ابو البشر قام بنشر سبتمبر 26, 2022 قام بنشر سبتمبر 26, 2022 مشاركة مع استاذي كانوري في 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 1
salim07 قام بنشر سبتمبر 26, 2022 الكاتب قام بنشر سبتمبر 26, 2022 5 ساعات مضت, kanory said: وعليكم السلام ... اخي الكريم علامة الاختيار لديك واضح انها للسجل وليس الحقل ... شكرا على مرورك اخي . نعم هذا ما اقصده للعمود ككل مثل الذي بالاحمر مثل الصورة التي ارسلتها انت يعني يأخذ القيمة من الحقل a وb وc وهكذا الي اخر الجدول
kanory قام بنشر سبتمبر 26, 2022 قام بنشر سبتمبر 26, 2022 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 1 2
salim07 قام بنشر سبتمبر 27, 2022 الكاتب قام بنشر سبتمبر 27, 2022 14 ساعات مضت, kanory said: طيب تفضل ... التعديلات ::::::: 1- اضفنا حق ch في الجدول 2- عملنا استعلام بالسجلات المختارة 3- ادرجنا زر وبه الامر التالي ::::: 4- جرب المرفق .. بارك الله فيك اخي كنوري وانت ايضا اخي الوسيط نفس الفكرة ونفس مبدأ العمل هذا هو المطلوب طبقت الفكرة ونجحت في النموذج الاساسي ولكن في نموذج فرعي مصدر سجلاته نموذج الاساسي وفيه حقل للبحث وبعد البحث لا يمكن الاختيار من السجلات المطلوبة للتصديرها يعني عند الضغط لا يستطيع الاختيار تبقى فارغة من علامة ✔️ عكس النموذج الاساسي عادي تختار وتصدر واموره تمام ؟
salim07 قام بنشر سبتمبر 27, 2022 الكاتب قام بنشر سبتمبر 27, 2022 14 ساعات مضت, kanory said: طيب تفضل ... التعديلات ::::::: 1- اضفنا حق ch في الجدول 2- عملنا استعلام بالسجلات المختارة 3- ادرجنا زر وبه الامر التالي ::::: 4- جرب المرفق .. شكرا اخي كنوري تم حل المشكلة بارك الله فيك وانت ايضا اخي وسيط بارك الله فيك
abouelhassan قام بنشر أكتوبر 16, 2022 قام بنشر أكتوبر 16, 2022 (معدل) في 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 قام بنشر أكتوبر 20, 2022 قام بنشر أكتوبر 20, 2022 في 16/10/2022 at 21:13, abouelhassan said: استاذى الغالى لقلبى بارك الله فيك حاولت تنفيذ الموضوع ب برنامج لدى ولكن الموضوع فشل اخى هل بالامكان الاطلاع للوقوف على سبب عدم التنفيذ رجاء نظرا لحاجتى لهذا الموضوع اخى الكريم هذا النموذج الذى تم التنفيذ عليه اخى فى الله DATA1041-5.mdb 1.75 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads
abouelhassan قام بنشر أكتوبر 24, 2022 قام بنشر أكتوبر 24, 2022 في 16/10/2022 at 21:13, abouelhassan said: استاذى الغالى لقلبى بارك الله فيك حاولت تنفيذ الموضوع ب برنامج لدى ولكن الموضوع فشل اخى هل بالامكان الاطلاع للوقوف على سبب عدم التنفيذ رجاء نظرا لحاجتى لهذا الموضوع اخى الكريم هذا النموذج الذى تم التنفيذ عليه اخى فى الله DATA1041-5.mdb 1.75 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 6 downloads مع الشكر والتقدير
abouelhassan قام بنشر أكتوبر 30, 2022 قام بنشر أكتوبر 30, 2022 في 16/10/2022 at 21:13, abouelhassan said: استاذى الغالى لقلبى بارك الله فيك حاولت تنفيذ الموضوع ب برنامج لدى ولكن الموضوع فشل اخى هل بالامكان الاطلاع للوقوف على سبب عدم التنفيذ رجاء نظرا لحاجتى لهذا الموضوع اخى الكريم هذا النموذج الذى تم التنفيذ عليه اخى فى الله DATA1041-5.mdb 1.75 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 8 downloads
abouelhassan قام بنشر نوفمبر 3, 2022 قام بنشر نوفمبر 3, 2022 في 16/10/2022 at 21:13, abouelhassan said: استاذى الغالى لقلبى بارك الله فيك حاولت تنفيذ الموضوع ب برنامج لدى ولكن الموضوع فشل اخى هل بالامكان الاطلاع للوقوف على سبب عدم التنفيذ رجاء نظرا لحاجتى لهذا الموضوع اخى الكريم هذا النموذج الذى تم التنفيذ عليه اخى فى الله DATA1041-5.mdb 1.75 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 9 downloads مع الشكر الجزيل
kanory قام بنشر نوفمبر 3, 2022 قام بنشر نوفمبر 3, 2022 منذ ساعه, abouelhassan said: مع الشكر الجزيل انا بدون مبالغة .... دخلت الموضوع اكثر من مرة ...محاولا يا ابا الحسن تفكيك برنامجك لاصل الى الاستعلام واطبق عليه الطريقة عجزت ... فلذلك تركته للاعضاء ممكن احدهم يفهم طريقة ترابط برنامجك .. فاعذرني اخي ابا الحسن لجهلي في فهم ذلك ... 1
abouelhassan قام بنشر نوفمبر 3, 2022 قام بنشر نوفمبر 3, 2022 2 ساعات مضت, kanory said: انا بدون مبالغة .... دخلت الموضوع اكثر من مرة ...محاولا يا ابا الحسن تفكيك برنامجك لاصل الى الاستعلام واطبق عليه الطريقة عجزت ... فلذلك تركته للاعضاء ممكن احدهم يفهم طريقة ترابط برنامجك .. فاعذرني اخي ابا الحسن لجهلي في فهم ذلك ... اشكرك اخي الكريم وجزاك الله خيرا يارب
abouelhassan قام بنشر مارس 8, 2023 قام بنشر مارس 8, 2023 في 3/11/2022 at 21:01, kanory said: انا بدون مبالغة .... دخلت الموضوع اكثر من مرة ...محاولا يا ابا الحسن تفكيك برنامجك لاصل الى الاستعلام واطبق عليه الطريقة عجزت ... فلذلك تركته للاعضاء ممكن احدهم يفهم طريقة ترابط برنامجك .. فاعذرني اخي ابا الحسن لجهلي في فهم ذلك ... للرفع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.