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

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

مما فهمت هل هذا ما تريد 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

السلام عليكم ورحمة الله وبركاته عندى مشكلة فى الطباعة فى العمل الطابعة تعمل دوبلكس نوعها سامسونج و لا يمكن تغيرها الى صفحة واحدة بسبب ان الاعدادات من الطابعة نفسها وليس عند الطباعة فهل يمكن عمل زرار فى التقرير يطبع التقرير صفحة وصفحة فارغة وكذلك التحكم فى عدد نسخ الطباعة وجزاكم الله خيراً M_L - Copy.rar

السلام عليكم ورحمة الله مشكله تواجهنى فى الجمع بين خلايا النموذج 1- ان النوذج يرى الحقل كأنه نص 2 - أريد تحديث تلقائى لخانة الجمع عند الكتابة عندما اكتب 1 خانة الجمع تكتب 1 اكتب 2 خانة الجمع تكتب 12 بدون الخروج من الخلية الا اذا انتقلت الى الخلية الثانية نفس الشىء وجزاكم الله كل خير 159.rar

أخى @rockjone33و أستاذى @jjafferr أولا أنا فعلا مقصدش حاجة و أستاذ جعفر وضح حاجات بجد مكنتش واخد بالى منها و قصدى برنامج كامل ان الكود يشتغل على النموذج الى موجود على طول وياريت يكون كود واحد ينفذ المطلوب هنا نتعلم الكثير