أبوبسمله

جزاك الله خيرا اخى ابوالبشر ومنور حمدالله ع السلامه 💐

وهذا ما نصبوا اليه دعوه صالحه انت عندك فالجدول تواريخ 2022/05/14 ومتاح التعديل فيها ومتاح تعديلات لشهر 5 بالكامل الى يوم 9-6-2022 فالكود انا معتمد ع تاريخ الجهاز فجلب التواريخ وتحديث الشيك بوكس بالجدول للقيمه لا ارجو ان اكون وضحت لك ما سوف تجرب اذا حابب تجرب اغلق الفورم وغير تاريخ الجهاز الى يوم 5-6-2022 وجرب التعديل فى تواريخ شهر 5 ثم اغلق الفورم وغير تاريخ الجهاز ليوم 10-6 -2022 وجرب التعديل على تواريخ شهر 5 مره اخرى بالتوفيق

اتفضل اخى الفاضل ابو الحسن بالنسبه للتعديلات تم اضافه حقل chek فى الجدول tblData وقيمته الافتراضيه نعم تم اضافه استعلام qryDcount وده علشان احسب عدد السجلات التى قيمتها نعم قبل يوم 1 فالشهر الحالى لتحويلها الى لا يوم 10 فالشهر ومدخلش فالاجراء الخاص بالتحديث كل ما افتح الفورم تم تعديل الكود Private Sub Form_Current() Dim z As String, d As Integer z = DateSerial(Year(Date), Month(Date), 10) 'day 10 TempVars.Add "MonthNow", DateSerial(Year(Date), Month(Date), 1) d = DCount("*", "qryDcount") If Date >= z And d > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tblData SET tblData.chek = False " & _ "WHERE (((tblData.Registration_Date)<[TempVars]![MonthNow]));" DoCmd.SetWarnings True End If If Me.chek = True Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End If End Sub ده باختصار واليك المرفق بعد التعديلات بالتوفيق Date_2_trueOrfalse.accdb

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

صراحه لااعلم وان شاء الله احد اخواننا واساتذتنا يشارك بما لديه وممكن تدخل على منتدى ميكروسوفت وتسال هناك برضه قم بالتسجيل والدخول https://answers.microsoft.com/ar-sa/ اختار الجروب اللى عاوز تسال فيه وهنا ويندوز وقم بالسؤال واخبرنا بالنتيجه عندما يتم الرد عليك بالتوفيق

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

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

وعليكم السلام اخى احمد اعتقد بان السبب برمجه ويندوز 8 فما فوق ب wbf وفيه النماذج مختلفه عن برمجه ويندوز 7 وهذا والله اعلم بالتوفيق

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

اللهم آمين و اياكم الحمدلله وهو المطلوب بانك تفهم الفكره وتعدل بنفسك ولى اقتراح اخر اضافه حقل من نوع نعم والقيمه الافتراضيه نعم ويتم تحديث القيمه الى لا لجميع السجلات التى قبل الشهر الحالى وهتلاقى الامور بقت اسهل واوضح بالنسبه للحذف ضع هذا الكود لزر الحذف Private Sub btnDel_Click() On Error GoTo MyErr If MsgBox("هل تريد فعلا حذف القيد نهائياً ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "تأكيد عملية الحذف") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If MyExit: Exit Sub MyErr: If Err.Number = 2046 Then MsgBox "الحذف غير متاح لهذا السجل" 'Err.Description End If Resume MyExit End Sub بالتوفيق

ويفتحها عليك طيب تمام خلص تعديلاتك ووافنى بالنتيجه واياكم يا ابو شادى بالتوفيق

جزاك الله خيرا على مشاركتك معنا 💐 طيب المفروض التاريخ اكبر من 10 فالشهر الحالى متاح للتعديل جرب التعديل التالى ووافنى بالنتيجه Date-1 (3_4).accdb

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

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

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

جزاك الله خيرا اخى الفاضل عمار 💐

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

الله يسلمك اخى ابو الحسن انتم الاروع فبمشاركتكم اتعلم الكثير المفروض لا يتم فالمثال اللى شغالين عليه اضف كود الحذف للزر ولا يتم الحذف للسجلات التى لا تقبل التعديل ولكن يحذف السجلات القابله للتعديل جرب بعد اضافه كود الحذف بالتوفيق Date-1 (3_1).accdb

وعليكم السلام ورحمه الله وبركاته اتفضل يادكتور محمد @الحلبي جرب ووافنى بالنتيجه فى النموذج حدث حقل الرصيد لاكبر من حد الطلب واضغط انتر سيتم حذفه Private Sub G_AfterUpdate() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE little.catcods, Switch(Val([g])>[Reorder],1) AS Expr1 FROM little " & _ "WHERE (((Switch(Val([g])>[Reorder],1))=1));" DoCmd.SetWarnings True Me.Requery End Sub بالتوفيق

وعليكم السلام واياكم طيب اتفضل جرب واخبرنى بالنتيجه جرب اول سجل وتانى سجل لانى غيرت تانى سجل ل 02/08/2021 Private Sub Form_Current() Dim x As String, y As String, z As String x = Format$(Me.Registration_Date, "\#mm\/dd\/yyyy\#") 'date y = Format$(DateSerial(Year(Date), Month(Date) - 1, 1), "\#mm\/dd\/yyyy\#") 'Last Month z = Format$(DateSerial(Year(Date), Month(Date), 10), "\#mm\/dd\/yyyy\#") 'Month If x >= y And x < z Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End If End Sub بالتوفيق Date-1 (3).accdb

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

السلام عليكم مشاركه مع اخوانى واساتذتى الافاضل جزاهم الله عنا كل خير حاجه ع قد ما فهمت اعتمدت على الحقل StartDate فالنموذج اللى انت وضعتله الكود جرب ووافنى بالنتيجه Date-1.accdb

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

وفيك بارك الله مفيش مشكله اتفضل Public Sub Command6_Click() ' Me.Text0 = DateSerial(2020, 3, 1) ' Me.Text2 = DateSerial(YEAR(Date), Month(Date), 1) - 1 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tbl_Items SET tbl_Items.iBillStatus = ""مرحل"" WHERE (((tbl_Items.iDate) Between DateSerial(2020, 3, 1) And DateSerial(YEAR(Date()), Month(Date()), 1) - 1));" DoCmd.SetWarnings True End Sub بالتوفيق TESTCODE (2).accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير الكود شغال تمام مثل ما قلتلك ولكن طريقه التنفيذ اللى هتختلف سيتم الوضع باكمله فالنموذج frmTarhell فحدث عند الفتح الفكره كلها بتعتمد انت عاوز ايه وعاوز يتنفذ امته وتبدا تنسق امور وترتب الاحداث بتاعتك بس افتح الملف المرفق ثم افتح الجدول اولا سوف تجد الحقل iBillStatus فارغ قم بفتح النموذج frmTarhell فقط ومتعملش حاجه انظر للجدول سوف تجد بان الحقل iBillStatus تم تحديث الحاله للسجلات التى تنطبق عليها شروط التاريخ عاوز تخليهم فالزر عادى انقل الكود لحدث عند النقر مش عند التركيز عاوز تخليه زى ماهو مفيش مشكله بالتوفيق TESTCODE.accdb