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

احتاج معادلة شرطية تضاف الى اجمالى تقرير يومى

abouelhassan

بواسطه abouelhassan
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

abouelhassan

abouelhassan

قام بنشر
قام بنشر (معدل)

السلام عليكم اخواتى الافاضل

محتاج مساعدة بمعادلة شرطية تضاف فى التقرير اليومى  rpt_Items_Dates فى صف الاجمالى

المعادلة اذا كان 

ipage= الايراد & النقدية & التمويل 

لا يتم جمعهم فى الاجمالى 

1.png.49c762703c17c6937ef14c32e9872170.png

يعن هنا كما بالصورة  الاجمالى = 3000 لان يوجد معادلة بالاجمالى لا تجمع النموذج الاول بس هذا الموضوع فشل معايا لان المطلوب عدم جمع اسماء معينة مش نموذج ثابت يعنى احتاج المعادلة مرنة تعمل على عدم الجمع بناء على اسم الموجود فى عمودIpage

1000 الايراد و 1000 التمويل و 1000 المدفوع للعميل و1000 النقدية

انا عايز معادلة 

If(ipage=الايراد or النقدية or التمويل 

لايتم جمعهم فى الاجمالى 

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

الله يعزكم ويبارك لكم يارب

 

DATA14.mdb

تم تعديل بواسطه abouelhassan
رابط هذا التعليق
شارك
ابوبسمله

ابوبسمله

قام بنشر
قام بنشر

وعليكم السلام @abouelhassan

اتفضل محاوله منى ان شاء الله تلبى طلبك

قمت بوضعها فى حقل Store_1 للنموذج frm_Items_Dates

معذرة فالسؤال هو ابو الحسن ولا ابواحسان ونتشرف باسم حضرتك

DATA14.mdb

  • Like 1
رابط هذا التعليق
شارك
abouelhassan

abouelhassan

قام بنشر
  • الكاتب
قام بنشر

اخى فى الله استاذ احمد رضاك الله وارضاك

اشكرك جدا الله يرضى عنك

محاولة جيدة بس فى شئ

احتاج 

If(ipage=الايراد or النقدية or التمويل 

لايتم جمعهم فى الاجمالى 

اما الان لو جربت حضرتك ودخلت منfrm_main الى جميع البيانات او من frm_Items

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

احتاج الى جمع الجميع ما عدا الثلاث صفحات اذا كان الاسم الايراد- النقدية التمويل

تسلم وتعيش اكثر الله خيرك انتظرك اخى

اخيك باحترام

رابط هذا التعليق
شارك
ابوبسمله

ابوبسمله

قام بنشر
قام بنشر

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

3 ساعات مضت, abouelhassan said:

احتاج 

If(ipage=الايراد or النقدية or التمويل 

لايتم جمعهم فى الاجمالى

اتفضل هل هذا ما تريد 

DSum("iAmount";"[tbl_Items]";"[iPage] Not In (1,2,3) and [idate] between [srch_Date_From] And [srch_Date_To]")

 

DATA14.mdb

  • Like 1
رابط هذا التعليق
شارك
abouelhassan

abouelhassan

قام بنشر
  • الكاتب
قام بنشر

اعزك الله اخى احمد

لم تفلح 

اذا قمنا بتغير اسم الصفحة لا يتم تغير الجمع

لو جربت حضرتك ودخلت منfrm_main الى جميع البيانات او من frm_Items

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

احتاج الى جمع الجميع ما عدا الثلاث صفحات اذا كان الاسم الايراد- النقدية التمويل

شكر وتقدير واحترام من اخيك

رابط هذا التعليق
شارك
ابوبسمله

ابوبسمله

قام بنشر
قام بنشر

اتفضل اخى الفاضل @abouelhassan

ان شاء الله يكون ما تريد تم اضافه الكود لاستدعائه مع التحميل وعند التغيير والضغط ع زر السيرش 

 Sub inDsum()
 
    If Me.srch_All = "Negative" Then
       Me.Sum_1 = DSum("iAmount", "[tbl_Items]", "[iPage] Not In (1,2,3) and [iAmount]<0 and [idate] between [srch_Date_From] And [srch_Date_To]")
    Else
       Me.Sum_1 = DSum("iAmount", "[tbl_Items]", "[iPage] Not In (1,2,3) and [idate] between [srch_Date_From] And [srch_Date_To]")
    End If
    
 End Sub

 

DATA14.mdb

  • Like 1
رابط هذا التعليق
شارك
abouelhassan

abouelhassan

قام بنشر
  • الكاتب
قام بنشر (معدل)

اتقدم اليك اخى بخالص الشكر بس انظر اخى

الاجمالى =800

وانا اريد استبعاد الايراد 1000

اريد استبعاد النقدية =1000

اريد استبعاد التمويل =1000

والمدفوع للعميل=0

اذن المفروض الاجمالى = صفر

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

 

 

Untitled.png

تم تعديل بواسطه abouelhassan
رابط هذا التعليق
شارك
ابوبسمله

ابوبسمله

قام بنشر
قام بنشر

اتفضل اخى الفاضل @abouelhassan

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

ان شاء الله يكون ما تريد 

Sub inDsum()
 
    If Me.srch_All = "Negative" Then
       Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
    ElseIf Me.srch_All = "Positive" Then
        Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
    Else
       Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
    End If
    
 End Sub

 

DATA14.mdb

  • Like 1
رابط هذا التعليق
شارك
ابوبسمله

ابوبسمله

قام بنشر
قام بنشر
الان, abouelhassan said:

هذا هو المطلوب تمام ربنا يعزك اخى

الحمدلله الذى بنعمته تتم الصالحات

والشكر كله لله ثم لاخوانى واساتذتى جزاهم الله عنا كل خير

وفيك بارك الله

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك
ابوبسمله

ابوبسمله

قام بنشر
قام بنشر
2 ساعات مضت, abouelhassan said:

او كيفية التطبيق على باقى الصف

اتفضل 

 Sub inDsum()
 
    If Me.srch_All = "Negative" Then
       Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0  and [iStore_Number]=1 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_2 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0  and [iStore_Number]=2 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_3 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0  and [iStore_Number]=3 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_4 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0  and [iStore_Number]=4 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_5 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0  and [iStore_Number]=5 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_6 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0  and [iStore_Number]=6 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_7 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]<0  and [iStore_Number]=7 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)

    ElseIf Me.srch_All = "Positive" Then
        Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0  and [iStore_Number]=1 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
        Me.Sum_2 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0  and [iStore_Number]=2 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
        Me.Sum_3 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0  and [iStore_Number]=3 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
        Me.Sum_4 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0  and [iStore_Number]=4 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
        Me.Sum_5 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0  and [iStore_Number]=5 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
        Me.Sum_6 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0  and [iStore_Number]=6 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
        Me.Sum_7 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3) and [iAmount]>0  and [iStore_Number]=7 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
    Else
       Me.Sum_1 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3)  and [iStore_Number]=1 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_2 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3)  and [iStore_Number]=2 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_3 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3)  and [iStore_Number]=3 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_4 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3)  and [iStore_Number]=4 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_5 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3)  and [iStore_Number]=5 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_6 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3)  and [iStore_Number]=6 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
       Me.Sum_7 = Nz(DSum("iAmount", "[tbl_Items]", "[iPage] Not In (12,2,3)  and [iStore_Number]=7 and [idate] between [srch_Date_From] And [srch_Date_To]"), 0)
    End If
    
 End Sub

 

