أبوبسمله

وعليكم السلام وهل قمت بادراج الوحده النمطيه لديك Playsound Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long Function Playsound(sWavFile As String) apisndPlaySound sWavFile, 1 End Function اضف الكود فى وحده نمطيه وجرب مره اخرى ووافنا بالنتيجه بالتوفيق

وعليكم السلام مشاركه مع اخوانى نفس الحل المقدم من اخى واستاذى @kanory جزاه الله خيرا 💐 بالتوفيق m1.accdb

حياك الله اخى ومعلمنا العزيز @jjafferr 💐 و جزاك الله خيرا شرح اكثر من رائع وبسيط وسهل بارك الله لنا فيك وبارك لك في كل ماتحب بالتاكيد معلمنا العزيز سوف اضيفه الى مكتبتى ولاستزيد من علمكم جزاك الله عنا كل خير 💐

وعليكم السلام اتفضل اخى @ازهر عبد العزيز مثال من مكتبتى لعلك تنتفع به لاخى اكسير جزاه الله خيرا وجعله الله فى موازين حسناته وده موضوع لام عهود جزاها الله خيرا للاطلاع http://arabteam2000-forum.com/index.php?/topic/212835-التشفير-وفك-التشفير-لقواعد-البيانات-أو-اي-ملف-مهما-كانت-صيغته/ بالتوفيق مثال على تشفير النصوص باستخدام أكسس, طريقتين من عدة طرق.rar

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 والشكر موصول لاخى واستاذى حسين @د.كاف يار جزاه الله خيرا 💐 اتفضل ان شاء الله يكون ما تريد 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