( تمت الاجابة ) كيف يمكن اضافة شرط اضافي الى دالة Dsum

[kingskull]

بسم الله الرحمن الرحيم

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

اخواني كيف من الممكن اضافة شرط او معيار اضافي الى دالة Dsum

Me![text1] = DSum("[field1]", "tab", "[yn]='" & Me.yn & "'")

اريد اضافة المعيار b_no من نفس الجدول الى الدالة مالصيغة الصحيحة في ذلك هذا الجزء الاول

الجزء الثاني ايها السادة ان لدي حقلان field1 و field2

ولدي المعيار مربع تحرير وسرد فيه القيمتين نعم ولا اذا كان السجل يأخذ القيمة نعم فانه يجمع حقول field1

واذا لا يجمع الحقل field2

استخدم هذه الدالة

Private Sub أمر17_Click()

If yn = "نعم" Then

Me![text1] = DSum("[field1]", "tab", "[yn]='" & Me.yn & "'")

Else

  Me.text1 = 0

If yn = "لا" Then

Me![text2] = DSum("[field2]", "tab", "[yn]='" & Me.yn & "'")

Else[/size]

[size=5]  Me.text2 = 0[/size]

[size=5]End If

End If

Me.Refresh

Me.Requery

End Sub

المشكلة ان الناتج يظهر فقط للسجل الذي امامه الاشارة و عند اختيار آخر يظهر كذلك السجل المحدد فقط بينما اريد مجموع السجلات yn هو combobox مربع التحرير و السرد

ولكم خالص المودة و التقدير

test.zip

[ابو ياسر]

اخوي

الاستعلامات تحقق لك اكثر مما تتخيل فحاول توظيفها في استخراج المجاميع والاحصاءات

[kingskull]

اخوي

الاستعلامات تحقق لك اكثر مما تتخيل فحاول توظيفها في استخراج المجاميع والاحصاءات

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

[kingskull]

ايها الاخوة ستحل مشكلتي لو تم تصحيح الخطأ في هذا الكود

Me![text27] = DSum("[ertbat_last1]", "all", _

	"[yes] = 'نعم'" And _

	 "[b_no] = & Me.b_no & '")

هذا الكود يعمل بصفة سليمة

Me![text27] = DSum("[ertbat_last1]", "all", _

	"[yes] = 'نعم'")

كذلك هذا يعمل بصفة سليمة

Me![text27] = DSum("[ertbat_last1]", "all", "[b_no]='" & Me.b_no & "'")

اريد كلاهما مع بعض في كود و احد

تم تعديل مارس 6, 2012 بواسطه kingskull

[ابوخليل]

اخي الكريم

جرب هذا :

Me![text27] = DSum("[ertbat_last1]", "all", "[b_no]='" & [b_no] & "'" & " and [yes] ='" & "نعم" & "'")

[kingskull]

اخي الكريم

جرب هذا :

Me![text27] = DSum("[ertbat_last1]", "all", "[b_no]='" & [b_no] & "'" & " and [yes] ='" & "نعم" & "'")

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