محمد احمد لطفى

السلام عليكم ورحمة الله وبركاته فى هذا الملف عند وجود رقم القومى فى الخلية فارغ يحدث خطأ 94 فى الاستعلام وجزاكم الله كل خير قاعدة بيانات موظفين.rar

شكراً أستاذ @jjafferr

هل هذا ما تريد Expr1: LTrim([patient_ name]) 😉

أسف فيه مشكلة ظهرت عند اضافة سجلات جديدة و عند ملائها بالارقام يتم تحديث السجلات من الاعلى وليست نفس الخلية

مما فهمت هل هذا ما تريد datex.accdb

ياريت تضع مثال للعمل عليه

يعنى حضرتك عاوز نفس اليوم زى النهاردة مثلا 23-5-2022

أستاذى @Eng.Qassim جزاك الله خيرا

هل يمكن

أستاذى @أبو عبدالله الحلوانى نفس الفكرة فى هذا النموذج و لكن الناتج فى خلية من الاستعلام فلا يعمل 🙄 lلمفروض اكتب فى خلية AX الارقام فالناتج يظهر فى خلية الاستعلام حساب الضريبة مع التحديث عند الكتابة 123 (4).accdb

شكراً أستاذى @kanory أسف لعد درايتى بالاكواد جيداً x = NumX xx = Expr1 r = DCount("[numx]", "XtremQ", "[numx]='" & x & "'" & " and [expr1]=" & xx) If r > 0 Then If MsgBox(" هل تريد تكرار حفظ السجل ؟ ", vbYesNo, " تنبيه ") = vbNo Then Me.Undo Dim RS As Object Set RS = Me.Recordset.Clone RS.FindFirst "[numx]='" & x & "'" & " and [expr1]=" & xx If Not RS.EOF Then Me.Bookmark = RS.Bookmark Exit Sub End If End If

😇

فى هذا النموذج يتم منع تكرار الاسم فى نفس الشهر مرتين اريد اضافة رسالة هل تريد التكرار نعم يضيف لا (لا يضيف ) وجزاكم الله خيراً test5deletion.rar

السلام عليكم ورحمة الله و بركاته تحديث تلقائى للجمع عند الكتابة ( 2 ) مع خليه مصدرها استعلام تابع للموضوع عند محاولة تنفيذها على استعلام لم تعمل وجزاكم الله كل خيرا 👀 test123.rar

حاولت و لكن بيأثر على بيانات الصفحة الاولى المشكلة ان التقرير ممكن يبقى اكتر من 6 صفحات 😇

طيب هل هنك طريقة نضع بها بين كل صفحتين صفحة فاضية 😇

ممكن ولا مش ممكن يعنى أول ورقة تطبع تانى ورقة فاضي الظهر يبقى فاضى

لا تقريبا أنا فهمت غلط شكرا 😇

أسف أستاذ @jjafferr حضرتك وضحتلى أنها بتختلف عن النموذج و الجدول 😁

طب لو كانت فى جدول يأستاذ @jjafferr 123.rar

يقومون بالتجميع عند الخروج من الخليه اريد عند الكتابة مثلا فى الخلية الاولى 1 الخلية الثانية 0 = 1 وانا فى نفس الخلية ضفنا 2 الى 1 اصبح 12 الخلية الثانية 0 = 12 هكذا

يقومون بالتجميع 😇

شكراً أستاذ @jjafferr شرح جميل ممكن يتعمل تحديث على المجموع عند الكتابة فى الحقول التى يتم جمعها

أستاذ @Eng.Qassim وممكن تكون كده Me.ee = CInt(Me.[aa]) + CInt(Me.[bb]) بس قصدى كنت على OFFICE 2003 زمان بحسب عادى Me.ee = Me.[aa] + Me.[bb] بس دلوقتى هو شايف الحقل نصى مش رقم Dim a, b As Single a = Me.aa.Value b = Me.bb.Value Me.ee.Value = a + b و شكراُ الكود يعمل نريد عمل تحديث تلقائى عند الكتابة خلية EE تحب وانا اكتب فى خلية AA و BB