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

[ابو هاله النبلسي]

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

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

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

Database1.rar

[Ahmed_J]

السلام عليكم اخي العزيز

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

هل تقصد هذا؟

[ابو هاله النبلسي]

السلام عليكم استاذي مثل هذا التنسيق

السلف .xlsx

[Ahmed_J]

اخي العزيز

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

ثم التصدير سهل ان شاء الله 

اعمل ملف بتضمن كل هذه المعلومات 

وكل الاخوة هنا للمساعدة

تحياتي

[ابو هاله النبلسي]

المرفق كما طلبت استاذي@Ahmed_J

Database1.rar

تم تعديل مارس 8, 2022 بواسطه ابو عبد الرحمن العراقي

[Ahmed_J]

السلام عليكم

مبدئيا الملف المرفق لتصدير الجدول الى اكسيل

انظر للمرفق واعطنا ملاحظاتك

Database1.accdb

[ابو هاله النبلسي]

استاذي العزيز العمل يبداء من الفورم عند اعطاء قيمة السلفة المتنوعة 5000 ونوع السلفة زوجية يذهب الى حقل الزوجية مباشرة وهكذا 

[jjafferr]

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

 

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

لأني مو قادر افهم المطلوب من المرفقات وكل مرفق فيه جزئية من الموضوع !!

 

جعفر

[ابو هاله النبلسي]

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

 

تم تعديل مارس 9, 2022 بواسطه jjafferr
تم انزال المرفق ثم حذفه من المشاركة لأنه يحتوي على بيانات خاصة

[ابو هاله النبلسي]

السلام عليكم يا غوال ي ممكن مساعده في اخر رد

[ابو هاله النبلسي]

@jjafferr @Ahmed_J لو تفضلتم 

[jjafferr]

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

 

20 ساعات مضت, ابو عبد الرحمن العراقي said:

مرفق بالملف المظغوط فيه جمع عند نهاية كل اسماء اذا كانت الاسماء اسمين يكون تحتها جمع او ثلاثه يكون تحتها جمع حسب الاسم يتم انشاء معادلة الجمع تحت كل اسم 

اللي فهمته هو ، اذا عندك نفس الاسم مكرر اكثر من مرة ، مثل ازهار مثلا :

.

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

.

هل هذا قصدك ؟

 

جعفر

[ابو هاله النبلسي]

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

[jjafferr]

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

 

هل هذا اللي تريده؟

[ابو هاله النبلسي]

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

[ابو هاله النبلسي]

ياريت ترسلي الي تم من يدك الكريمة @jjafferr

[jjafferr]

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

 

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

أ. تصدير البيانات والتعامل مع بيئة الاكسل (Excel Object) برمجيا ،

ب. عمل مجاميع الاعمدة من الاكسس وتصديرها جاهزة للاكسل ، وانا اتبعت هذه الطريقة 🙂

 

عملت 4 طرق ، وانت تختار الافضل لك:

.

بسبب انه في الاستعلام export_selfa ممكن يكون عندك الاسم مكرر اكثر من مرة () ، فكان لازم نعمل استعلام المجاميع qry_Sum_export_selfa ، بحيث يجمع قيم الموظف في سجل واحد :

.

الطريقة 3. من هنا عملنا التقرير rpt_Sum_export_selfa والذي مصدر بياناته الاستعلام اعلاه ، 

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

.

 

الفكرة الاخرى ، ان نعمل مجموع الاعمدة في الاستعلام نفسه ،

والطريقة اللي توصلت لها ، هي عمل استعلام مجاميع الاعمدة فقط qry_Sum_export_selfa_2 :

.

وتكون نتيجتها

.

ثم نعمل استعلام توحيد qry_Sum_export_selfa_3 فيه الاستعلام الاول qry_Sum_export_selfa والثاني qry_Sum_export_selfa_2

.

فتصبح النتيجة

.

الطريقة 1. بتصدير الاستعلام qry_Sum_export_selfa_3 الى اكسل عن طريق الامر TransferSpreadsheet ،

الطريقة 2. بتصدير الاستعلام qry_Sum_export_selfa_3 الى اكسل عن طريق الامر OutputTo ،

الطريقة 4. عمل تقرير من الاستعلام qry_Sum_export_selfa_3 وتصدير التقرير الى اكسل عن طريق الامر OutputTo :

.

 

وهذه اكواد الطرق اعلاه:

Private Sub cmd_Transffer_Query_Click()
'1
    Dim File_Name As String

    File_Name = CurrentProject.path & "\" & "تفصيل سلفة متنوعة" & Format(Date, "---DDDD-DD-mmmm-yyyy") & ".xlsx"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qry_Sum_export_selfa_3", File_Name, True
 
End Sub

Private Sub cmd_Output_qry_Click()
'2
    Dim File_Name As String

    File_Name = CurrentProject.path & "\" & "تفصيل سلفة متنوعة" & Format(Date, "---DDDD-DD-mmmm-yyyy") & ".xls"
    DoCmd.OutputTo acOutputQuery, "qry_Sum_export_selfa_3", acFormatXLS, File_Name, True, , , acExportQualityPrint
    
End Sub

Private Sub cmd_Output_rpt_Click()
'3
    Dim File_Name As String

    File_Name = CurrentProject.path & "\" & "تفصيل سلفة متنوعة" & Format(Date, "---DDDD-DD-mmmm-yyyy") & ".xls"
    DoCmd.OutputTo acOutputReport, "rpt_Sum_export_selfa", acFormatXLS, File_Name
    
End Sub

Private Sub cmd_Output_rpt_3_Click()
'4
    Dim File_Name As String

    File_Name = CurrentProject.path & "\" & "تفصيل سلفة متنوعة" & Format(Date, "---DDDD-DD-mmmm-yyyy") & ".xls"
    DoCmd.OutputTo acOutputReport, "rpt_Sum_export_selfa_3", acFormatXLS, File_Name
    
End Sub

 

ونصيحة:

انت مستعمل 160 حقل في الجدول FILE-1 ، ويجب عليك تفكيكه الى على الاقل 3 جداول ، وتربط بينهم برقم الموظف ، ثم في استعلام تجمعهم جميعا !!

 

جعفر

 

 

1486.Database1 (2).accdb.zip

[ابو هاله النبلسي]

لا يسعني الا ان ادعي لك بالخير والبركة وبارك الله فيك بهذا العمل الراقي وشكراً جزيلاً الشغل تمام راقي جدا

[ابو هاله النبلسي]

@jjafferr ممكن الايميل ان امكن او واتساب بخصوص تفكيك ملف FILE-1

[jjafferr]

طريقة تفكيك الجدول الى عدة جداول :

1. هناك حقل اساسي واحد يربط جميع البيانات ، فهذا الحقل يجب ان يكون في كل الجداول ،

2. يجب ان تقسم/توزع الحقول بطريقة ، بحيث كل مجموعة متجانسة من نفس النوع يكون لها جدول خاص ،

3. وبعدين تقدر تجمع احد/بعض/كل الجداول في استعلام ، ويكون هذا الاستعلام مصدر بيانات النموذج 🙂

 

وبما ان هذا السؤال خارج عن موضوع السؤال ، فرجاء تعمل له سؤال جديد ، وان شاء الله تحصل على مساعدة فيه 🙂

 

جعفر