جمع قيمة textbox في تقرير اكسيس

[romeo4]

السلام عليكم .

عندي تقرير اكسيس مكون من اكثر من صفحة واريد اجمالي قيمة textbox اسمه (textold) في نهاية الصفحة الاخيرة حاولت باكثر من طريقة ولاكن بدون جدوى ..

مرفق المثال

Database2.rar

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

تم تعديل يناير 7, 2020 بواسطه romeo4

[عبد الفتاح كيرة]

2 ساعات مضت, romeo4 said:

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

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
Dim old As Integer
Me.textold = 0
olld = DSum("[debit]", "t", "[id-client]=" & [id] & " and [date] < from ") - DSum("[Credit]", "t", "[id-client]=" & [id] & " and [date] < from ")
If IsNull(olld) Then
Me.textold = 0
Else
Me.textold = Me.textold + olld
Me.Text49 = DSum("[debit]", "t")
End If
End Sub

لاحظ السطر الأخير

 

Database2 (1).rar

[romeo4]

شكرا صديقي علي الرد ,, لاكن ليس هذا ما اريد جمعه .. اريد ان يجمع عمود الرصيد السابق وليس الرصيد المدين

[عبد الفتاح كيرة]

3 دقائق مضت, عبد الفتاح كيرة said:

Me.Text49 = DSum("[debit]", "t")

غير هذا السطر حسبما تريد

[romeo4]

شكرا صديقي .. ولاكن ليس هذا ما اريده ..

[romeo4]

الرصيد السابق عندي يتم احتسابه من خلال الفرق بين الرصيد المدين والرصيد الدائن قبل تاريخ التقرير لكل زبون .. ويوضع نتيجته في تكست بوكس اسمه textold اريد ان يتم جمع القيم التي يحتويها التكست بوكس هذا عند عرض التقرير ..

صورة للتوضيح اخي

[أبوبسمله]

اطلع على هذا الرابط لعلك تجد به ما تريد

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