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.
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.
