جلب قيمة مالية من استعلام بمعيار تاريخ

[AbuuAhmed]

أولا: عدل اسم اسم الصندوق من txtMonthe إلى txtMonth واحذف الصندوق txtYear فليس له داع في جلب القيمة.
ثانيا: ضع هذه الأكواد في النموذج بدلا من الأكواد السابقة:
 

Private Sub Form_Load()
    Call txtMonth_AfterUpdate
End Sub

Private Sub txtMonth_AfterUpdate()
    Me.Roming = Nz(DSum("Nz([Remaining_Cridi],0)", "Baghi3112"), 0)
End Sub

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

[طاهر اوفيسنا]

24 دقائق مضت, AbuuAhmed said:

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

أولا : شكرا استاذ  ابو أحمد على ايجاد الحل الصحيح    .                                ثانيا: الاستاذ القدير جعفر  صحيح يتعب من اجل ايجاد الحلول المستعصية  والشبه مستحيلة لمساعدة اخوانه  في هذا المنتدى القيم نتمنى من الله سبحانه وتعالى ان يوفقه لما فيه خير لصالح العباد و البلاد العربية الاسلامية قاطبة.         ثالثا : مع تحياتي للاستاذ FoKsh الذي بذلك قصارى جهده من اجل المساعدة         

[Foksh]

4 ساعات مضت, كريمو2 said:

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

لا اعلم ، قد يكون هذا السبب لعدم ظهور نتائج الاستعلام .

على العموم الاستعلام لا يعطي اي نتيجة مع أو بدون فتح النموذج ..

المهم انك وجدت ضالتك ، والشكر موصول للأستاذ @AbuuAhmed 

تم تعديل يناير 22 بواسطه Foksh