كيفية استخدام دالة dsum

[dayslife]

 

السلام عليكم ورحمة الله وبركاته ....... اخواني الاعزاء كيفكم ان شاء الله انتم بخير وصحة

اود ان تساعدوني في كيفية استخدام دالة dsum في ايجاد مجموع ايرادات عميل معين خلال فترة زمنية محددة بين تاريخين

حيث استخدمت الدالة في ايجاد مجموع ايرادات عميل معين ضمن جدول به حقل السعر والعملاء والتاريخ
ولكن الدالة ما تضبط معي وتظهر رسالة بان المتغير لا يتناسب مع المطلوب
ياريت تفيدوني من معلوماتكم في كيفية استخدام الدالة وكيفية استدعائها
وارجوا ان تصححوا لي الكود التالي لا يجاد مجموع ايرادات عميل محدد ضمن مربع النص txt1 وبين تاريخين محددة بمربعي النص txt2 txt3 في الفورم frm1 والجدول المرتبط به tab2

CODE

Private Sub ÃãÑ9_Click()
Dim xx As Integer
xx=dsum("[price]","tab2","[asso_name]=[forms]![frm1]![txt1]", [begin_date] between[forms]![frm1]![txt2]and[forms]![frm1]![txt3]")

End Sub

ياربي يحفظكم ويرزقكم ا من حيث لا تحتسبون

والف شكر مقدما
اختكم ديزلايف

تم تعديل أبريل 16, 2014 بواسطه أبا عمر

[أبو آدم]

اختي العزيزة

يمكنك الاستعانة بالرابط التالي

http://www.officena.net/ib/index.php?showt...=dsum&st=20

تم تعديل مارس 4, 2009 بواسطه nart lebzo
خطأ بالاشارة للعضو

[يوسف أحمد]

السلام عليكم

الاخت الكريمة dayslife

تفضلي مثال على ذلك

ارجو ان يكون هو المطلوب

بالتوفيق

استدراك : معذرة اخي nart lebzo لم الاحظ ردك الا بعد ادراج ردي

بارك الله فيك وجعلك سباق الى الخير دائماً

دمت بود

DSumFunction.rar

تم تعديل مارس 4, 2009 بواسطه yousef

[أبو آدم]

أخي يوسف ...

لا داعي للاعتذار انت أخ عزيز تعلمنا من مساهماتك الكثير

وسباقنا للخير طيب مبارك

واقدم اعتذاري للأخت ديزلايف على بداية ردي (( أخي العزيز ))

[dayslife]

اختي العزيزة

يمكنك الاستعانة بالرابط التالي

http://www.officena.net/ib/index.php?showt...=dsum&st=20

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

الف الف شكر اخي العزيز nart lebzo على تعاونك معنا

بارك الله فيك وزادك من فضله ... ومشكور على الرابط الذي يحوي الكثير من المعلومات

جزاك الله خير الجزاء وقرب اليك كل بعيد تتمناه

اختك ديزلايف

[dayslife]

السلام عليكم

الاخت الكريمة dayslife

تفضلي مثال على ذلك

ارجو ان يكون هو المطلوب

بالتوفيق

استدراك : معذرة اخي nart lebzo لم الاحظ ردك الا بعد ادراج ردي

بارك الله فيك وجعلك سباق الى الخير دائماً

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

اخي العزيز يوسف

الف الف شكر على هذا المثال ... فقط اود ان تبين لي ما ذا يعني الرمز Nz في الكود

وايضا اود ان احدد الاسم ضمن مربع تحرير وسرد او مربع نص

اي اُدخل ضمن الدالة dsum اسم العميل وتاريخين وتظهر الايرادات اي لا اعتمد على معلومات النموذج

اي اكتب الاسم والتاريخين وتظهر النتيجة

Private Sub Command13_Click()
    On Error Resume Next
    Dim xx As Integer
    xx = Nz(DSum("[price]", "tab2", "[customerid]=[forms]![frm1]![customerid] and [E_date] between[forms]![frm1]![txt2]and[forms]![frm1]![txt3]"))
    txt1 = xx
End Sub

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

بارك الله فيك وزادك من فضله

اختك ديزلايف :fff:

دمت بود

[يوسف أحمد]

بارك الله فيك اخي nart lebzo ونفع بعلمك

الاخت الكريمة dayslife لا شكر على واجب

تفضلي المرفق بعد التعديل

بالنسبة للدالة NZ فقد فضلت ان ارفق لك ملف كامل يحتوي على جميع دوال الاكسس وهو من اعداد الاخ الغالي بو يوسف الراشد جزاه الله خيراً وقد قمت بتحويله الى ملف Pdf ... ارجو ان تستفيدين منه.

بالتوفيق للجميع ان شاء الله

DSumFunction.rar

Microsoft_Access_Functions.rar

[nash60]

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

الف شكر لك اخي yousef على هذا المثال الجميلDSumFunction واتمنى منك او من احد

الاخوة ان يساعدني في الكود الموجود في حالة النموذج المستمر لان المثال في حالة

النوذج المفرد حاولت كثيرا ولم افلح .

وشكرا جزيلا

[MAHMOUD ALI YOUSSEF]

جزاكم الله وجعل الله ذلك فى ميزان حسناتكم :clapping: