trying to put the value in array not single by single..

[shah1419]

Private Sub Tuition_AfterUpdate()


Dim intS As Integer 'Please use Long if the numbers expected is Greater than 32,767
intS = DSum("[Balance]", "12356", "[GR No]=" & Me.[GR No])
'I have assumed that InvIN and InvOut is in the same table. This will work if you maintain seperate tables just change the table name
Me.Arrears = intS
End Sub
--------------------------------------------------------------------------------------
this code insert values when i update the tuition column. i want to insert it on all entil the end of file.
when i want to insert the value in tuition column. the same row of the tuition column has been also be updated with this function. please advised.

[ssanfu]

It is unclear what your question is.

There is nothing in your post that has to do with an array.
There is nothing that inserts a value in the tuition column.

There is a control named "Arrears" that is updated to the result of the Dsum function.

Also, since this is dealing with money, I would use currency, single or double in the code. The tuition or payments won't have any cents????

[June7]

Saving aggregate data is usually a bad idea. Against relational database principle of 'save raw data, do calcs in report'. Review http://allenbrowne.com/AppInventory.html