اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

abouelhassan

05 عضو ذهبي
  • Posts

    2,910
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    7

كل منشورات العضو abouelhassan

  1. جميلة تسلم ايدك
  2. جرب كده ده من اعمال الاخوة بالمنتدى اضفته الى قاعدتك الباس USER 123 asd.rar
  3. زادك الله من فضله استاذنا الكريم وجزاك الله خيرا يا رب
  4. ربنا يرضى عليك استاذى الحبيب زادك الله من فضله اللهم امين يارب
  5. الله الله الله د.كاف يار روعة استاذى حبيبى والله ربنا يكرمك يارب والله انا لا اكف عن الدعاء لك عن ظهر الغيب ربنا يكرمك يارب يارب
  6. ربنت ما يحرمنى من حضرتك ابدااااااااا استاذى الكريم د.كاف يار ربنا يجعل كل هذا بميزان حسناتك اللهم امين يارب كله تمام ممكن حضرتك تتكرم وتقولى التعديل تم فين ربنا يكرمك يارب حبيبى استاذى د.كاف يار احترامى لك اخى الحبيب
  7. استاذى الحبيب د.كاف يار ربنا ما يحرمنا منك ابدا يارب بعد تجربة التقرير وجدت شئ استاذى ان شاء الله لا يصعب عليك الفورم المرتبط بالتقرير مربوط بتحديد التاريخ من والى واختيار رقم الصفحة كما بالصورة التاريخ من1/8/2021 الى31/8/2021 فتح الفورم وعمل الفلتر بالتاريخ وظهر كما بالصورة عند الضغط على PRINT التى باعلى الفورم التى تظهر التقرير الذى تم التعديل عليه ظهر هكذا بدون فلتر حيث يظهر كل البيانات لم يظهر ما بالفورم مفلتر احتاج لتعديل الربط بين التقرير والفورم ليعرض التقرير البيانات التى تعرض بالفورم ليس كل البيانات ربنا يكرمك يارب ويزيدك من فضله اللهم امين DATA1041-5.mdb
  8. تسلم ايدك استاذى الحبيب د.كاف يار جزاك الله كل خير الدارين اللهم امين يارب يارب يارب احترامى وتقديرى لشخصك الكريم
  9. استاذى الحبيب د.كاف يار هل لى بطلب بالتقرير اسماء الSTORE1,STORE2 الخ هل بالامكان استخدام معادلة =DLookUp("iSTORE_Name";"tbl_Stores";"[Indexx]=1") لكى تكتب اسماء ال STORE من الجدول tbl_Stores جزاك الله كل الخير اللهم امين يارب
  10. فضلك الله على عباده استاذى حبيبى د.كاف يار بارك الله فيك وجزيت الجنة يارب يارب يارب يارب احترام من القلب
  11. استاذى حبيبى د.كاف يار التنسيق روعة تسلم ايدك تعيش يارب ربنا يحفظك ويديك الصحة والعافية اللهم امين يارب بس فى شئ بسيط انظر استاذى هنا يوجد اجماليات بمنتصف التقرير اريد الاجماليات النهائية فقط ربنا يكرمك يارب ويزيدك من نعمه اللهم امين
  12. بارك الله فيك استاذى @ابا جودى ربنا يراضيك يارب لدى فورم اسمه frm_Items_Pages وبه زر طباعة تقرير print هنا الاجمالى فى اسفل الصفحة هل بالامكان ان يكون الاجمالى مع اخر سجل بالاعلى وعند الطباعة التقرير لهذا الفورم احتاج تنسيق التقرير لكى يكون كل اجمالى اسفل store هذا هو المطلوب هذا التقرير بالقاعدة بارك الله فيك اخى الكريم DATA1041-5.mdb
  13. ممتاز استاذى د.كاف يار روائع روائع روائع بعد حفظ البيانات فقط نكتب الاسم وسيكتب الباسورد صح كده احترامى وتقديرى وخالص دعائى
  14. اشكرك استاذى بارك الله فيك هذا ليس المطلوب المطلوب احتاج اعاد تنسيق للتقرير انا قمت بتنفيذ الاجمالى لكل الاستور بس احتاج اعادة التنسيق وبالفورم احتاج ان يكون الاجمالى تحت اخر سجل مباشرة اشكرك بارك الله فيك احترامى DATA1041-5.mdb
  15. السلام عليكم اساتذة المنتدى الكرام كل عام وحضراتكم بخير لدى فورم اسمه frm_Items_Pages وبه زر طباعة تقرير هنا الاجمالى فى الفوتر للصفحة هل بالامكان ان يكون الاجمالى مع اخر سجل بالاعلى وعند الطباعة التقرير لهذا الفورم لم استطع وضع الاجمالى هل بالامكان اضافة الاجمالى ايضا مع اخر سجل حتى اتمكن من طباعته يعنى بعد اخر سجل اجد الاجمالى لكل STORE خالص الشككر وخالص الدعاء من القلب لكم اخوانى الافاضل DATA1041-5.mdb
  16. تم حل المشكلة استاذى بفضل الله وفضلك اشكرك من قلبى احترامى لك اخى العزيز
  17. شرح الله صدرك اخى استاذى الحبيب محمد أبوعبدالله فعلا كنت انسى السطر بس بردو رجعنا لنقطة الصفر لان التكست المراد ان تفرغ فى حالة البحث بالمبلغ لا تفرغ اخى اشكرك استاذى الحبيب شرح الله صدرك استاذى الحبيب بارك الله فيك اشكرك من كل قلبى اخى فى الله
  18. قد تساعدك هذه القاعدة من تصميم الاخوة بالمنتدى لا اتذكر الاسم db2.mdb
  19. يكفي التعديل التالي 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 فقط ربنا يرضى عنك استاذى احترامى اخيك
  20. استاذى العزيز استاذى محمد أبوعبدالله قمت بعمل تكست اخرى مجاورة اسمها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) بس لم ينجح استاذى مش عارف اعالج الخطأ بارك الله فيك اخى الكريم استاذى العزيز احترامى
  21. ربنا يكرمك يارب ويديك الصحة والعافية ويزيدك من فضله استاذنا الكريم
×
×
  • اضف...

Important Information