Foksh

جزاك الله خيراً أستاذنا الغالي .. ونسأل الله أن يرزقكم زيارة بيته معتمرين وحاجّين إن شاء الله

لا عليك .. تفضل ملفك بعد التعديل باستخدام الحدث التالي :- Private Sub EXCEL_Click() On Error GoTo ErrorHandler Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim rs As DAO.Recordset Dim strSQL As String Dim strFileName As String Dim strFilePath As String Dim strQueryName As String Dim strTempTable As String Dim strMonthYear As String If IsNull(Me.MS_YR) Or Me.MS_YR = "" Then MsgBox "الرجاء اختيار الشهر والسنة أولاً", vbExclamation + vbMsgBoxRight, "" Exit Sub End If strMonthYear = Me.MS_YR strQueryName = "TempExportQuery" strTempTable = "TempExportTable" Set db = CurrentDb On Error Resume Next DoCmd.DeleteObject acTable, strTempTable On Error GoTo ErrorHandler On Error Resume Next db.QueryDefs.Delete strQueryName On Error GoTo ErrorHandler strSQL = "TRANSFORM Count(All_Names.ID) AS CountمنID " & _ "SELECT All_Names.Ddate, All_Names.Pcode, All_Names.DCode, All_Names.Pname, All_Names.Price " & _ "FROM ALL_Companys LEFT JOIN All_Names ON ALL_Companys.Name_comp = All_Names.Company " & _ "WHERE All_Names.Mon_Year = '" & strMonthYear & "' " & _ "GROUP BY All_Names.ID, All_Names.Ddate, All_Names.Pcode, All_Names.DCode, All_Names.Pname, All_Names.Price " & _ "PIVOT ALL_Companys.Name_comp In (""ثروة للتامين"",""مصر للتامين"",""دلتا للتامين"",""وثاق"",""ثروة حياة"",""رويال"",""جلوب ميد"",""بنك مصر"",""الحفر المصرية"",""التامين المصري السعودى"",""المصرية للاتصالات"",""بنك الإسكان"",""WE"",""GIG"",""AROPE"",""LIBANO SUISSE"",""QNB"");" Set qdf = db.CreateQueryDef(strQueryName, strSQL) DoCmd.RunSQL "SELECT * INTO " & strTempTable & " FROM " & strQueryName ' strFileName = "Export_" & Format(Now, "yyyy-mm-dd_hh-nn-ss") & ".xlsx" 'هنا سيتم حفظ الملف حسب الوقت الحالي مع تاريخ اليوم strFileName = Replace(strMonthYear, "/", "-") & ".xlsx" 'هنا سيتم حفظ الملف برقم الشهر والسنة strFilePath = CurrentProject.Path & "\" & strFileName DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strTempTable, strFilePath, True DoCmd.DeleteObject acTable, strTempTable db.QueryDefs.Delete strQueryName MsgBox "تم تصدير البيانات بنجاح", vbInformation + vbMsgBoxRight, "تم التصدير" ExitProcedure: Set rs = Nothing Set qdf = Nothing Set db = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء عملية التصدير", vbCritical + vbMsgBoxRight, "خطأ" On Error Resume Next If Not db Is Nothing Then DoCmd.DeleteObject acTable, strTempTable db.QueryDefs.Delete strQueryName End If Resume ExitProcedure End Sub ولكن ارجو تحديد الحقول التي تريد الاجماليات لها ، أم جميعها ؟؟ لأنني لم أقم بإضافتها إلا بعد اعتماد الحل أعلاه JO_2.zip

قم برفع الملف مرة أخرى اذا سمحت .. مع العلم انه والمفروض ارفاق الملف الذي ستعمل عليه ، وليس ملف مختلف عن ارض الواقع .

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

