ابو البشر

جرب هذا ........................
Sub CleanAndRemovePatterns() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPattern As String Dim strInput As String Dim updatedText As String Dim regExp As Object On Error GoTo ErrorHandler Set db = CurrentDb Set rs = db.OpenRecordset("SELECT ID, nass FROM book", dbOpenDynaset) strPattern = "&\d+&&" Set regExp = CreateObject("VBScript.RegExp") regExp.Pattern = strPattern regExp.Global = True Do While Not rs.EOF If Not IsNull(rs!nass) Then strInput = rs!nass updatedText = strInput If regExp.Test(updatedText) Then updatedText = regExp.Replace(updatedText, "") End If If Left(updatedText, 2) = vbCrLf Then updatedText = Mid(updatedText, 3) ElseIf Left(updatedText, 1) = vbLf Then updatedText = Mid(updatedText, 2) ElseIf Left(updatedText, 1) = vbCr Then updatedText = Mid(updatedText, 2) End If updatedText = LTrim(updatedText) If strInput <> updatedText Then rs.Edit rs!nass = updatedText rs.Update End If End If rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing Set regExp = Nothing MsgBox "تمت إزالة الأنماط والسطر الفارغ بنجاح!", vbInformation Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical If Not rs Is Nothing Then rs.Close Set rs = Nothing End If Set db = Nothing Set regExp = Nothing End Sub  

جرب هذا ....
On Error Resume Next Dim s As String s = InputBox("ادخل الرقم القومي المكون من 14 رقم", "ابدا البحث من فضلك") If s <> "" Then ' تطبيق الفلتر Me.Filter = "IDNumber = '" & s & "'" Me.FilterOn = True Else MsgBox "الرجاء إدخال الرقم القومي.", vbExclamation, "خطأ" End If  

Driver (1).accdb

جرب المرفق واعلمنا بالنتيجة .....
 
مقارنة بيانات.accdb

تفضل .................
Private Sub Hb_AfterUpdate() Me.rb = IIf([Hb] >= 10 And [Hb] <= 16, "normal", IIf([Hb] > 16, "up", "down")) End Sub  

تفضل .......................
 
2024.mdb

تفضل ................
 

1.accdb

كما ذكر اخي @Foksh هناك ملاحظات :::: من ضمنها انك معتمد على الترقيم التلقائي وهذا خطأ المفروض تعتمد على رقم الطالب مثلا .... على العموم انا اجريت بعض التعديلات شوفها اذا ناسبتك اعتمدها 
- اختر التاريخ ( يظهر اليوم تلقائيا - ويكتب لجميع الطلاب حاضر )
- قم بتعديل الغائبين والمتاخرين في النموذج
- اضغط على اعتماد غياب اليوم ( يتم نقل البيانات الى الجدول الثالث وهو بمثابة الجدول النهائي الذي يحغظ فيه غياب الطلاب خلال السنه
برنامج تجريبي.accdb

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