المساعدة: انشاء قالب اكسل

[mmam93]

السلام عليكم 

كيف حالكم؟ ان شاء الله بخير

المشكلة الي عندي اني كل مرة لما اصدر ملف الى اكسل اجلس انسق الملف من جديد

هل ممكن انشاء قالب وعند التصدير يكون بالشكل الي صممته ؟

 

وشكراً لكم

[ابو البشر]

هناك العديد من تلك الامثلة في المنتدى عند البحث تجدها مثل هذه

في ١٢‏/١١‏/٢٠٢٠ at 21:29, jjafferr said:

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

 

هذا الرابط في التصدير الى الوورد

.

 

اما التصدير الى الاكسل 

.

او

.

جعفر

 

في ١٣‏/١١‏/٢٠٢٠ at 19:19, د.كاف يار said:

تفضل التعديل اخي الكريم

يجب فك الضغط عن الملفات اولاً

 

تصدير البيانات.zip 84.67 kB · 10 downloads

 

[mmam93]

مرحبا استاذ ابو البشر

بحثت مسبقا في المنتدى لكن ما حصلت مثال للي احتاجه 

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

وهذا للاسف بحثت في مواقع عربية و اجنبية لكن ما حصلت، من الممكن طريقة بحثي فيها غلط او ان الي اطلبه غير ممكن تنفيذة 

[ابو البشر]

طيب ... بارك الله فيك ممكن مرفق بسيط لما تريد ... حتى نطبق عليه

[mmam93]

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

SS Forms.zip

[ابو البشر]

اضف زر في التقرير ثم ضع هذا الكود 

وظيفته ::: تكوين جدول باسم Temp ثم تصدير البيانات الموجوده في التقرير اليه .... الان تصتطيع فعل ما تشاء سواءا تكوين رسم بياني أو تصديرة للاكسل ... جرب ووافينا بالنتيجة

Dim strSQL2 As String
strSQL2 = "CREATE TABLE [Temp] ([Assessment] TEXT(5),[Reassessment] TEXT(5), [Multidisciplinary] TEXT(5),[Followup] TEXT(5),[LAMA] TEXT(5),[MLSD] TEXT(5),[Meeting] TEXT(5),[MOH] TEXT(5),[Rounds] TEXT(5),[Total] TEXT(5));"
DoCmd.RunSQL strSQL2
On Error Resume Next
Dim rs2 As Recordset, Dbs As DAO.Database
Set Dbs = CurrentDb
    Set rs2 = Dbs.OpenRecordset("Temp")
    rs2.AddNew
    rs2.Fields(0) = [Reports]![Total of Assessment]![Count]
    rs2.Fields(1) = [Reports]![Total of Reassessment]![Count]
    rs2.Fields(2) = [Reports]![Total of Multidisciplinary]![Count]
    rs2.Fields(3) = [Reports]![Total of Follow up]![Count]
    rs2.Fields(4) = [Reports]![Total of LAMA]![Count]
    rs2.Fields(5) = [Reports]![Total of MLSD]![Count]
    rs2.Fields(6) = [Reports]![Total of meeting]![Count]
    rs2.Fields(7) = [Reports]![Total of MOH]![Count]
    rs2.Fields(8) = [Reports]![Total of Rounds]![Count]
    rs2.Fields(9) = [Assessment] + [Reassessment] + [Multidisciplinary] + [Followup] + [LAMA] + [MLSD] + [Meeting] + [MOH] + [Rounds]
rs2.Update
 Set rs = Nothing

 

[mmam93]

يعطيك الف عافية

جربت الكود ما ضبط معي يطلع معي خطا ٣٠١٠

[ابو البشر]

ملفك بعد التعديل عليه

 

SS Forms.accdb

[ابو البشر]

3 ساعات مضت, mmam93 said:

يعطيك الف عافية

جربت الكود ما ضبط معي يطلع معي خطا ٣٠١٠

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

 

[ابو البشر]

ولحذف الجدول في حال وجودة استخدم هذا الكود في اعلا الكود السابق ....

DoCmd.DeleteObject acTable, "Temp"

 

[mmam93]

شكرا كثيير كثيير 

[ابو البشر]

حياك الله