abouelhassan

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

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

قد تساعدك هذه القاعدة من تصميم الاخوة بالمنتدى لا اتذكر الاسم db2.mdb

يكفي التعديل التالي Dim myWhere As String myWhere = myWhere & "iPage>3" myWhere = myWhere & " and YEAR = " & Me.Combo97 myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'" Me.Text20 = DSum("iAmount", "tbl_Items", myWhere) بارك الله فيك استاذى وانا اسف جدا لتعبك والله انا عايز الاجمالى بدون الحساب1+2+3 وعندما طبقت التعديل بالاعلى Dim myWhere As String myWhere = myWhere & "iPage>3" myWhere = myWhere & " and YEAR = " & Me.Combo97 myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'" Me.Text20 = DSum("iAmount", "tbl_Items", myWhere) اعطانى الاجمالى بدون الحساب3 فقط ربنا يرضى عنك استاذى احترامى اخيك

استاذى العزيز استاذى محمد أبوعبدالله قمت بعمل تكست اخرى مجاورة اسمهاtext21 ووضعت كود التالى بس لم ينجح للتطبيق على الاثنين تكست الاولى الاجمالى بدون الحساب1 الثانية بدون الحساب1&2&3 Dim myWhere As String myWhere = myWhere & "iPage=1" myWhere = myWhere & " and YEAR = " & Me.Combo97 myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'" Me.Text20 = DSum("iAmount", "tbl_Items", myWhere) myWhere = myWhere & "iPage>3" myWhere = myWhere & " and YEAR = " & Me.Combo97 myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'" Me.Text21 = DSum("iAmount", "tbl_Items", myWhere) بس لم ينجح استاذى مش عارف اعالج الخطأ بارك الله فيك اخى الكريم استاذى العزيز احترامى

ربنا يكرمك يارب ويديك الصحة والعافية ويزيدك من فضله استاذنا الكريم

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

بارك الله فيك استاذى الكريم محمد أبوعبدالله اشكرك استأذنك ممكن شرح الكود يعنى لو عايز اجمالى بدون حساب 1و2و3 اضيف المعيار ازى لانى جربت اضافة الحساب2 و3 ولم يصح الكود myWhere = myWhere & "iPage>1"&"iPage>2"&"iPage>3" myWhere = myWhere & " and YEAR = " & Me.Combo97 myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'" Me.Text20 = DSum("iAmount", "tbl_Items", myWhere) or Dim myWhere As String myWhere = myWhere & "iPage>1" myWhere = myWhere & "iPage>2" myWhere = myWhere & "iPage>3" myWhere = myWhere & " and YEAR = " & Me.Combo97 myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'" Me.Text20 = DSum("iAmount", "tbl_Items", myWhere) شكر وتقدير واحترام من اخيك

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

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

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

استاذ محمد أبوعبدالله بارك الله فيك مااقصده استاذى انظر هنا قمت بالبحث بالرقم100 فى السنة المالية2022 الناتج فى اجمالى بدون حساب رقم1=200 مع ان المبالغ=100+15200=15300 وعند البحث بالمبلغ بالرغم من انى ضغطت فى تكست المبلغ كان تكست اجمالى بدون حساب رقم1 بيتفرغ اى بيكون فارغ فى حدث عند الضغط فى تكست ابحث بالمبلغ تتفرغ تكست اجمالى بدون حساب رقم 1اما الان لازال بالتكست رقم 200 احترام من القلب

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

اسعد الله اوقاتك استاذى محمد أبوعبدالله اشكرك اخى بعد تحويل المعادلة لكود اصبح التحديث بطئ هل من حل استاذى لعودة المعادلة ربنا يبارك لك اللهم امين اخيك باحترام

السلام عليكم اخوانى الاساتذة الكرام عباقرة المنتدى احتاج مساعدتكم لو تكرمتم لدى فورم اسمه sersh يمكن البحث فيه بواسطة الرقم كما بالصورة كتبت رقم 100 فى تكست ابحث بالرقم يوجد معادلة بالتكست التى بجوارها اسمها اجمالى بدون حساب احتاج فى حالة البحث بالمبلغ ان لايظهرفى تكست الاجمالى بدون الحساب1 اى شئ تظل بيضاء ولا تظهر نتائج الافى حالة البحث بالرقم فقط شاكر فضلكم وداعى لكم من كل قلبى احترامى DATA1041-5.mdb

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

السلام عليكم السادة الاساتذة العباقرة اخواتى عمالقة المنتدى حفظكم الله احتاج مساعدتكم لدى فورم main عند اختيار التاريخ من 1-9 حتى 1-9 ونوع العدد All واختيار التقرير اليومى يظهر الحساب النقدية 0 وهذا لكل حساب اذا ادخلت له مبلغ 100 و-100 وكذلك عند اختيار طباعة التقرير تظهر النقدية =0 اريد فى هذه الحالة عند استدعاء التقرير وكان الحساب مجموع الرصيد=0 لايستدعيه وكأنه فارغ يعنى هنا اريد فقط ان يظهر حساب الايراد اما النقدية لاتظهر لان مجموع المستدعى=0 بارك الله فيكم اخوانى الافاضل ارجوا شرح التعديل لو امكن رجاء احترامى لكم DATA1041-5.mdb

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

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

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

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

اسعد الله وقتك بكل خير استاذى الحبيب ابوخليل تسلم ايدك وعينك يارب كل شئ تمام عدا شى واحد المستخدم اذا لم اكتب باس ورد وضغط login بيعمل دخول هنا اختارت طارق ولم اكتب باس ورد عمل دخول اعتقد الخطأ يكمن هنا فى هذا السطر Set rst = CurrentDb.OpenRecordset("select tblUser.User_Name, tblUser.Password, tblUser.userDate, tblUser.Check_User from tblUser") بارك الله فيك يارب يارب ما يحرمنا من حضرتك ابداا يارب سيدى الكريم

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

السلام عليكم ورحمة الله اخوانى الافاضل الاساتذة الكرام احتاج تعديل بكود فورم صلاحيات المستخدمين باضافة تكست بها تاريخ انتهاء صلاحيات للمستخدم واعادة التفعيل بتغير التاريخ مع الشكر وخالص الدعاء بارك الله فيكم اخوانى الافاضل DATA1041-1.mdb

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