abouelhassan

سدد الله خطاك اخى استاذى @احمد الفلاحجي وسقاك من حوض النبى صلى الله عليه وسلم شربت هنيئة لاتظمأ بعدها ابدا يارب شهر 4 الشهر الماضى تمام اغلق بعد يوم10 غيرت التاريخ الى 1/5/2022 الشهر الحالى المفروض يظل مفتوح التعديل الى10/6/2022 وجدته مغلق اخى الشهر الحالى يتم غلقه فى يوم 10 الشهر الذى يليه هى دى الفكرة اخى الحبيب لقلبى اذا كان تاريخ اليوم 1/4/2022 اذن كل شهر 4 هيكون مفتوح حتى10/5/2022 يتم الغلق واذا كان تاريخ اليوم1/5/2022 انذن كل شهر 5 هيكون مفتوح حتى 10/6/2022 يتم الغلق يعنى الفرصة للتعديل فى الشهر الذى نعمل فيه تكون ليوم10 وبعد كده لايمكن التعديل اما طبعا الشهور السابقة كلها بتغلق للحفاظ على البيانات السابقة قمت بالتعديل على الكود بعد اذن حضرتك والحمد لله نجح Private Sub Form_Current() On Error Resume Next Dim x As String, y As String, z As String, ly As String, t As Date t = DateSerial(Year(Date), Month(Date) - 1, 1) x = Format$(Me.Registration_Date, "\#mm\/dd\/yyyy\#") 'date y = Format$(DateSerial(Year(Date), Month(Date) - 1, 1), "\#mm\/dd\/yyyy\#") '1/4/2022 ly = Format$(DateSerial(Year(t), Month(t) + 1, 0), "\#mm\/dd\/yyyy\#") z = Format$(DateSerial(Year(Date), Month(Date), 10), "\#mm\/dd\/yyyy\#") '15/5/2022 If x >= y And x <= ly And x > z Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True ElseIf x >= z And Format$(DateSerial(Year(Date), Month(Date) + 1, 0), "\#mm\/dd\/yyyy\#") >= x Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True ElseIf x >= ly Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True ElseIf x <= y And x <= z Then Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End If End Sub كود الحذف احتاج رسالة تم منع الحذف فى حالة غلق الحذف والتعديل اخى الكريم هذا اخر شئ ان شاء الله واكون شاكر لك وجمايلك اثقلت كاهلى والله يارب اقدر ارد اليك نصفها ان شاء الله وان لم استطع سأظل ادعو لك عن ظهر الغيب احبك فى الله اخى الكريم Date-1 (3_4).accdb

الله يسعد اوقاتك اخى الكريم جداااااااااااااااااااااااااااااااااااااااا حفظك الله وزادك من فضله اللهم امين اخى صادفتنى مشكلة اخى عذرا اخى الكريم فى المثال المرفق كما بالصورة تاريخ القيد 1/4/2022 واليوم هو14/5/2022 يعنى تخطى 10/5/2022 ويجب ان يمنع التعديل والحذف بس التعديل بيتم عادى الله يرضى عنك اخى وعن والديك اعذرنى اخى الكريم وحفظك وجزاك الله عنا كل الخير Date-1 (3_1).accdb

