Question About Sum In Next Record In A Form

[Akirien]

Hello there,

I have a form. This form contains 5 fields (Subtotal) for a certain record. I can calculate the sum of the 5 fields value in the field Total, for first record, but when I click for next record, the Total value remains unchanged (same like first record).



Please help me. Thank you..

[maximus]

Is total a Field or an unbound text box. What is the record source of the form. have you used any code to calculate the total if yes where is the code attached to which event and control. Please let me know.

[Akirien]

It is a field... At Total textbox properties, I chose Control Source, and the Expression Builder appeared.. I put this code in the area :

=SUM([subTotal1]+[subTotal2]+[subTotal3]+[subTotal4]+[subTotal5])

it only calculates first record in the form..

[maximus]

Type this code in the control source and see if it works.

=[subTotal1]+[subTotal2]+[subTotal3]+[subTotal4]+[subTotal5]

[Akirien]

Hi.. thank you Maximus.. It worked.. But I need to save it first, and close it. Open it back, the value will change. If not, it will remain unchanged or no value there.. Let's say I have 5 field, <5 is filled, the Total value is null.. In other words, I also need to fill all (5) fields.

[maximus]

can you do something covert the database to access 2000 and send it to me I will do the needful.
Thanx

[Akirien]

It's in other language. But if you don't mind, here's the link : Download Here

The form named FALL is what I mean.
Text55 is Total. Jumlah(Hari), Jumlah(Hari)1, and so on, are the sub-total.. Thank you for helping..

[maximus]

I have made some alterations attachments in this forum is permitted to 2 mb as Zip and thus I had to remove the pictures that you had added in the background of your forms. I have made some modifications to the Fall form.

Result:
1) Total will appear even if one of the field is blank.
2) Total is updated as soon you make an entry in one of the field and move to another.

Codes modified:

=IIf(IsNull([JUMLAHHARI]),0,[JUMLAHHARI])+IIf(IsNull([JUMLAHHARI1]),0,[JUMLAHHARI1])+IIf(IsNull([JUMLAHHARI2]),0,[JUMLAHHARI2])+IIf(IsNull([JUMLAHHARI3]),0,[JUMLAHHARI3])+IIf(IsNull([JUMLAHHARI5]),0,[JUMLAHHARI5])


Docmd.Requery "Text55" added to the after event of JUMLAHHARI to JUMLAHHARI5

if this solves your problem mark this thread solved.

Find attached mdb (zipped)

[Akirien]

Thank you very much Maximus.. You're really a wizard.. Really appreciate it..

[maximus]

Glad I could help. The forms that You have created are the most beautiful decorated ones that I have ever seen. If you don't mind can tell me the language that you used.

[Akirien]

It's Malay languange.. I'm Malaysian.. Thank you again..