الاقسام

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

شكر  خاص للخبير الفاضل Foksh حاولت اطبق كود حضرتك على الاستعلام الحقيقى ولكتة لايعمل ممكن المساعدة ادرجت النموذج والاتعلام الحقيقى اعتذز لما حدث JO_2.accdb

بارك الله فيك على سرعة اهتمامك بالموضوع ولكن طريقة استخلاص الكود عن طريق تجميع الاستعلامات أعرفها جيداً وهذا هو الكود المستخدم ويعمل بنجاح SELECT Q_Students.StudentID, Q_Students.StudentName, Q_Students.ClassName, Q_S1.StudentID, Q_S1.SemesterID, Q_S1.on1, Q_S1.on2, Q_S1.on3, Q_S1.on4, Q_S1.on5, Q_S1.on6, Q_S1.on7, Q_S1.on8, Q_S1.on9, Q_S1.to1, Q_S1.to2, Q_S1.to3, Q_S1.to4, Q_S1.to5, Q_S1.to6, Q_S1.to7, Q_S1.to8, Q_S1.to9, Q_S1.tr1, Q_S1.tr2, Q_S1.tr3, Q_S1.tr4, Q_S1.tr5, Q_S1.tr6, Q_S1.tr7, Q_S1.tr8, Q_S1.tr9, Q_S2.StudentID, Q_S2.SemesterID, Q_S2.on1, Q_S2.on2, Q_S2.on3, Q_S2.on4, Q_S2.on5, Q_S2.on6, Q_S2.on7, Q_S2.on8, Q_S2.on9, Q_S2.to1, Q_S2.to2, Q_S2.to3, Q_S2.to4, Q_S2.to5, Q_S2.to6, Q_S2.to7, Q_S2.to8, Q_S2.to9, Q_S2.tr1, Q_S2.tr2, Q_S2.tr3, Q_S2.tr4, Q_S2.tr5, Q_S2.tr6, Q_S2.tr7, Q_S2.tr8, Q_S2.tr9, Q_S3.StudentID, Q_S3.SemesterID, Q_S3.on1, Q_S3.on2, Q_S3.on3, Q_S3.on4, Q_S3.on5, Q_S3.on6, Q_S3.on7, Q_S3.on8, Q_S3.on9, Q_S3.to1, Q_S3.to2, Q_S3.to3, Q_S3.to4, Q_S3.to5, Q_S3.to6, Q_S3.to7, Q_S3.to8, Q_S3.to9, Q_S3.tr1, Q_S3.tr2, Q_S3.tr3, Q_S3.tr4, Q_S3.tr5, Q_S3.tr6, Q_S3.tr7, Q_S3.tr8, Q_S3.tr9, Q_S3.TotalSum, Q_S3.average, Q_S3.Grade, Q_S3.FailCount, Q_S3.Result FROM Q_S3 INNER JOIN (Q_S2 INNER JOIN (Q_S1 INNER JOIN Q_Students ON Q_S1.StudentID = Q_Students.StudentID) ON Q_S2.StudentID = Q_Students.StudentID) ON Q_S3.StudentID = Q_Students.StudentID; لكن لا أريد هذه الطريقة !!! قلت لعله يوجد طريقة اخرى غير هه الطريقة والتي أضطر إلى تقسيم أو تجزئة الجدول إلى ثلاث استعلامات ثم عمل استعلام يتم تجميع فيه هذه الاستعلامات الثلاث في استعلام واحد والجدول يوضح نجاح هذه الطريقة  

وعليكم السلام أخي يوسف .. تفضل ملفك بعد التعديل ، حيث تم استخدام الحدث التالي في الزر :- 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

السلام عليكم لدي نموذج يوجد فيه حقل تحرير وسرد  ولدي حقل العلامة بالارقام  ولدي حقل العلامة بالحروف  - اريد عند الاختيار من مربع تحرير وسرد  يتم اخفاء حقل العلامة بالحروف  وهذا عند اختيار زيارة توجيهيه او زيارة تفقدية او زيارة استثنائية وحقل العلامة بالأرقام  يبقى فارغ العلامة.zip