abouelhassan

بارك الله فيك اخى

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

السلام عليكم اخواتى الافاضل محتاج مساعدة بمعادلة شرطية تضاف فى التقرير اليومى rpt_Items_Dates فى صف الاجمالى المعادلة اذا كان ipage= الايراد & النقدية & التمويل لا يتم جمعهم فى الاجمالى يعن هنا كما بالصورة الاجمالى = 3000 لان يوجد معادلة بالاجمالى لا تجمع النموذج الاول بس هذا الموضوع فشل معايا لان المطلوب عدم جمع اسماء معينة مش نموذج ثابت يعنى احتاج المعادلة مرنة تعمل على عدم الجمع بناء على اسم الموجود فى عمودIpage 1000 الايراد و 1000 التمويل و 1000 المدفوع للعميل و1000 النقدية انا عايز معادلة If(ipage=الايراد or النقدية or التمويل لايتم جمعهم فى الاجمالى مش شرط الترتيب لان ممكن ترتيبهم يختلف فالمرجو العمل على الاسم بحيث فى اى وضع هذه الاسماء لا تدخل فى المجموع الله يعزكم ويبارك لكم يارب DATA14.mdb

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

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

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

السلام عليكم ورحمة الله احتاج بعد اذنكم تعديل فى فورم استدعاء من تصميم اخى فى الله ابوخليل والبرنامج كله من تصميم اخى جعفرjjafferr يارب ما اتحرم منهم ابداااااااااااااااااااااااااااا وجعله فى ميزان حسناتهم يارب يارب التعديل فى فورم الاستدعاء للتعديل قائمة istore_number تكون istore_Name بدل استدعاء رقم المخزن يستدعى اسم المخزن مع خالص حبى وتقديرى ودعائى بارك الله فيكم DATA12.mdb

هل بالامكان شرح كيفية اضافته الى قاعدة بيانات مع الشكر

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

بارك الله فيك اخى سأرجع الى نسخة اقدم اعزكالله اشكرك لمساعدتى اخى

السلام عليكم اخواتى الافاضل ظهر عندى هذا الخطأ فى هذا السطر من كود تقرير DoCmd.OpenForm "frm_Items_Dates" انا معملتش اى شئ ياريت توضيح سبب الخطأ مشكورين بارك الله فيكم

الف شكر يا استاذ ابو خليل. ربنا يحفظك يارب ويديك الصحة والعافية ويبارك لك في اسرتك الكريمة يارب

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

الف مبروك يا باشا

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته الاخوة الافاضل الكرام استطيع تنفيذ هذا بالاكسيل بوضع كود فى thisworkbook عند الفتح 100 يطلب باسورد مش فترة تجريبية لا كل 100 مرة فتح يطلب رقم سرى وهكذا كل 100 مرة فتح هل يمكن تنفيذ هذا بالاكسس ان شاء الله لايصعب عليكم ااوكد لحضرتكم مش عايز فترة تجريبية لا انا عايز كل 100 مرة فتح للبرنامج يطلب باس ورد للفتح بارك الله فيكم لا حرمت منكم اخواتى الاعزاء هذا كود الاكسيل If GD > 100 Then x = InputBoxDK("", " Password") If x = 123456 Then GD = 0 SaveSetting "Excel", "0", "RunCounter", GD Else MsgBox "Password Is Invalid." & Chr(10) & "Workbook Will Close." & Chr(10) & " ", 64 ThisWorkbook.Close 0 End If DATA12.mdb

اعزك الله وجعلها بميزان حسناتك يارب كنز معلومات مهم يجب اغتنامه سأحتفظ به لحين اتمكن من استخدامه حفظك الله وادام نعمه وخيره عليك اخى استاذ جعفر بارك الله فيك ولك وبك اللهم امين يارب

بارك الله فيك اخى احمد هل يمكن منع اهتزاز الشاشة عند التنفيذ بارك الله لك اخى

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

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

استاذى jjafferr جعفر حفظك الله طيب هل بالامكان عمل زر يعمل reloud بدل زر الخروج بحيث اظل بصفحة الادخال طالما ادخل بيانات لا اظل ادخل اوخرج لكى ادخل فاتورة جديدة ويتوقف زر الخروج عند الانتهاء من كل الادخالات فاختار خروج للانتهاء مش كل شوية اخرج ليتم افراغ النموذج لاعادة الادخال ان شاء الله سهلة عليك يارب اطال الله عمرك ومتعك بالصحة يارب DATA12.mdb