abouelhassan

السلام عليكم اخى الكريم وجزاك الله خيرا يارب ما هو المطلوب الاثنين اخى الكريم كل التواريخ يتم الغلق فيها تمام الشهر الحالى لابد أن اخد فرصة للتعديل الفرصة دى تكون حتى يوم 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 فاهمتنى استاذى الحبيب بارك الله فيك وبك احترامى

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

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

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

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

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

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

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

الف مبروك اخى الكريم

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

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