ابو عارف

وعليكم السلام و رحمة الله و بركاته جرب هذا تعديل 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

اعتقد سبب فاصلة اضافية في دالة لا اسم حقل ID لان جمع حقل كامل في جدول يكتفي ذكر اسم تلك الحقل في جدول اما اضافة حقل او حقول اضافية للمعايير على حسب قيم تلك الحقول جرب هذا: Me.b1 = DSum("[ON1]", "box")

وعليكم السلام جرب هذا Me.B1 = DSum("[ON1] ", "box")

السلام عليكم جرب معادلة تالية مع مراعات نوع فاصل "," او ";" حسب لغة ويندوز nz(([A])+nz([B]))/IIF([A]>0 And [B]>0,2,1) nz(([A])+nz([B]))/IIF([A]>0 And [B]>0;2;1)

وعليكم السلام , تفضل قاعدة بيانات.rar

وعليكم السلام تفضل انظر التعديل ملاحظة: تم تنزيل نموذج فرعي من رأس نموذج رئيسئ الى تفصيل نموذج رئيسي Documents.rar

السلام عليكم جرب أمر Refrish في حدث في الحالي اوقم بتقليل مدة الفاصل الزمني للتحديث في اعدادات عميل

السلام عليكم أخي هشام اتظر استعلام query1 اتمنى يكون المطلوب رصيد اخر المدة.rar

كلام صحيح مئة في المئة حتى لو على درايف محلي مع زيادة سجلات سيسبب البطء ولكن مع قلة سجلات اقل من 100000 مثلاً و في درايف محلي فلا بأس بطريقة بحث مع تقدم كتابة كما في المرفق عادل.rar

تم تعديل المرفق السابق ايضا Aziz (1).rar

نعم ممكن تفضل Aziz (1).rar