وعليكم السلام أخي يوسف .. تفضل ملفك بعد التعديل ، حيث تم استخدام الحدث التالي في الزر :- Private Sub أمر0_Click() On Error GoTo ErrorHandler Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String Dim strFileName As String Dim strFilePath As String Dim strQueryName As String strSQL = "SELECT Tcode, Tname, Out_Lab, IN_Lab, Total, IN_Staff, Total_Staff FROM (" & _ " SELECT 0 AS SortID, Tcode, Tname, Out_Lab, IN_Lab, Total, IN_Staff, Total_Staff FROM Tbl_Tests " & _ " UNION ALL " & _ " SELECT 1 AS SortID, '', 'المجموع الكلي', SUM(Out_Lab), SUM(IN_Lab), SUM(Total), SUM(IN_Staff), SUM(Total_Staff) FROM Tbl_Tests" & _ ") " & _ "ORDER BY SortID, Val(Tcode), Tcode;" strFileName = Format(Now, "yyyy-mm-dd_hh-nn-ss") & ".xlsx" strFilePath = CurrentProject.Path & "\" & strFileName strQueryName = "TempExportQuery" Set db = CurrentDb On Error Resume Next db.QueryDefs.Delete strQueryName On Error GoTo ErrorHandler Set qdf = db.CreateQueryDef(strQueryName, strSQL) DoCmd.OutputTo acOutputQuery, strQueryName, acFormatXLSX, strFilePath, False db.QueryDefs.Delete strQueryName MsgBox "تم تصدير البيانات بنجاح", vbInformation + vbMsgBoxRight, "تم التصدير" ExitProcedure: Set qdf = Nothing Set db = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء عملية التصدير", vbCritical + vbMsgBoxRight, "خطأ" Resume ExitProcedure End Sub وسيتم انشاء ملف اكسل باسم = الوقت الحالي وتاريخ اليوم ، وتستطيع تغيير اسم الملف كما تريد . JO.zip

وعليكم السلام ورحمة الله وبركاته .. جرب هذا الاستعلام 😉 :- SELECT S.StudentID, S1.on1 AS S1_on1, S1.on2 AS S1_on2, S1.on3 AS S1_on3, S1.on4 AS S1_on4, S1.on5 AS S1_on5, S1.on6 AS S1_on6, S1.on7 AS S1_on7, S1.on8 AS S1_on8, S1.on9 AS S1_on9, S1.to1 AS S1_to1, S1.to2 AS S1_to2, S1.to3 AS S1_to3, S1.to4 AS S1_to4, S1.to5 AS S1_to5, S1.to6 AS S1_to6, S1.to7 AS S1_to7, S1.to8 AS S1_to8, S1.to9 AS S1_to9, S1.tr1 AS S1_tr1, S1.tr2 AS S1_tr2, S1.tr3 AS S1_tr3, S1.tr4 AS S1_tr4, S1.tr5 AS S1_tr5, S1.tr6 AS S1_tr6, S1.tr7 AS S1_tr7, S1.tr8 AS S1_tr8, S1.tr9 AS S1_tr9, S2.on1 AS S2_on1, S2.on2 AS S2_on2, S2.on3 AS S2_on3, S2.on4 AS S2_on4, S2.on5 AS S2_on5, S2.on6 AS S2_on6, S2.on7 AS S2_on7, S2.on8 AS S2_on8, S2.on9 AS S2_on9, S2.to1 AS S2_to1, S2.to2 AS S2_to2, S2.to3 AS S2_to3, S2.to4 AS S2_to4, S2.to5 AS S2_to5, S2.to6 AS S2_to6, S2.to7 AS S2_to7, S2.to8 AS S2_to8, S2.to9 AS S2_to9, S2.tr1 AS S2_tr1, S2.tr2 AS S2_tr2, S2.tr3 AS S2_tr3, S2.tr4 AS S2_tr4, S2.tr5 AS S2_tr5, S2.tr6 AS S2_tr6, S2.tr7 AS S2_tr7, S2.tr8 AS S2_tr8, S2.tr9 AS S2_tr9, S3.on1 AS S3_on1, S3.on2 AS S3_on2, S3.on3 AS S3_on3, S3.on4 AS S3_on4, S3.on5 AS S3_on5, S3.on6 AS S3_on6, S3.on7 AS S3_on7, S3.on8 AS S3_on8, S3.on9 AS S3_on9, S3.to1 AS S3_to1, S3.to2 AS S3_to2, S3.to3 AS S3_to3, S3.to4 AS S3_to4, S3.to5 AS S3_to5, S3.to6 AS S3_to6, S3.to7 AS S3_to7, S3.to8 AS S3_to8, S3.to9 AS S3_to9, S3.tr1 AS S3_tr1, S3.tr2 AS S3_tr2, S3.tr3 AS S3_tr3, S3.tr4 AS S3_tr4, S3.tr5 AS S3_tr5, S3.tr6 AS S3_tr6, S3.tr7 AS S3_tr7, S3.tr8 AS S3_tr8, S3.tr9 AS S3_tr9, S3.TotalSum, S3.average, S3.Grade, S3.FailCount, S3.Result FROM ((TBL_Students AS S LEFT JOIN TBL_Final1 AS S1 ON S.StudentID = S1.StudentID AND S1.SemesterID = 1) LEFT JOIN TBL_Final1 AS S2 ON S.StudentID = S2.StudentID AND S2.SemesterID = 2) LEFT JOIN TBL_Final1 AS S3 ON S.StudentID = S3.StudentID AND S3.SemesterID = 3; تم استخدام LEFT JOIN بدلاً من INNER JOIN لضمان ظهور الطالب في التقرير حتى لو نقصت بيانات أحد الفصول الدراسية (في هذه الحالة ستظهر درجات ذلك الفصل فارغة بدلاً من اختفاء الطالب تماماً من التقرير) . واخبرنا بالنتيجة

