أبوبسمله

جزاك الله خيرا اخى @kanory 💐 وما اعجبنى بدون حفظ الرقم لان فى تجربه سابقه لموضعات بالمنتدى كان لابد من حفظ الرقم وغيرت الوقت الى 50 فعمل بشكل طبيعى وكان فيه مشكله اللغه العربيه سوف اجرب المرفق جزاكم الله خيرا اخوانى وفقكم الله لما يحبه ويرضاه

مشاركه مع اخى واستاذى @محمد أبوعبدالله جرب التعديل كالتالى بتغيير Or الى And ووافنا بالنتيجه If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# And Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then Me.sDate = Date - 1 Else Me.sDate = Date End If بالتوفيق

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

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

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

السلام عليكم اخى الفاضل @طاهر الوليدي اتفضل تم التعديل كل ما قمت به تعديل حقل رقم المستند بالداله dmax واسم الجدول اسم الحقل كنت قد كتبت اسم الحق بالنموذج بدل الجدول كتابه اسم الجدول بين علامتى التنصيص ولكن لوجود مسافه فى اسم الجدول يجب وضعهم داخل الاقواس المربعه يفضل الابتعاد عن كتابه اسماء الحقول والجداول باللغه العربيه ووضعها بالتسميه فالخصائص يفضل وضع العلامه _ الشرطه السفليه وليس مسافه فى حالة فاصل بين الاسماء او الفصل باول حرف كابتل dl = Nz(DMax("[رقم المستند]", "[بيانات المصروفات]", "(year([التاريخ]) & month([التاريخ])& day([التاريخ]))='" & Format(Me.التاريخ, "yyyymd") & "'"), 0) rd = Int(Right([dl], 4)) + 1 Me.رقم_المستند = Format(Me.التاريخ, "yymd") & Format(rd, "0000") بالتوفيق ترقيم باليوم والشهر والسنة ممتاز.accdb

Private Sub idserum_AfterUpdate() Me.z = Me.x * Me.y Forms!Fexperience.Refresh Forms!Fexperience!xy = IIf([idexperience] <> "", Nz(DSum("z", "Qtest", "idexperience=" & [idexperience]), 0), 0) End Sub

احبك الله الذى احببتنى فيه 💐

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

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

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

وعليكم السلام اخى الفاضل لدمج حقول مع بعضها نستخدم هذه الطريقه ولوضع اى شىء بينهم يكون بعد & وبين علامات التنصيص [text1] & "/" & [text2] & "/" & [text3] بالتوفيق

السلام عليكم اخى @ازهر عبد العزيز اتفضل اخى ازهر بعد محاولات الردود وجزاه الله خيرا مهندسنا الغالى @محمد طاهر وجميع القائمين على الموقع وتطويره كان هناك مشكله وان شاء الله تكون قد انحلت لدى الجميع ان صادفتهم جرب ووافنى بالنتيجه بعد الاختيار من النموذج الفرعى من الكمبو idserum Private Sub idserum_AfterUpdate() Me.z = Me.x * Me.y DoCmd.RunCommand acCmdSaveRecord Forms!Fexperience.SetFocus Forms!Fexperience!m = IIf([idexperience] <> "", Nz(DSum("z", "Qtest", "idexperience=" & [idexperience]), 0), 0) Forms!Fexperience!xy = Forms!Fexperience!m End Sub بالتوفيق اخى test(4).accdb

الحمد والشكر لله الذى بنعمته تتم الصالحات وجزاهم الله خيرا اخواننا واساتذتنا اخى @طاهر الوليدي سوف ننتظر رد الاخ طارق صاحب السؤال بعد رد اخى كانورى وردك ويجب توضيح نقطه مهمه ان الترقيم التلقائى الخاص بالاكسيس لا يمكن التدخل فيه والله اعلى واعلم ولكن يمكن انشاء حقل ترقيم بالتنسيق الذى نريده ويكون نوع الحقل رقم او نص ويفضل نص اذا كان هناك حروف او رموز والله اعلى واعلم بالتوفيق

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

واياكم وفيك بارك الله كلنا نتعلم من بعضنا ومن اخواننا واساتذتنا جزاهم الله خيرا عندما تقف فى اى شئ قم بالبحث اولا فالمنتدى وخارجه فسوف يفدك البحث كثيرا وان لم تصل الى شىء افتح موضوع بالمنتدى واشرح به ما تريد مع مثال للتوضيح وان شاء الله تجد العون باذن الله اما شرح الكود سوف اشرحه ببساطه lastNum متغير واسندت له قيمه آخر سجل بالداله -Dlast- من الاستعلام qryFilter بعد فرزه بناء على 2 الكمبوكس Nz(DLast("ItemCode", "qryFilter"), 0) ثم اضفت متغير بالسطر الذى بعده strNum واسندت الرقم الخاص بالترقيم بعد اقتصاصه بهذا الجزء وبه 3 دوال Right(lastNum, Len(lastNum) - InStrRev(lastNum, "-")) ثم اضافه + 1 ثم السطر الذى بعده متغير strLeft اسندت له الجزء المقصوص قبل الرقم بالجزء وبه 2 داله Left(lastNum, InStrRev(lastNum, "-")) ثم قمنا باستخدام if الشرطيه اذا كان المتغير lastNum =0 يضع القيمه الناتجه من السطر التالى Me.ItemCode = Me.ItemType.Column(2) & "-" & Me.GradName.Column(2) & "-" & 1 والا ضع القيمه بالزياده ارجو ان اكون وفقت بالشرح والتوضيح بالتوفيق اخى

السلام عليكم مشاركه مع اخى واستاذى @kanory اتفضل مثال من مكتبتى وجزاهم الله خيرا اخواننا واساتذتنا 💐 ده الكود وغير فيه ومرفق المثال للاطلاع Private Sub ReNum_Click() Me.RecordSource = "" DoCmd.SetWarnings False ' حذف الفهرسة من حقل الرقم DoCmd.RunSQL "DROP INDEX الرقم ON جدول1;" ' حذف حقل الرقم DoCmd.RunSQL "alter table جدول1 drop الرقم;" ' إضافة حقل الرقم DoCmd.RunSQL "alter table جدول1 Add column الرقم autoincrement;" ' إضافة الفهرسة إلى حقل الرقم DoCmd.RunSQL "CREATE UNIQUE INDEX الرقم on جدول1(الرقم) ;" DoCmd.SetWarnings True Me.RecordSource = "جدول1" End Sub بالتوفيق اعادة الترقيم.rar

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

وعليكم السلام اخى @ازهر عبد العزيز اتفضل محاوله بسيطه ان شاء الله تكون ما تريد Private Sub idserum_AfterUpdate() Dim myCriteria As String myCriteria = "[idexperience]=" & Me.idexperience myCriteria = myCriteria & " And [idserum]=" & Me.idserum Me.used_quantity = 1 If DCount("*", "TBtest", myCriteria) > 0 Then Dim stry As Integer stry = Me.idserum Me.Undo Dim rs As Object myCriteria = "[idserum]=" & stry Set rs = Me.Recordset.Clone rs.FindFirst myCriteria If Not rs.EOF Then Me.Bookmark = rs.Bookmark Me.used_quantity = Me.used_quantity + 1 End If DoCmd.GoToRecord , , acNewRec End Sub بالتوفيق عذرا نسيت ارفاق الملف test(3).accdb

السلام عليكم حاجه على قد الحال ان شاء الله تلبى طلبك تم عمل استعلام qryFilter لتصفيه البيانات بناء على 2 كومبوكس للتصفيه وجلب اخر سجل ثم فى حدث بعد التحديث لـ GradName تم وضع الكود التالى لجلب اخر سجل واضافه 1 عليه جرب ووافنا بالنتيجه Private Sub GradName_AfterUpdate() lastNum = Nz(DLast("ItemCode", "qryFilter"), 0) strNum = Right(lastNum, Len(lastNum) - InStrRev(lastNum, "-")) + 1 strLeft = Left(lastNum, InStrRev(lastNum, "-")) If lastNum = 0 Then Me.ItemCode = Me.ItemType.Column(2) & "-" & Me.GradName.Column(2) & "-" & 1 Else Me.ItemCode = strLeft & strNum End If End Sub بالتوفيق New Microsoft Access Database (3) - Copy.accdb

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

وعليكم السلام اخى الفاضل استخدم استعلام تحديث ثم شغل الاستعلام بالماكرو وبعدها ريكويرى UPDATE tblYesNo SET tblYesNo.[YesNo] = -1; بالتوفيق

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

الف مبروك اخى @Khalf واعانك الله عليها وتمنياتى لك وللجميع بالتوفيق 💐

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