I have a subform that contains a call to a subroutine which creates multiple rows of new records depending on the first row of record entered. Near the end of the subroutine, it calls DoSummation (as shown below). Then when I move the mouse to the Parent form, 'error 3251 - Operation is not supported for this type of object' is displayed. What could have gone wrong?
---------------------------------------------------
Public Sub DoSummation()
DoCmd.RunCommand acCmdRefresh
DoCmd.RunCommand acCmdRecordsGoToLast
Me.THours = DLookup("[THours]", "qryServiceTotalHourSpent", "[ServiceID] = " & Forms!ufmService.[ServiceID])
Me.TChargeableHours = DLookup("[TChargeableHours]", "qryServiceChargeableHours", "[ServiceID] = " & Forms!ufmService.[ServiceID])
Forms![ufmService].[TotalPoints] = Forms!ufmService.[TransportPoint] + Me.TPoints
End Sub
--------------------------------------------------
Thanks...
---------------------------------------------------
Public Sub DoSummation()
DoCmd.RunCommand acCmdRefresh
DoCmd.RunCommand acCmdRecordsGoToLast
Me.THours = DLookup("[THours]", "qryServiceTotalHourSpent", "[ServiceID] = " & Forms!ufmService.[ServiceID])
Me.TChargeableHours = DLookup("[TChargeableHours]", "qryServiceChargeableHours", "[ServiceID] = " & Forms!ufmService.[ServiceID])
Forms![ufmService].[TotalPoints] = Forms!ufmService.[TransportPoint] + Me.TPoints
End Sub
--------------------------------------------------
Thanks...