أبوبسمله

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 والشكر موصول لاخى واستاذى حسين @د.كاف يار جزاه الله خيرا 💐 اتفضل ان شاء الله يكون ما تريد Option Compare Database 'Option Explicit Private Sub btnSave_Click() DoCmd.GoToRecord , , acNewRec LastNum End Sub Private Sub Form_Load() LastNum End Sub Private Sub LastNum() lR = Nz(DLast("[رقم الوثيقة]", "[ضد الغير]"), 0) strRnum = Right(lR, Len(lR) - InStrRev(lR, "/")) + 1 strT = Left(lR, InStrRev(lR, "/")) Me.numW = strT & strRnum End Sub بالتوفيق k222 - 1.accdb

مساء النور اخى محمد الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 والشكر موصول لاخى واستاذى @kanory جزاه الله خيرا 💐

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

السلام عليكم مشاركه مع اخى واستاذى @kanory جزاه الله خيرا 💐 لعله يكون ما تريد Private Sub Form_Current() If Not Me.NewRecord Then Me.UserName = Me.UserName.OldValue Else Me.UserName = [Forms]![UserLogin]![n1] End If End Sub بالتوفيق 233.accdb

السلام عليكم اخى @سالم محمد مشاركه مع اخى واستاذى حسين @د.كاف يار جزاه الله خيرا فى حالة انك بترك رقم الوثيقه فارغ سيتم جلب اخر سجل تم تسجيله وزياده +1 اما اذا قمت بكتابه رقم وثيقه جديد اى فى حاله التغيير سيتم تسجيله ثم بعد ذلك يتم جلب اخر سجل تم تسجيله وزياده +1 جرب ووافنا بالنتيجه Private Sub nameTamin_AfterUpdate() If Len(numW & "") = 0 Then lR = Nz(DLast("[رقم الوثيقة]", "[ضد الغير]"), 0) strRnum = Right(lR, Len(lR) - InStrRev(lR, "/")) + 1 strT = Left(lR, InStrRev(lR, "/")) Me.numW = strT & strRnum Else Me.numW = Me.numW End If End Sub بالتوفيق ان شاء الله k222 - 1.accdb

ممكن توضيح ل يعنى مثلا عندك رقم 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