وعليكم السلام ورحمة الله وبركاته .. جرب هذين المرفقين بأسلوبين قريبين من بعضهما .. Split Nums - 1.accdb Split Nums - 2.accdb

وعليكم السلام ورحمة الله وبركاته .. السبب طريقة ترميز الـ QR نفسه + سياسة iOS في التعامل معه . و طبعاً كاميرا الآيفون ذكية أكثر من اللازم .

وعليكم السلام ورحمة الله وبركاته .. الأصل أن تقوم بالشرح لما تريده أخي الفاضل . وبما ان العنوان "استراد وتصدير ملف الاكسيل" ، فلم ترفق ملف اكسل حتى .

كما أشار بالتعديل الأستاذ خليفة ، استبدل الاستعلام التالي بالاستعلام الذي هو مصدر التقرير :- SELECT [استعلام اساسي التكليف].[رقم الموظف], [استعلام اساسي التكليف].[اسم الموظف], [استعلام اساسي التكليف].[رقم القسم], [استعلام اساسي التكليف].[اسم القسم], [استعلام اساسي التكليف].[رقم الموظف - التكليف], [استعلام اساسي التكليف].[تاريخ تسجيل التكليف], [استعلام اساسي التكليف].[مدة التكليف], [استعلام اساسي التكليف].[تاريخ التكليف], [استعلام اساسي التكليف].[ملاحظات التكليف], [استعلام اساسي التكليف].[رقم نوع التكيف], [استعلام اساسي التكليف].[التكليف - رقم نوع التكليف], [استعلام اساسي التكليف].[نوع التكليف], [استعلام اساسي التكليف].[المسمى الوظيفي], [استعلام اساسي التكليف].[اسم يوم التكليف], [استعلام اساسي التكليف].[اسم شهر التكليف], [استعلام اساسي التكليف].[الى تاريخ], [استعلام اساسي التكليف].[رقم صلاحية التشغيل], [استعلام اساسي التكليف].[نوع صلاحية التشغيل], [استعلام اساسي التكليف].[رقم شهر التكليف], [استعلام اساسي التكليف].[المسئول المباشر], [استعلام اساسي التكليف].[اسم المسئول], [استعلام اساسي التكليف].[سنة التكليف] FROM [استعلام اساسي التكليف] WHERE [استعلام اساسي التكليف].[رقم شهر التكليف] = [ادخل رقم شهر التكليف] AND [استعلام اساسي التكليف].[رقم الموظف] IN ( SELECT [رقم الموظف] FROM [استعلام اساسي التكليف] WHERE [رقم شهر التكليف] = [ادخل رقم شهر التكليف] GROUP BY [رقم الموظف] HAVING Count(*) > 10 ) ORDER BY [استعلام اساسي التكليف].[تاريخ التكليف];

وعليكم السلام ورحمة الله وبركاته .. لم يكن شرحك دقيقاً للطلوب ، ولكن كتجربة ، تابع نتيجة الإيستعلام التالي إن كانت هي المطلوبة أم لا .. SELECT التكليف.[رقم الموظف - التكليف] AS رقم_الموظف, التكليف.[تاريخ التكليف] FROM التكليف WHERE (((التكليف.[رقم الموظف - التكليف]) In (SELECT التكليف.[رقم الموظف - التكليف] FROM التكليف WHERE Month([تاريخ التكليف]) = [ادخل رقم الشهر] GROUP BY التكليف.[رقم الموظف - التكليف] HAVING Count(*) > 10 )) AND ((Month([تاريخ التكليف]))=[ادخل رقم الشهر])) ORDER BY التكليف.[رقم الموظف - التكليف]; * ملاحظاتي .. إن أردت النجاح في عملك ، ابتعد عن التسميات العربية لعناصر ومكونات مشروعك .

هل تقصد كهذه الفكرة ؟؟ لاحظ شريط التحرير والتنسيق في الصورة !!

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

أخي الفاضل @بلانك ، استخدم كلمات الإستعجال مثل "للرفع" أو "UP" ، مع الأخذ بعين الإعتبار إن من لديه مشاركة حل ، لن يبخل عليك بأي رد ، ولكن للظروف أحكام 😇 .