اخى الحبيب الى قلبى استاذى الكبير احمد الفلاحجي تسلم ايدك والله روعة روعة حضرتك رائع رائع رائع جداااااااااااااا حفظك الله وزادك من فضله وعلمه الكود ممتاز ويعمل اخى فى كل شئ عدا الحذف لا زال يعمل هذا الزر به كود حذف به هذا الكود Private Sub أمر31_Click() If MsgBox("هل تريد فعلا حذف القيد نهائياً ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "تأكيد عملية الحذف") = vbYes Then Dim db As DAO.Database Dim rs As DAO.Recordset Dim MyNo As Integer MyNo = [Registration_Number] Set rs = CurrentDb.OpenRecordset("SELECT * FROM [Financial_Records] where Registration_Number=" & MyNo) rs.Delete rs.Close Set rs = Nothing DoCmd.Requery End If End Sub هو الوحيد الذى احتاج الى تطبيق الكود عليه معلش استاذى الحبيب لقلبى لان برغم عدم امكانية التعديل بس يمكن حذف القيد وبكده يكون الكود متكامل ان شاء الله بفضل الله وفضلك اخى الكريم جداااااااااااااا خالص الدعاء لك اخى الكريم احترمى لك وخالص التقدير والشكر TestLOck.accdb

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

مشكور مجهودك الرائع اخى الكريم

اخى فى الله استاذى الحبيب لقلبى @احمد الفلاحجي تسلم ايدك اخى بس ايضا لايظبط معى عند نقل الكود الى نموذج مصغر للبرنامج مش عارف السبب لوتكرمت اخى الاطلاع للوقوف على سبب المشكلة لو وقت حضرتك يسمح اكون شاكر فضلك اليوزرadmin الباس123 الفورم الرئيسى اسمه Form1 جدول البيانات اسمه Financial_Records والفورم المطلوب التنفيذ فيه اسمه Financial_Records1 وبه الحقل StartDate لعرض البيانات المراد غلقها فى التاريخ من الفورمForm1 نختاري السنة المالية ثم عرض الفلتر سيظهر كل البيانات الفكرة التى احتاجها اخى كل الاشهر السابقة لا يمكن التعديل عليه او حذفه الشهر الحالى يمكن التعديل فيه والحذف حتى يوم 10 الشهر التالى بعد يوم 10 فى الشهر التالى لايمكن التعديل على كل السجلات السابقة لهذا التاريخ يعنى اى تاريخ سابق مثال بالارقام للايضاح استاذى اذا كان تاريخ اليوم هو1/5/2022 اذا كان لدينا بيانات فى تواريخ من 1/1/2021 حتى1/4/2022 التاريخ حتى30/3/2022 سيتم غلق كل السجلات اما من1/4/2022 حتى30/4/2022 سيظل امكانية التعديل حتى10/5/2022 اما بعد 10/5/2022 سيتم غلق شهر 4 كله وهكذا اخى الكريم ارجو من حضرتك التكرم بالاطلاع بارك الله فيك اخى وزادك من فضله TestLOck.accdb

للرفع رفع الله قدركم

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

بارك الله فيك اخى استاذنا الحبيب احمد الفلاحجي تمام اخى الكريم بس انا احتاج طريقة لعدم فتح فورم ترحيل خالص لذلك قمت بوضع الاكواد فى فورم index الفورم الرئيسى لدى بحيث عندما يفتح وفى التاريخ المضبوط مثلا10 فى الشهر يتم تنفيذ الكود الموجود بفورم tarhel تلقائيا احتاج ضبط هذه النقطة اخى الكريم برجاء التكرم بالاطلاع والتعديل اخى الكريم قمت بوضع هذا الكود فى حدث load فى فورم index Private Sub Form_Load() If DateSerial(YEAR(Date), Month(Date), 12) = Date Then DoCmd.OpenForm "frmTarhell" End If End Sub ويعمل تمام ويقوم بفتح الفورم tarhell بس عايز جملة توضع تغلق الفورم حاولت ان اكتبها هكذا DoCmd.closeForm "frmTarhell" بس لم يغلق الفورم بارك الله فيك وزادك من فضله استاذى

استاذى الحبيب اشكرك اخى الكريم ما أريده أن يعمل الكود على تفعيل الكود الموجود بفورم ترحيل tarhel يوم محدد فى الشهر اوتو الكود يعمل يدويا تمام إذا انا قمت بفتح الفورم يظهر التاريخ وبالضغط على كلمة ترحيل تتحدث الحالة إلى مرحل اريد تنفيذ هذا تلقائيا اتمنى من حضرتك مراجعة الكود للوقوف على الخطأ مشكور اخى الكريم

اسعد الله اوقاتك اخى الكريم بكل خير استاذى حبيبىjjafferr بارك الله فيك اخى الكريم تسلم ايدك اخى فى الله استاذى الحبيب احمد الفلاحجي بعد التنفيذ اخى ارجوا لو وقت حضرتك يسمح مراجعة الكود والوقوف على سبب عدم التنفيذ اكون شاكر فضلك اخى الكريم بارك الله فيكم اخوانى الاحباء لقلبى احترامى TESTCODE.accdb

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

اشكرك استاذى بارك الله فيك اخى احمد الفلاحجي والشكر موصول لاخى فى الله استاذى جعفر غفر الله لكم يارب وبارك فيكم نفذت كل الكلام بالضبط غيرت الكود الى Public Sub Command6_GotFocus() Public Sub tarhel_AfterUpdate() وفى الفورم المطلوب تشغيل الكودين للتأكد غيرت رقم 10 الى 11 لان تاريخ اليوم هو11/5 Private Sub Form_Load() If DateSerial(YEAR(Date), Month(Date), 11) = Date Then MsgBox "yes" Call Form_frmTarhell.tarhel_AfterUpdate Call Form_frmTarhell.Command6_GotFocus End Sub لم يتم تنفيذ الكودين اخى هل انا اخطأت فى شئ احترام من اخيك بارك الله فيك اخى الكريم

اشكرك اخى الكريم استاذى الحبيب بارك الله فيك اخى الكريم وزادك من فضله السؤال المهم هنا لدى فورمين الفورم الاول هو frmlogin الفورم الثانى frmTarhell به كود فى حدث Private Sub tarhel_AfterUpdate() وكود Private Sub Command6_GotFocus() عايز اضع فى الفورم الاول لوج اين فى حدث Form_Load ان فى يوم 10 شهريا نفذ الكودين تلقائيا فقمت بكتابة الجملة التى تفضلت حضرتك وكتبتها اضافة الى Call واسم الكودين ولكن لم يتم التنفيذ كتبت التالى If DateSerial(YEAR(Date), Month(Date), 11) = Date Then MsgBox "yes" Call Form_frmTarhell_tarhel_AfterUpdate Call Form_frmTarhell_Command6_GotFocus ممكن حضرتك توضح لى السبب لو امكن بارك الله فيك وزادك من فضله

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

اخى فى الله استاذى الحبيب لقلبى @ابو جودي بارك الله لك فى اسرتك وال بيتك وزادك من فضله اشكرك اخى الكريم لم استطيع تجربة المرفق قمت بنقل الاكواد الى نموذج مصغر من البرنامج توقف الكود فى هذا السطر Registration_Date = Nz(DLast("[Registration_Date]", "Financial_Records")) والفورم الرئيسى اسمه Form1 جدول البيانات اسمه Financial_Records والفورم المطلوب التنفيذ فيه اسمه Financial_Records1 ارجو من حضرتك التكرم بالاطلاع بارك الله فيك اخى وزادك من فضله TestLOck.accdb

اتقدم اليك اخى الكريم استاذى @ابو جودي بارك الله فيك وفى اسرتك الكريمة الفكرة ممتازة اخى الكريم بس حضرتك اعتمدت على انشاء خلية RegistrationDate بينما ما احتاج ربطه هو تاريخ القيد RegistrationDate كذلك تم انشاء جدول tblRegistrationDate وتم الاعتماد عليه فى غلق الحذف والتعديل انا احتاج الاعتماد يكون على جدول البيانات الرئيسي تاريخ القيد الفكرة التى احتاجها اخى كل الاشهر السابقة لا يمكن التعديل عليه او حذفه الشهر الحالى يمكن التعديل فيه والحذف حتى يوم 10 بعد يوم 10 فى الشهر الحالى لايمكن التعديل على كل السجلات السابقة لهذا التاريخ يعنى اى تاريخ سابق مثال بالارقام للايضاح استاذى اذا كان لدينا بيانات فى تواريخ من 1/1/2021 حتى1/4/2022 التاريخ حتى30/3/2022 سيتم غلق كل السجلات اما من1/4/2022 حتى30/4/2022 سيظل امكانية التعديل حتى10/5/2022 اما بعد 10/5/2022 سيتم غلق شهر 4 فاهمتنى استاذى الحبيب بارك الله فيك وبك احترامى

@د.كاف يار للرفع رفع الله قدركم

للرفع رفع الله قدركم

شكر وتقدير واحترام من اخيك استاذى الحبيب

أعانك الله وكان الله فى عونك ما دمت فى عون اخوانك زادك الله من فضله اللهم امين يارب العالمين اتمنى لو أداة تكتب اكواد تقبل تحياتي لك اخي فى الله حفظك الله وغفر لك ولوالديك

سدد الله خطاك وزادك من فضله اللهم امين يارب العالمين

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

للرفع رفع الله قدركم