مطلوب مجموع الفواتير المختارة فقط

وعليكم السلام ورحمة الله

ألم يسبق لي أن أجبتك على هذا السؤال أو ما يشابهه سابقاً؟

على كل حال, ضع الكود التالي في حدث "عند النقر" لزر الأمر المسمى Total

Me.Refresh
Me.Text11 = Nz(DSum("invoice_amount", "invoice_tbl", "select_payment= True"), 0)

السلام عليكم

استاذي غرام العقول

شكراً جزيلاً لك

نعم لقد اجبتني عن سؤال مشابه وقد كان عن عدد الفواتير المختارة حيث كان الكود في الحقل الغير معرف وليس في VB كالتالي:

=Sum(IIf([select_payment]=True;1;0))

حاولت ان اقتبس من نفس الكود واجراء بعض التغييرات لكن للأسف لم افلح.

تقبل تحيااااتي

وعليكم السلام ورحمة الله

نعم أخي الكريم .. لقد تذكرت.

يمكنك استخدام هذه الطريقة دون الحاجة إلى نقر الزر Total وذلك بالشكل التالي:

1- اكتب الكود التالي في الحقل الغير منضم , والذي يظهر فيه مجموع الفواتير:

=Nz(Sum(IIf([select_payment]=True;[Invoice_Amount];0));0)

2- في حدث عند النقر لمربع الاختيار المسمى select_payment اكتب الكود التالي:

Me.Refresh

الآن أصبحت لديك طريقتان لجمع الفواتير المختارة, يمكنك أن تأخذ ما يناسبك.

رائع

وفقك الله لما يحب ويرضى

كوني مبتدئ ولم ادرس الاكسس،،، فأنا اجهل حتى فائدة Nz و IIF ومتى تستخدم.

استاذي.. هل من الممكن افراد موضوع (دروس) بمشاركة الاساتذة والمشرفين لشرح هذه الاكواد على ان تتكرم الادارة بتثبيت الموضوع كي يستفيد منها الاعضاء

sweety78 كتب:

رائع

وفقك الله لما يحب ويرضى

آمين .. ولك مثل ما دعوت به وأكثر.

sweety78 كتب:

استاذي.. هل من الممكن افراد موضوع (دروس) بمشاركة الاساتذة والمشرفين لشرح هذه الاكواد على ان تتكرم الادارة بتثبيت الموضوع كي يستفيد منها الاعضاء

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

أما أن تتعلم ذلك من خلال موضوع في منتدى .. فأعتقد أن ذلك كمن يريد أن يقوم بتعريف البحر من خلال قليل من الماء موجود في كأس.