ابو عارف

وعليكم السلام و رحمة الله و بركاته جرب هذا تعديل DoCmd.RunSQL "UPDATE tbl_student1 SET tbl_student1.[Case] = 'منقول';"

وعليكم السلام اجعل محاذاة نص" يمين" في جدول مصدر تكست باكس

وعليكم السلام لاحظ تغير في سطر سابع Dim msg1 As String Dim ctl As Control Dim birthDateControl As Control Set birthDateControl = Me.m For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If (IsNull(ctl) Or ctl = "") And ctl.Visible = True Then Debug.Print ctl.Name If msg1 = "" Then msg1 = "لا يمكن الاستمرار توجد حقول فارغه " & vbNewLine & ctl.Name End If End If End If Next ctl If birthDateControl.Visible = True And (IsNull(birthDateControl) Or birthDateControl = "") Then msg1 = "لا يمكن حفظ البيانات، تاريخ الميلاد فارغ." & vbNewLine End If If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تـمـت عـمـلـيـة تعـديــل المـعـلـومـات بنجـــــاح", vbMsgBoxRight, " " DoCmd.GoToRecord , , acNewRec Else MsgBox msg1 & vbNewLine & "الرجاء اكمل المعلومات", vbMsgBoxRight, "بلدية سطيف" End If

وعليكم السلام اكتب معادلة تالية في مصدر بيانات حقل النصي =year([حقل التاریخ])

تفضل أخي ها احدمحاولات , يعرض لك رسالة سنين مفقودة test2023_2.accdb

السلام عليكم و رحمة الله و بركاته هذا تعديل حسب فهم مسن آخر اظهار السجل الحالي فقط.zip

اجعل مصدر تقرير استعلام اجمالي PAYMENTS (1).accdb

السلام عليكم و رحمة الله و بركاته استاذ محمد ، غير مصدر مربع "نص14" الى: ="صفحة " & [Page]\2+1 & " من " & [Pages]\2+1

جرب هذا DoCmd.SearchForRecord , "", acFirst, "[ID]='" & Str(Nz(Screen.ActiveControl, 0))&"'"

3131323.accdb

السلام عليكم وهذا احد حلول 3131323.accdb

وعليكم السلام جرب التعديل Report2.rar

جميع سجلات نموذج فرعي معروضة لو تريد تصفية نموذج فرعي نفس تقرير جرب المرفق Report.rar

تفضل أخي الكريم Report.rar

تفضل أخي Sample filter.accdb