ابو عارف

وعليكم السلام اكتب معادلة تالية في مصدر بيانات حقل النصي =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

تفضل أخي بعد كتابة رقم القومي اضغط على زر انتر Aziz (1).rar Rem === كود لتعبئة حقل الجتس تلقائي بناء على الرقم الوطني==== Call Gender PIRTH_DATE.SetFocus Rem ==== كود يقوم بالتحقق من صحة الرقم الوطني==== If Left(Me.CODE, 1) <> 1 And Left(Me.CODE, 1) <> 2 Then MsgBox "عذراً الرقم الذي ادخلته غير صحيح" & Chr(13) & "أعد إدخال الرقم الوطني بشكل صحيح" Me.CODE = "" Me.CODE.SetFocus Cancel = True ElseIf Len(Me.CODE & "") <> 12 Then MsgBox "ادخل الرقم الوطني" Me.CODE = "" Me.CODE.SetFocus Cancel = True End If PIRTH_DATE.SetFocus PIRTH_DATE.SelStart = 6 SendKeys Mid(CODE, 2, 4) SendKeys "{LEFT 8}"

نعم ممكن ان شاء الله تغيير الخلفيه (3).rar

عذرا لخطاء ارفاق ملف دون حفظه في ارشيف و هذا ملف الجديد NewFile.rar