abouelhassan

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

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

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

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

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

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

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

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

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

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

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

زادك الله من فضله اخى نعم انا لدى تقريران واحد تم الحمد لله التانى هو ما احتاج مساعدة. فيه فى الاستعلام حاولت تغير بدل من customer الى account بارك الله فيك اخي الكريم وجزاك الله خيرا يارب

استاذى الحبيب @أبو عبدالله الحلوانى ربنا يراضيك اللهم امين يارب احتاج مساعدة فى نفس الموضوع اخى الكريم بس التقرير هيكون تقرير يعتمد على الحسابات Accountsمش مصدر التمويل Customers اضفت اخى الدالة والاستعلام والنموذج بس فشلت فى التعديل اخى اتمنى مساعدتم اكون شاكر فضلك اخى بارك الله لك اخى الكريم وزادك من فضله اللهم امين يارب T3Q - Copy.accdb

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

اشكرك اخى الفاضل Eng.Qassim بارك الله فيك الشكر موصول الى الاستاذ الفاضل @أبو عبدالله الحلوانى تم حل الموضوع اساتذتى باضافة -1 الى الاستعلام والحمد لله الرصيد السابق يعمل تمام لى سؤال استاذى الحبيب الغالى لقلبى أبو عبدالله الحلوانى فى حالة انى اريد تنفيذ الدالة على استعلام جديد بدل مصدر التمويل Custmers ليكون الحساب Accounts اتمنى ان تشرح لى اخى الية التنفيذ هل انسخ الدالة وانسخ الاستعلام واعدل فيه والنموذج لانى حاولت بس فى حاجة بعملها خطأ اشكرك اخى واكرر شكرى لاخى باشمهندس قاسم غلبتك معايا اخى الكريم احبكم فى الله

بارك الله فيك استاذى معلش محتاج حل هذه المشكلة كمان استاذى وجدت ان الدالة اذا اختارنا تاريخ من 1/4/2022 حتى 30/4/2022 وكان الرصيد السابق 1000 وكان فى يوم 1/4/2022 مبلغ مثلا 100 فى الجانب الدائن تقزم الدالة بأضافة 100 الى الرصيد السابق ليصبح 1100 يعنى اخدت 100 فى تاريخ 1/4/2022 مع الرصيد السابق احتاج تعديلها لتأخذ الرصيد السابق حتى اليوم قبل تاريخ البداية ولا تأخذ الرصيد حت تاريخ البداية يعنى فى مثالنا هنا حتى31/3/2022 =1000 وليس 1100 معلش استاذى اكمل جميلك زادك الله من كرمه وفضله اللهم امين يارب

شكر وتقدير وفائق الاحترام من اخيك بارك الله فيك اخي بصراحة رائعة جدا جدا جدا جدا تقبل تحياتي اخيك