ابو البشر

الكود السابق اخي وباختصار يقوم بانشاء جدول مؤقت باسم year_table في كل مرة يجلب البيانات من استعلام معين حسب جدول السنة ( الاولى - الثانية - الثالثة ) عن طريق select case ثم يقوم بتصدير البيانات لملف الاكسل ... ثم حذف الجدول المؤقت هنا مثال ممتاز لاخونا الاستاذ @ابوخليل مثلا عند no ابحث في مثال اخونا تجدها من ضمن الكلمات المحجوزة الحقول المحسوبة اعني بها في الجدول .... حاول تعملها في الاستعلام او التقرير او النماذج .... والله اعلم

اخي الكريم من وجهة نظري الشخصية ::: لديك بعض الأخطاء منها ::::: * استخدام الكلمات او العبارات المحجوزة للأكسس * تكرار بعض مسميات الحقول في الاستعلامات * الحقول المحسوبة * ايضا ادخال المواد التدريسية لماذا لم تتم بشكل سجلات بدلا من ادخالها افقيا على كل حال ( لو كنت مصر على طريقتك تفضل بعض الحل للمشكلة ) اعمل زر وضع فيه هذه الشيفره Dim sXlsFile As String sXlsFile = CurrentProject.Path & "\ww1.xlsx" DoCmd.SetWarnings False If Not IsNull(Forms!w_moka_mid9!MM) Then Select Case Forms!w_moka_mid9!MM Case Is = "الاولى" DoCmd.RunSQL " SELECT [year-table1].[full-name], [year-table1].[natio-no], [year-table1].exper, [year-table1].cerf, [EXPR2] & "", "" & [EXPR3] & "", "" & [EXPR4] AS EXPR6 INTO year_table " & _ " FROM [year-table1] " & _ " WHERE ((Not ([year-table1].EXPR5) Is Null));" Case Is = "الثانية" DoCmd.RunSQL " SELECT [year-table2].[full-name], [year-table2].[natio-no], [year-table2].exper, [year-table2].cerf, [EXPR2] & "", "" & [EXPR3] & "", "" & [EXPR4] AS EXPR6 INTO year_table " & _ " FROM [year-table2] " & _ " WHERE ((Not ([year-table2].EXPR5) Is Null));" Case Is = "الثالثة" DoCmd.RunSQL " SELECT [year-table3].[full-name], [year-table3].[natio-no], [year-table3].exper, [year-table3].cerf, [EXPR2] & "", "" & [EXPR3] & "", "" & [EXPR4] AS EXPR6 INTO year_table " & _ " FROM [year-table3] " & _ " WHERE ((Not ([year-table3].EXPR5) Is Null));" End Select Call Export_Excel_officena_by_aba_judy(sXlsFile, "SELECT * FROM year_table", 6) DoCmd.DeleteObject acTable, "year_table" Else MsgBox "اختر جداول السنة المطلوب عرض تقريرها", vbCritical, "انتبــــــه" End If DoCmd.SetWarnings True

تم التعديل على الفورم1 ...... جرب واعلمنا Desktop.rar

طيب ممتاز اخي الكريم .... ممكن ان نجعل الملف الاصلي ( قالب اكسل ) ولن يتم التعديل عليه .... على ذلك عند الخروج من الملف بعد التصدير يطالبك بالحفظ على شكل ملف اكسل عادي ( ممكن تحفظه وممكن تخرج بدون حفظ ) ويبقى الملف الاصلي كما هو بدون تعديل ولايقبل التعديل ...اذا ارت الطريقة اعدل في ملفك وتجرب ..

اذا ما هو الداعي لتصديره للاكسل ؟؟؟ حتى نستطيع المساعدة

يعني انت لا تريد حفظ ملف الاكسل ... تريد فقط العرض

كيف لو كانت بهذه الصورة ؟؟؟؟؟؟

اذا كنت مصر على طريقتك تفضل التعديل .... Function Export_Excel_officena_by_aba_judy(sXlsFile As String, sQuery As String, WrSht As Integer) Dim oExcel As Object Dim oExcelWrkBk As Object Dim oExcelWrSht As Object Dim bExcelOpened As Boolean Dim db As DAO.Database Dim rs As DAO.Recordset Dim iCols As Integer Const xlCenter = -4108 On Error Resume Next Set oExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Err.Clear On Error GoTo Error_Handler Set oExcel = CreateObject("excel.application") bExcelOpened = False Else bExcelOpened = True End If On Error GoTo Error_Handler oExcel.ScreenUpdating = False oExcel.Visible = True Set oExcelWrkBk = oExcel.Workbooks.Open(sXlsFile) DoEvents Set oExcelWrSht = oExcelWrkBk.Sheets(WrSht) oExcelWrSht.Activate Set db = CurrentDb Set rs = db.OpenRecordset(sQuery, dbOpenSnapshot) With rs If .RecordCount <> 0 Then .MoveFirst oExcelWrSht.Range("f2").Value = "List Of New Monthly subscription( K4 )" oExcelWrSht.Range("j2").Value = Format(Date, "mmmm\.yyyy") oExcelWrSht.Range("f6").CopyFromRecordset rs oExcelWrSht.Range("f6").Select oExcelWrSht.Range("f1").Select Else MsgBox "There are no records returned by the specified queries/SQL statement.", vbCritical + vbOKOnly, "No data to generate an Excel spreadsheet with" GoTo Error_Handler_Exit End If End With Error_Handler_Exit: On Error Resume Next oExcel.Visible = True rs.Close Set rs = Nothing Set db = Nothing Set oExcelWrSht = Nothing Set oExcelWrkBk = Nothing oExcel.ScreenUpdating = True Set oExcel = Nothing Exit Function Error_Handler: MsgBox "The following error has occured" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: Export_Excel_officena_by_aba_judy" & vbCrLf & _ "Error Description: " & Err.Description _ , vbOKOnly + vbCritical, "An Error has Occured!" Resume Error_Handler_Exit End Function استدعيها بهذا الشكل في النموذج مع تعديل الرقم حسب رقم الشيت لديك ... Dim sXlsFile As String sXlsFile = CurrentProject.Path & "\K6_Ded.xlsx" Call Export_Excel_officena_by_aba_judy(sXlsFile, "SELECT * FROM qry_Ded_K4_New_Excel", 1) قم بتعديل الرقم 1 الى ارقام الشيت لديك

انا ضعيف جدا في الشرح..... لكن .... ماتم عمله هو ::::: 1- عملنا كمبوبكس وجعلنا مصدر بياناتة جدول الفصول 2- عملنا تقريرين فرعين وكل تقرير مرتبط باستعلام .... احد الاستعلامين ( يتم فيه تصفية اسماء الذكور فقط حسب الفصل المسجل في الكمبوبكس - يتم فيه تصفية اسماء الاناث فقط حسب الفصل المسجل في الكمبوبكس ) 3- جعلنا التقريرين الفرعين في تقرير واحد للعرض ... هذا ماتم عمله بارك الله فيك

تفضل <><><><><><><><> قاعدة بيانات مدرسية.accdb

هي نص .... كيف يكون رقم ...... الناتج ماهو 123456789

هل هذا هو طلبك اخي الكريم ...............

جرب هذا ............. Me.RecordSource = "SELECT TOP " & Me.txtTop & " Query1.العمر, * FROM Query1 ORDER BY Query1.العمر ASC;"

تحتاج اعادة ترتيب للكود ...... وخاصة قاعدة IF

تفضل <><><><><><><><> ملفك بعد التعديل باستخدام نفس الاستعلام لديك .... Exam.accdb