Update o CancelUpdate sin addNew o Edit

A ver si alguien me puede echar una mano tengo un subformulario vinculado a un formulario del que copia algunos datos, el problema es que una vez que quiero modificar o añadir algun producto al subformulario me da el error del titulo, y me lleva al codigo

Private Sub Cuadro_combinado18_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
    Me.Parent!tmaterial = DSum("preciotmaterial", "subconsulta_material", "idmaterial=" & Me.Idmaterial & "")
    Dim vtecnico As Variant
    Dim vflujo As Variant
    Dim vfecha As Variant
    vflujo = Forms![principal Consulta].flujo.Value
    vtecnico = Forms![principal Consulta].Cuadro_combinado67.Value
    vfecha = Forms![principal Consulta].fecha.Value
    Forms![principal Consulta].[subformulario subconsulta_material1].Form.tecnicomaterial.Value = vtecnico
    Forms![principal Consulta].[subformulario subconsulta_material1].Form.flujomaterial.Value = vflujo
    Forms![principal Consulta].[subformulario subconsulta_material1].Form.fechamaterial.Value = vfecha
    DoCmd.RunCommand acCmdSaveRecord
End Sub

¿Podeis decirme que tengo mal?