DATA14.mdb

  • Like 1
رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر

السلام عليكم 🙂

 

هذه قيم الصفحات في جدولك (ولا اعرف لماذا النقدية لها رقم 12 ، بينما المنطق يقول بأنها رقم 1 🙂 ) :

image.png.4aaba7cb401a0c25a24a07cfe52885c6.png

.

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

.

حاليا معادلة جمع الحقل هي : جمع جميع السجلات ، ما عدا السجل رقم 1 ،

وانا سألت اخوي ابوحسان لما عملت هذه المعادلة ، اذا كان يريد يستخدم انواع الصفحات (هذه التسمية القديمة قبل ان يبدلها الآن الى "الحساب") ، فكان رده : لا

image.png.95984da513233475340486e6ee5b5ebc.png

.

اما الآن ، فهو برمجيا يريد جمع السجلات ، بشرط "الصفحة" ، كالتالي (انا سأقوم بحذف شرط عدم جمع السجل الاول في المعادلات التالية) : 

اذا كانت الصفحة = الايراد (رقم 2) = اجعل قيمتها صفر

اذا كانت الصفحة = النقدية (رقم 12) = اجعل قيمتها صفر

اذا كانت الصفحة = التمويل (رقم 3) = اجعل قيمتها صفر

واجمع بقية انواع الصفحات 

عليه ، المعادلة ستكون للمستودع رقم 1 : 

=Sum(IIf([iPage]=2 Or [iPage]=3 Or [iPage]=12,0,[Store_1]))

 

جعفر

  • Like 2
رابط هذا التعليق
شارك
abouelhassan

abouelhassan

قام بنشر
  • الكاتب
قام بنشر

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

استاذى احمد الفلاحجي كود ممتاز

استاذى وحبيبى واخى فى الله jjafferr

لا حرمت منك ابداااااااااااااااا منقذى دائما 

والله اخى بالنسبة للنقدية 12 كلها تجارب كنت بجرب نغير الرقم

وبالنسبة للمعادلة تحفة ومختصرة وسهلة عليا جداااااااااااااااااااااااااااااااااااا وظهرت الحاجة اليها لانى لا ادخل فى الاجمالى 3 حسابات للعملاء يخصوا المحل

والله احبك اخى فى الله

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

شكر وتقدير واحترام من اخيك

رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر
21 دقائق مضت, abouelhassan said:

بالنسبة للنقدية 12 كلها تجارب

هنا وقعت في المحظور !!

هذه الارقام يجب ان لا تغيرها ، وانما تقدر ان تغير القيمة في النموذج !!

 

اذا لاحظت الآن ، فجميع اكواد اخوي احمد ، وكودي انا يعتمد على ان : النقدية = 12 !!

فرجاء ، قم بتصحيح النقدية في الجدول الى 1 ، وتغيير كودي ، بتغيير الرقم من 12 الى 1 ، هكذا : 

=Sum(IIf([iPage]=1 Or [iPage]=2 Or [iPage]=3,0,[Store_1]))

 

جعفر

  • Like 1
رابط هذا التعليق
شارك
ابوبسمله

ابوبسمله

قام بنشر
قام بنشر
منذ ساعه, jjafferr said:

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

.

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

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

الحمدلله يا ابواحسان معلمنا العزيز ادانى فرصه للمحاوله واسرع بالمواصله معنا جزاه الله خيرا

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept