أبوبسمله

ممكن توضيح ل يعنى مثلا عندك رقم 41/20/995/4455 و 41/20/995/4456 يعن الاربع اقام 4455 و 4456 دول اللى هيتغيروا بزياده 1 ولا ايه اللى هيتغير وضح اكتر حتى تجد الحل باذن الله بالتوفيق اخى

الحمدلله الذى بنعمته تتم الصالحات والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا وفيك بارك الله

وفيك بارك الله د محمد @حلبي 💐 وفيك بارك الله @husseinharby 💐 الحمد والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

السلام عليكم مشاركه مع اخى واستاذى الدكتور حسين @د.كاف يار اتفضل اخى @husseinharby تعديل بسيط على كود اخى واستاذى حسين جرب ووافنا بالنتيجه Private Sub item_AfterUpdate() [sale_qty] = 1 If Len(number & "") = 0 Then number = Nz(DMax("[number]", "[details]", "[sale_id]=[Forms]![sale]![sale_id]"), 0) + 1 Else End If End Sub بالتوفيق copy(2).accdb

ماشاء الله شرح اكثر من رائع ووافى جلعله الله فى ميزان حسناتك ان شاء الله جزاك الله خيرا معلمنا العزيز جعفر وبارك الله لنا فيك وبارك لك فى كل ما تحب 💐

وعليكم السلام اخى صالح اعانك الله على العمل ونسال الله العظيم رب العرش العظيم ان يشفى والدك شفاء لا يغادر سقما ان شاء الله وبارك الله فيك وفى اخى ومعلمنا العزيز جعفر وجزاكم الله خيرا 💐

وعليكم السلام الحمدلله الذى بنعمته تتم الصالحات والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق اخى

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق اخى محمد

جزاك الله خيرا معلمنا العزيز @jjafferr 💐

اخى الفاضل @محمد سلامة جرب التعديل التالى ووافنى بالنتيجه وارجو الاطلاع من اخى ومعلمنا العزيز @jjafferr dl = Nz(DMax("idym", "tblNum", "(year([ddate]) & month([ddate]))='" & Format(Me.dDate, "yyyym") & "'"), 0) rd = Right([dl], Len([dl]) - InStrRev([dl], "/")) + 1 Me.IdYM = Format(Me.dDate, "yyyy/mm") & "/" & Format(rd, "000") New - 1.accdb

جزاك الله خيرا اخى واستاذنا الجليل @jjafferr على هذا الرابط والمعلومات القيمه جعلها الله فى موازين حسناتكم وفيك بارك الله اخى @محمد سلامة سوف احاول العمل عالتعديل وان شاء الله احد اخواننا واساتذتنا يساعد معنا

السلام عليكم اخى @محمد سلامة مشاركه مع الاخ طاهر جزاه الله خيرا اتفضل استاذ محمد هذا المثال حاجه على قدى لعله يفى بالغرض وضعت الكود فى حدث بعد التحديث للتاريخ بامكانك وضعه فالحدث المناسب لك sYM = DCount("dDate", "tblNum", "(year([ddate]) & month([ddate]))='" & Format(Me.dDate, "yyyym") & "'") + 1 Me.IdYM = Format(Me.dDate, "yyyy/mm") & "/" & Format(sYM, "000") بالتوفيق New.accdb

للاسف لم افهم ماذا تريد ولكن اطلع على الموضوع التالى لاخى واستاذى العزيز جعفر جزاه الله خيرا لعلك تجد به ما تريد بالتوفيق

السلام عليكم مشاركه مع اخى @ابو البشر جزاه الله خيرا اتفضل التعديل على مثالك ملحوظه يفضل عدم استخدام اللغه العربيه فى التسميه واستخدمها فالتسميه التوضيحيه =DateDiff("d";[تاريخ السريان];[تاريخ اليوم]) بالتوفيق قاعدة البيانات2.accdb

وعليكم السلام اتفضل اخى ان شا الله يكون ما تريد بالتوفيق data(1).accdb

وعليكم السلام اخى @عزالدين المنصوري اعتذر عن التاخير فالرد بالنسبه لتخزين الوقت فهذا يتم فعلا عند فتح النموذج فالمتغير nowLogin اتفضل شوف التعديل وان شاء الله يشاركنا اخواننا واساتذتنا جزاهم الله خيرا بالتوفيق حساب الوقت_2.accdb

العفو اخى والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اتفضل التعديل ان شاء الله يكون كما طلبت سيتم احتساب الوقت عند فتح النموذج وتسجيل المواعيد واضافه 5 دقائق تم استخدام متغير عام على مستوى النموذج من نوع تاريخ Dim nowLogin As Date ثم فى حدث عند التحميل وضعت الكود Private Sub Form_Load() nowLogin = Format(Now(), "Medium Time") End Sub ثم فى حدث بعد التحديث لحالة الكشف Private Sub حالة_الكشف_AfterUpdate() 'nowLogin متغير ' ld متغير Dim ld ld = DLast("[وقت الحضور]", "[الكشف]", "[تاريخ]=#" & Me.تاريخ & "#") If IsNull(ld) Then Me.[وقت الحضور] = DateAdd("n", 5, nowLogin) Else Me.[وقت الحضور] = DateAdd("n", 5, ld) End If End Sub بالنسبه ل ld فهو متغير ويمكنك الاستغناء عنه بالنسبه للشروط فهو شرط 1 التاريخ = التاريخ ان شا الله اكون وفقت لشرح ما تريد بالتوفيق اخى حساب الوقت_1.accdb

المرفق يعمل عندى بشكل سليم وتم انشاء اختصار على سطح المكتب بالتوفيق

جزاك الله خيرا معلمنا العزيز @jjafferr 💐

وعليكم السلام اتفضل انشاء الله يكون ما تريد فى نموذج الكشف وبعد اختيار نوع الكشف ستجد تم اضافه 5 دقائق ع وقت الحضور بالتوفيق حساب الوقت(1).rar

اخى @عزالدين المنصوري ممكن مثال مصغر لما لديك للتعديل من قبل اخوانك واساتذتنا بالتوفيق

مشاركه مع اخى واستاذى @محمد أبوعبدالله جزاه الله خيرا ع حسب فهمى انت محتاج اخر وقت قمت باضافته لاضافه 5 دقائق عليه فاستخدم Dlast بالتوفيق

وعليكم السلام اخى الفاضل قم بتخفيض امان الماكرو من اعدادات الاكسس ووافنا بالنتيجه بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق اخى

عيدكم مبارك تقبل الله منا ومنكم صالح الاعمال