ابو البشر

اخي الكريم من وجهة نظري الشخصية ::: لديك بعض الأخطاء منها :::::
* استخدام الكلمات او العبارات المحجوزة للأكسس
* تكرار بعض مسميات الحقول في الاستعلامات 
* الحقول المحسوبة 
* ايضا ادخال المواد التدريسية لماذا لم تتم بشكل سجلات بدلا من ادخالها افقيا
على كل حال ( لو كنت مصر على طريقتك تفضل بعض الحل للمشكلة )
اعمل زر وضع فيه هذه الشيفره
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

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

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

ربما فهمت مطلوبك .... جرب 
 
20231211.accdb

جرب الملف .....
 
New Microsoft Access قاعدة بيانات.rar

ضع داخل زر الحفظ هذه الشيفرة .....
Dim db As DAO.Database Dim rstFrom As Recordset Dim rstTo As Recordset Set db = CurrentDb Dim RC, i, r As Integer Set rstTo = db.OpenRecordset("tbl_add_fasl", dbOpenDynaset) Set rstFrom = db.OpenRecordset("SELECT tbl_saf.id_m, tbl_saf.mr, tbl_saf.id_saf, tbl_saf.saf, tbl_saf.add_fasl FROM tbl_saf WHERE (((tbl_saf.id_m)=" & [Forms]![frm_m_r_f]![cb_mr] & "));", dbOpenDynaset) rstFrom.MoveFirst: rstFrom.MoveLast RC = rstFrom.RecordCount rstFrom.MoveFirst For i = 1 To RC For r = 1 To rstFrom!add_fasl rstTo.AddNew rstTo!id_m = rstFrom!id_m rstTo!mr = rstFrom!mr rstTo!id_saf = rstFrom!id_saf rstTo!saf = rstFrom!saf rstTo!add_fasl = r rstTo.Update Next r rstFrom.MoveNext Next i rstTo.Close rstFrom.Close Set rstTo = Nothing Set rstFrom = Nothing Set db = Nothing  

استخدم هذا ...............
If DCount("dates", "aa") > 0 Then Cancel = True MsgBox "هذا التاريخ مسجل مسبقا", vbCritical, "عملية خاطئة" Else DoCmd.GoToRecord , , acNewRec dates = Date End If  

اقرأ هذا الموضوع .....
 

انظر الصورة واستخدم هذا بدل الموجود لديك """"""
MsgBox "هذه البيانات غير موجود يرجى اعادة ادخالها" DoCmd.OpenForm "tawfrm", acNormal Response = acDataErrContinue  

استخدم هذا .......
Dim x As Integer, mov_st As String Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("SELECT prodcut.id, prodcut.prodcut FROM prodcut ORDER BY prodcut.prodcut;") rst.MoveFirst x = 1 mov_st = rst!prodcut Do While Not rst.EOF If mov_st <> rst!prodcut Then x = 1 mov_st = rst!prodcut End If rst.Edit rst!id = x x = x + 1 rst.Update rst.MoveNext Loop MsgBox "تم توزيع الارقام ", vbInformation + vbMsgBoxRight + vbOKOnly, "برنامج" rst.Close Me.Refresh  

جرب المرفق باضافة بعض المطاطعات والوظائف .... وأعلمنا بالنتيجة .
 

‏‏‏‏‏‏‏‏‏‏‏‏BASEN_2.accdb

حياك الله ..... تفضل ...
 

11.rar

جرب كده ...................................
Forms![frmZetMotor].btnsave.Caption = "update" Forms![frmZetMotor].btndelete.Enabled = True Forms![frmZetMotor].btnNew.Enabled = True Forms![frmZetMotor].CodeZet = Me.CodeZet Forms![frmZetMotor].CodeSayara = Me.CodeSayara Forms![frmZetMotor].KM = Me.KM Forms![frmZetMotor].NumKM = Me.NumKM Forms![frmZetMotor].OilType = Me.OilType Forms![frmZetMotor].Cost = Me.Cost Forms![frmZetMotor]!Filter = [Forms]![frmZetMotor]![subqryLastRecordZM].[Form]![Filter] Forms![frmZetMotor].DateChange = Me.DateChange Forms![frmZetMotor].DateRigster = Me.DateRigster  

مرحبامبك ... جمعنا لك الحسنين .... عدل حسب اختيارك واكمل التقرير بما يخدمك .... وان اشكل عليك شيئ اطرح سؤالك بارك الله فيك 
طبعا يجب عمل نموذج لفتح التقرير لسبب وهو لتحديد الشهر ..... اما الان فهو محدد بالشهر الاول فقط ....
 

hafez-1.accdb

ممكن تعملها داخل نموذج للعرض ..... وممكن استخدام ذلك النموذج لعرض كل استعلام تريد عرضه ...
 
111.accdb

تفضل .....
 
test4.mdb

طيب جرب واخبرنا ...................
 
linktable.rar

طيب جرب كده ......
Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, ""  

طيب جرب المرفق حسب فهمي للموضوع ........
 
قاعدة بيانات.rar

متابعة الطلاب.accdb

تفضل ..... اكمل تقرير للاستعلام ....
 
 
Dtabase.accdb

جرب المرفق ......
 
Book Info.accdb

تفضل ...
 

مع العلم ان طريقتك لم اقتنع بها لان البيانات اساسا تخزن دون الحاجة الى الضغط على حفظ ..... لكن تفضل ملفك .... 
 
supertest.accdb