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

تفضل 1- اختر ما تريد

أستاذى @kanory أسف جداً النموذج مترفعش 😇 M_L - Copy.mdb

طب دى بداية DateVal (1).rar

رائعة أستاذ @kanory هستأذنك كيف يكون الأمر مع التقرير الثانى

الحمد لله أستاذ @kanoryجزاك الله خيراَ ان أمكن هل يمكن اخفاء الحقول الموجودة بالصورة

هل يمكن تنفيذ كود فاتورة الكهربا فى هذا الموضوع تقريبا نفس الفكرة كهرباء 2019.rar

شكراً أستاذ @Moosak بتعمل سجل واحج فى الصفحة أنا بدور على النت بس مش فاهم بيعملوا مثلا صفحة فاضية مكان كل صفحة زوجية ومثلا الموضوع https://access-excel.tips/access-report-page-break-by-group-and-add-blank-page/

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

جزاك الله كل خير

أخى @عمر طاهر شكراً لحضرتك إحنا بنساعد على قد معلومتنا 😁 أستاذى @ابو جوديجميل جداً و بارك الله فيك ونفع بك و وحفظك أستأذنك إن أمكن إذا كان هناك خطأ فى تاريخ الميلاد يضع كلمة خطأ فى تاريخ الميلاد إذا كان هناك خطأ فى النوع يضع كلمة خطأ فى النوع إذا كان هناك خطأ فى المحافظة يضع كلمة خطأ فى المحافظة . لمعرفة ان كان هناك خطأ

أخى @عمر طاهرهو حضرتك كده لو فيه خطأ مش هيظهر فى الخلية استأذنك ممكن اذا كان هناك خطأ فى تاريخ الميلاد يضع كلمة خطأ فى تاريخ الميلاد اذا كان هناك خطأ فى النوع يضع كلمة خطأ فى النوع اذا كان هناك خطأ فى المحافظة يضع كلمة خطأ فى المحافظة 😇

السلام عليكم ورحمة الله وبركاته فى هذا الملف عند وجود رقم القومى فى الخلية فارغ يحدث خطأ 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